Step
*
of Lemma
glues-property2
∀[Info:Type]
  ∀es:EO+(Info)
    ∀[A,B:Type].
      ∀Ia:EClass(A). ∀Ib:EClass(B). ∀f:E(Ia) ─→ B. ∀g:E(Ib) ─→ E.
        (g glues Ia ──f─→ Ib
        
⇒ {Bij(E(Ib);E(Ia);g)
           ∧ (∀e:E(Ib). g e c≤ e)
           ∧ (∀e,e':E(Ib).  (g e ≤loc g e'  
⇒ e ≤loc e' ))
           ∧ (∀e:E(Ib). ((f (g e)) = Ib(e) ∈ B))})
BY
{ (InstLemma `glues-iff` [] THEN RepeatFor 6 (ParallelLast') THEN Auto) }
1
1. [Info] : Type
2. es : EO+(Info)@i'
3. [A] : Type
4. [B] : Type
5. Ia : EClass(A)@i'
6. Ib : EClass(B)@i'
7. ∀f:E(Ia) ─→ B. ∀g:E(Ib) ─→ E(Ia).
     (g glues Ia ──f─→ Ib
     
⇐⇒ {Bij(E(Ib);E(Ia);g)
         ∧ (∀e:E(Ib). g e c≤ e)
         ∧ (∀e,e':E(Ib).  (g e ≤loc g e'  
⇒ e ≤loc e' ))
         ∧ (∀e:E(Ib). ((f (g e)) = Ib(e) ∈ B))})
8. f : E(Ia) ─→ B@i
9. g : E(Ib) ─→ E@i
10. g glues Ia ──f─→ Ib@i
⊢ {Bij(E(Ib);E(Ia);g)
∧ (∀e:E(Ib). g e c≤ e)
∧ (∀e,e':E(Ib).  (g e ≤loc g e'  
⇒ e ≤loc e' ))
∧ (∀e:E(Ib). ((f (g e)) = Ib(e) ∈ B))}
Latex:
Latex:
\mforall{}[Info:Type]
    \mforall{}es:EO+(Info)
        \mforall{}[A,B:Type].
            \mforall{}Ia:EClass(A).  \mforall{}Ib:EClass(B).  \mforall{}f:E(Ia)  {}\mrightarrow{}  B.  \mforall{}g:E(Ib)  {}\mrightarrow{}  E.
                (g  glues  Ia  {}{}f{}\mrightarrow{}  Ib
                {}\mRightarrow{}  \{Bij(E(Ib);E(Ia);g)
                      \mwedge{}  (\mforall{}e:E(Ib).  g  e  c\mleq{}  e)
                      \mwedge{}  (\mforall{}e,e':E(Ib).    (g  e  \mleq{}loc  g  e'    {}\mRightarrow{}  e  \mleq{}loc  e'  ))
                      \mwedge{}  (\mforall{}e:E(Ib).  ((f  (g  e))  =  Ib(e)))\})
By
Latex:
(InstLemma  `glues-iff`  []  THEN  RepeatFor  6  (ParallelLast')  THEN  Auto)
Home
Index