--- lemma-8 
(goal RAILCAB-NEW |- ceq (loc(S:Sys) ~ opposite) = false 
                     if conLoc(S:Sys) = s4 [label lemma-8] .)

--- to finish