Step 
*
 of Lemma 
eu-seg-congruent_weakening
∀e:EuclideanPlane. ∀[s1,s2:Segment].  s1 ≡ s2 supposing s1 = s2 ∈ Segment
BY
 
{ (Auto THEN All (Unfold `eu-seg-congruent`) THEN HypSubst' (-1) 0 THEN Auto) }
 
Latex: 
Latex:
\mforall{}e:EuclideanPlane.  \mforall{}[s1,s2:Segment].    s1  \mequiv{}  s2  supposing  s1  =  s2
 By 
Latex:
(Auto  THEN  All  (Unfold  `eu-seg-congruent`)  THEN  HypSubst'  (-1)  0  THEN  Auto)
Home
Index