Step
*
of Lemma
eu-add-length-cancel-right
∀[e:EuclideanPlane]. ∀[x,y,z:{p:Point| O_X_p} ].  x = y ∈ {p:Point| O_X_p}  supposing x + z = y + z ∈ {p:Point| O_X_p} 
BY
{ (InstLemma `eu-add-length-cancel-left` []
   THEN RepeatFor 5 (ParallelLast')
   THEN RWO "eu-add-length-comm" 0
   THEN Auto) }
Latex:
Latex:
\mforall{}[e:EuclideanPlane].  \mforall{}[x,y,z:\{p:Point|  O\_X\_p\}  ].    x  =  y  supposing  x  +  z  =  y  +  z
By
Latex:
(InstLemma  `eu-add-length-cancel-left`  []
  THEN  RepeatFor  5  (ParallelLast')
  THEN  RWO  "eu-add-length-comm"  0
  THEN  Auto)
Home
Index