Step * 1 5 of Lemma path-comp-prod


1. [A] SeparationSpace
2. [B] SeparationSpace
3. ∀f,g:Point(Path(A)).  (f@r1 ≡ g@r0  (∃h:Point(Path(A)). path-comp-rel(A;f;g;h)))
4. ∀f,g:Point(Path(B)).  (f@r1 ≡ g@r0  (∃h:Point(Path(B)). path-comp-rel(B;f;g;h)))
5. Point(Path(A × B))@i
6. Point(Path(A × B))@i
7. f@r1 ≡ g@r0
8. ((λt.(fst(f@t)) ∈ Point(Path(A))) ∧ t.(fst(g@t)) ∈ Point(Path(A))))
∧ t.(snd(f@t)) ∈ Point(Path(B)))
∧ t.(snd(g@t)) ∈ Point(Path(B)))
⊢ ∃h:Point(Path(A × B)). path-comp-rel(A × B;f;g;h)
BY
(((Assert ∀f,t:Top.  (snd(f@t) ~ λt.(snd(f@t))@t) BY
           (Auto THEN Computation))
    THEN (Assert ∀f,t:Top.  (fst(f@t) ~ λt.(fst(f@t))@t) BY
                (Auto THEN Computation))
    )
   THEN (Assert λt.(fst(f@t))@r1 ≡ λt.(fst(g@t))@r0 BY
               (RepeatFor (ParallelOp -4) THEN (RWO  "prod-ss-sep" THENA Auto) THEN RWO "8 9" THEN Auto))
   THEN (Assert λt.(snd(f@t))@r1 ≡ λt.(snd(g@t))@r0 BY
               (RepeatFor (ParallelOp -5) THEN (RWO  "prod-ss-sep" THENA Auto) THEN RWO "8 9" THEN Auto))) }

1
1. [A] SeparationSpace
2. [B] SeparationSpace
3. ∀f,g:Point(Path(A)).  (f@r1 ≡ g@r0  (∃h:Point(Path(A)). path-comp-rel(A;f;g;h)))
4. ∀f,g:Point(Path(B)).  (f@r1 ≡ g@r0  (∃h:Point(Path(B)). path-comp-rel(B;f;g;h)))
5. Point(Path(A × B))@i
6. Point(Path(A × B))@i
7. f@r1 ≡ g@r0
8. ((λt.(fst(f@t)) ∈ Point(Path(A))) ∧ t.(fst(g@t)) ∈ Point(Path(A))))
∧ t.(snd(f@t)) ∈ Point(Path(B)))
∧ t.(snd(g@t)) ∈ Point(Path(B)))
9. ∀f,t:Top.  (snd(f@t) ~ λt.(snd(f@t))@t)
10. ∀f,t:Top.  (fst(f@t) ~ λt.(fst(f@t))@t)
11. λt.(fst(f@t))@r1 ≡ λt.(fst(g@t))@r0
12. λt.(snd(f@t))@r1 ≡ λt.(snd(g@t))@r0
⊢ ∃h:Point(Path(A × B)). path-comp-rel(A × B;f;g;h)


Latex:


Latex:

1.  [A]  :  SeparationSpace
2.  [B]  :  SeparationSpace
3.  \mforall{}f,g:Point(Path(A)).    (f@r1  \mequiv{}  g@r0  {}\mRightarrow{}  (\mexists{}h:Point(Path(A)).  path-comp-rel(A;f;g;h)))
4.  \mforall{}f,g:Point(Path(B)).    (f@r1  \mequiv{}  g@r0  {}\mRightarrow{}  (\mexists{}h:Point(Path(B)).  path-comp-rel(B;f;g;h)))
5.  f  :  Point(Path(A  \mtimes{}  B))@i
6.  g  :  Point(Path(A  \mtimes{}  B))@i
7.  f@r1  \mequiv{}  g@r0
8.  ((\mlambda{}t.(fst(f@t))  \mmember{}  Point(Path(A)))  \mwedge{}  (\mlambda{}t.(fst(g@t))  \mmember{}  Point(Path(A))))
\mwedge{}  (\mlambda{}t.(snd(f@t))  \mmember{}  Point(Path(B)))
\mwedge{}  (\mlambda{}t.(snd(g@t))  \mmember{}  Point(Path(B)))
\mvdash{}  \mexists{}h:Point(Path(A  \mtimes{}  B)).  path-comp-rel(A  \mtimes{}  B;f;g;h)


By


Latex:
(((Assert  \mforall{}f,t:Top.    (snd(f@t)  \msim{}  \mlambda{}t.(snd(f@t))@t)  BY
                  (Auto  THEN  Computation))
    THEN  (Assert  \mforall{}f,t:Top.    (fst(f@t)  \msim{}  \mlambda{}t.(fst(f@t))@t)  BY
                            (Auto  THEN  Computation))
    )
  THEN  (Assert  \mlambda{}t.(fst(f@t))@r1  \mequiv{}  \mlambda{}t.(fst(g@t))@r0  BY
                          (RepeatFor  2  (ParallelOp  -4)
                            THEN  (RWO    "prod-ss-sep"  0  THENA  Auto)
                            THEN  RWO  "8  9"  0
                            THEN  Auto))
  THEN  (Assert  \mlambda{}t.(snd(f@t))@r1  \mequiv{}  \mlambda{}t.(snd(g@t))@r0  BY
                          (RepeatFor  2  (ParallelOp  -5)
                            THEN  (RWO    "prod-ss-sep"  0  THENA  Auto)
                            THEN  RWO  "8  9"  0
                            THEN  Auto)))




Home Index