---

Step * 1 2 of Lemma Q-R-glues-conditional


1. [Info] : Type
2. es : EO+(Info)@i'
3. [Q1] : E ─→ E ─→ ℙ
4. [Q2] : E ─→ E ─→ ℙ
5. [R] : E ─→ E ─→ ℙ
6. [A] : Type
7. [B] : Type
8. Ia1 : EClass(A)@i'
9. Ia2 : EClass(A)@i'
10. Ib1 : EClass(B)@i'
11. Ib2 : EClass(B)@i'
12. f : E([Ia1?Ia2]) ─→ B@i
13. g1 : E(Ib1) ─→ E(Ia1)@i
14. g2 : E(Ib2) ─→ E(Ia2)@i
15. Ia1 ∩ Ia2 = 0
16. Ib1 ∩ Ib2 = 0
17. {Ia1} ←←= g1== {Ib1}@i
18. g1 is Q1-R-pre-preserving on {Ib1}@i
19. Inj(E(Ib1);E;g1)@i
20. ∀e:E(Ib1). ((f (g1 e)) = Ib1(e) ∈ B)@i
21. {Ia2} ←←= g2== {Ib2}@i
22. g2 is Q2-R-pre-preserving on {Ib2}@i
23. Inj(E(Ib2);E;g2)@i
24. ∀e:E(Ib2). ((f (g2 e)) = Ib2(e) ∈ B)@i
25. {[Ia1?Ia2]} ←←= [{Ib1}? g1 : g2]== {[Ib1?Ib2]}
⊢ [{Ib1}? g1 : g2] is Q1|{Ia1} ∨ Q2|{Ia2}-R-pre-preserving on {[Ib1?Ib2]}
BY
{ ((Assert [{Ib1}? g1 : g2] ∈ E([Ib1?Ib2]) ─→ E([Ia1?Ia2]) BY
          Auto)
   THEN (Assert {e:E| ({Ib1} ∨ {Ib2}) e}  ⊆r E([Ib1?Ib2]) BY
               ((D 0 THENA Auto)
                THEN (D -1
                      THEN RepUR ``predicate_or es-interface-predicate`` -1
                      THEN RWO "is-cond-class<" (-1)
                      THEN Auto)⋅
                ))
   ) }

1
1. [Info] : Type
2. es : EO+(Info)@i'
3. [Q1] : E ─→ E ─→ ℙ
4. [Q2] : E ─→ E ─→ ℙ
5. [R] : E ─→ E ─→ ℙ
6. [A] : Type
7. [B] : Type
8. Ia1 : EClass(A)@i'
9. Ia2 : EClass(A)@i'
10. Ib1 : EClass(B)@i'
11. Ib2 : EClass(B)@i'
12. f : E([Ia1?Ia2]) ─→ B@i
13. g1 : E(Ib1) ─→ E(Ia1)@i
14. g2 : E(Ib2) ─→ E(Ia2)@i
15. Ia1 ∩ Ia2 = 0
16. Ib1 ∩ Ib2 = 0
17. {Ia1} ←←= g1== {Ib1}@i
18. g1 is Q1-R-pre-preserving on {Ib1}@i
19. Inj(E(Ib1);E;g1)@i
20. ∀e:E(Ib1). ((f (g1 e)) = Ib1(e) ∈ B)@i
21. {Ia2} ←←= g2== {Ib2}@i
22. g2 is Q2-R-pre-preserving on {Ib2}@i
23. Inj(E(Ib2);E;g2)@i
24. ∀e:E(Ib2). ((f (g2 e)) = Ib2(e) ∈ B)@i
25. {[Ia1?Ia2]} ←←= [{Ib1}? g1 : g2]== {[Ib1?Ib2]}
26. [{Ib1}? g1 : g2] ∈ E([Ib1?Ib2]) ─→ E([Ia1?Ia2])
27. {e:E| ({Ib1} ∨ {Ib2}) e}  ⊆r E([Ib1?Ib2])
⊢ [{Ib1}? g1 : g2] is Q1|{Ia1} ∨ Q2|{Ia2}-R-pre-preserving on {[Ib1?Ib2]}

---

Latex:

---

Latex:

1.  [Info]  :  Type
2.  es  :  EO+(Info)@i'
3.  [Q1]  :  E  {}\mrightarrow{}  E  {}\mrightarrow{}  \mBbbP{}
4.  [Q2]  :  E  {}\mrightarrow{}  E  {}\mrightarrow{}  \mBbbP{}
5.  [R]  :  E  {}\mrightarrow{}  E  {}\mrightarrow{}  \mBbbP{}
6.  [A]  :  Type
7.  [B]  :  Type
8.  Ia1  :  EClass(A)@i'
9.  Ia2  :  EClass(A)@i'
10.  Ib1  :  EClass(B)@i'
11.  Ib2  :  EClass(B)@i'
12.  f  :  E([Ia1?Ia2])  {}\mrightarrow{}  B@i
13.  g1  :  E(Ib1)  {}\mrightarrow{}  E(Ia1)@i
14.  g2  :  E(Ib2)  {}\mrightarrow{}  E(Ia2)@i
15.  Ia1  \mcap{}  Ia2  =  0
16.  Ib1  \mcap{}  Ib2  =  0
17.  \{Ia1\}  \mleftarrow{}\mleftarrow{}=  g1==  \{Ib1\}@i
18.  g1  is  Q1-R-pre-preserving  on  \{Ib1\}@i
19.  Inj(E(Ib1);E;g1)@i
20.  \mforall{}e:E(Ib1).  ((f  (g1  e))  =  Ib1(e))@i
21.  \{Ia2\}  \mleftarrow{}\mleftarrow{}=  g2==  \{Ib2\}@i
22.  g2  is  Q2-R-pre-preserving  on  \{Ib2\}@i
23.  Inj(E(Ib2);E;g2)@i
24.  \mforall{}e:E(Ib2).  ((f  (g2  e))  =  Ib2(e))@i
25.  \{[Ia1?Ia2]\}  \mleftarrow{}\mleftarrow{}=  [\{Ib1\}?  g1  :  g2]==  \{[Ib1?Ib2]\}
\mvdash{}  [\{Ib1\}?  g1  :  g2]  is  Q1|\{Ia1\}  \mvee{}  Q2|\{Ia2\}-R-pre-preserving  on  \{[Ib1?Ib2]\}


By

---

Latex:
((Assert  [\{Ib1\}?  g1  :  g2]  \mmember{}  E([Ib1?Ib2])  {}\mrightarrow{}  E([Ia1?Ia2])  BY
                Auto)
  THEN  (Assert  \{e:E|  (\{Ib1\}  \mvee{}  \{Ib2\})  e\}    \msubseteq{}r  E([Ib1?Ib2])  BY
                          ((D  0  THENA  Auto)
                            THEN  (D  -1
                                        THEN  RepUR  ``predicate\_or  es-interface-predicate``  -1
                                        THEN  RWO  "is-cond-class<"  (-1)
                                        THEN  Auto)\mcdot{}
                            ))
  )

---

Home Index