Step * of Lemma geo-perp-in_functionality

No Annotations
e:BasicGeometry. ∀x:Point.
  ∀[a,b,c,d:Point].
    ∀x':Point
      ∀[a',b',c',d':Point].
        (uiff(ab  ⊥cd;a'b'  ⊥x' c'd')) supposing (d ≡ d' and c ≡ c' and b ≡ b' and a ≡ a' and x ≡ x')
BY
(Auto
   THEN (Assert ⌜Stable{a'b'  ⊥x' c'd'}⌝⋅ THEN EAuto 1)
   THEN Assert ⌜Stable{ab  ⊥cd}⌝⋅
   THEN EAuto 1
   THEN RepeatFor (Thin (-1))) }

1
1. BasicGeometry
2. Point
3. Point
4. Point
5. Point
6. Point
7. x' Point
8. a' Point
9. b' Point
10. c' Point
11. d' Point
12. x ≡ x'
13. a ≡ a'
14. b ≡ b'
15. c ≡ c'
16. d ≡ d'
17. ab  ⊥cd
⊢ a'b'  ⊥x' c'd'

2
1. BasicGeometry
2. Point
3. Point
4. Point
5. Point
6. Point
7. x' Point
8. a' Point
9. b' Point
10. c' Point
11. d' Point
12. x ≡ x'
13. a ≡ a'
14. b ≡ b'
15. c ≡ c'
16. d ≡ d'
17. a'b'  ⊥x' c'd'
⊢ ab  ⊥cd


Latex:


Latex:
No  Annotations
\mforall{}e:BasicGeometry.  \mforall{}x:Point.
    \mforall{}[a,b,c,d:Point].
        \mforall{}x':Point
            \mforall{}[a',b',c',d':Point].
                (uiff(ab    \mbot{}x  cd;a'b'    \mbot{}x'  c'd'))  supposing 
                      (d  \mequiv{}  d'  and 
                      c  \mequiv{}  c'  and 
                      b  \mequiv{}  b'  and 
                      a  \mequiv{}  a'  and 
                      x  \mequiv{}  x')


By


Latex:
(Auto
  THEN  (Assert  \mkleeneopen{}Stable\{a'b'    \mbot{}x'  c'd'\}\mkleeneclose{}\mcdot{}  THEN  EAuto  1)
  THEN  Assert  \mkleeneopen{}Stable\{ab    \mbot{}x  cd\}\mkleeneclose{}\mcdot{}
  THEN  EAuto  1
  THEN  RepeatFor  2  (Thin  (-1)))




Home Index