Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  dibglbN Structured version   Visualization version   GIF version

Theorem dibglbN 36874
Description: Partial isomorphism B of a lattice glb. (Contributed by NM, 9-Mar-2014.) (New usage is discouraged.)
Hypotheses
Ref Expression
dibglb.g 𝐺 = (glb‘𝐾)
dibglb.h 𝐻 = (LHyp‘𝐾)
dibglb.i 𝐼 = ((DIsoB‘𝐾)‘𝑊)
Assertion
Ref Expression
dibglbN (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ dom 𝐼𝑆 ≠ ∅)) → (𝐼‘(𝐺𝑆)) = 𝑥𝑆 (𝐼𝑥))
Distinct variable groups:   𝑥,𝐺   𝑥,𝐻   𝑥,𝐾   𝑥,𝑆   𝑥,𝑊
Allowed substitution hint:   𝐼(𝑥)

Proof of Theorem dibglbN
Dummy variables 𝑓 𝑠 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpl 474 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ dom 𝐼𝑆 ≠ ∅)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 simprl 811 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ dom 𝐼𝑆 ≠ ∅)) → 𝑆 ⊆ dom 𝐼)
3 eqid 2724 . . . . . 6 (Base‘𝐾) = (Base‘𝐾)
4 eqid 2724 . . . . . 6 (le‘𝐾) = (le‘𝐾)
5 dibglb.h . . . . . 6 𝐻 = (LHyp‘𝐾)
6 dibglb.i . . . . . 6 𝐼 = ((DIsoB‘𝐾)‘𝑊)
73, 4, 5, 6dibdmN 36865 . . . . 5 ((𝐾 ∈ HL ∧ 𝑊𝐻) → dom 𝐼 = {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊})
87sseq2d 3739 . . . 4 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (𝑆 ⊆ dom 𝐼𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊}))
98adantr 472 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ dom 𝐼𝑆 ≠ ∅)) → (𝑆 ⊆ dom 𝐼𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊}))
102, 9mpbid 222 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ dom 𝐼𝑆 ≠ ∅)) → 𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊})
11 simprr 813 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ dom 𝐼𝑆 ≠ ∅)) → 𝑆 ≠ ∅)
125, 6dibvalrel 36871 . . . 4 ((𝐾 ∈ HL ∧ 𝑊𝐻) → Rel (𝐼‘(𝐺𝑆)))
1312adantr 472 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → Rel (𝐼‘(𝐺𝑆)))
14 n0 4039 . . . . . . . 8 (𝑆 ≠ ∅ ↔ ∃𝑥 𝑥𝑆)
1514biimpi 206 . . . . . . 7 (𝑆 ≠ ∅ → ∃𝑥 𝑥𝑆)
1615ad2antll 767 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → ∃𝑥 𝑥𝑆)
175, 6dibvalrel 36871 . . . . . . . . . 10 ((𝐾 ∈ HL ∧ 𝑊𝐻) → Rel (𝐼𝑥))
1817adantr 472 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → Rel (𝐼𝑥))
1918a1d 25 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → (𝑥𝑆 → Rel (𝐼𝑥)))
2019ancld 577 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → (𝑥𝑆 → (𝑥𝑆 ∧ Rel (𝐼𝑥))))
2120eximdv 1959 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → (∃𝑥 𝑥𝑆 → ∃𝑥(𝑥𝑆 ∧ Rel (𝐼𝑥))))
2216, 21mpd 15 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → ∃𝑥(𝑥𝑆 ∧ Rel (𝐼𝑥)))
23 df-rex 3020 . . . . 5 (∃𝑥𝑆 Rel (𝐼𝑥) ↔ ∃𝑥(𝑥𝑆 ∧ Rel (𝐼𝑥)))
2422, 23sylibr 224 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → ∃𝑥𝑆 Rel (𝐼𝑥))
25 reliin 5348 . . . 4 (∃𝑥𝑆 Rel (𝐼𝑥) → Rel 𝑥𝑆 (𝐼𝑥))
2624, 25syl 17 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → Rel 𝑥𝑆 (𝐼𝑥))
27 id 22 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)))
28 simpl 474 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
29 simprl 811 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → 𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊})
30 eqid 2724 . . . . . . . . . . . . 13 ((DIsoA‘𝐾)‘𝑊) = ((DIsoA‘𝐾)‘𝑊)
313, 4, 5, 30diadm 36743 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ 𝑊𝐻) → dom ((DIsoA‘𝐾)‘𝑊) = {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊})
3231adantr 472 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → dom ((DIsoA‘𝐾)‘𝑊) = {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊})
3329, 32sseqtr4d 3748 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → 𝑆 ⊆ dom ((DIsoA‘𝐾)‘𝑊))
34 simprr 813 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → 𝑆 ≠ ∅)
35 dibglb.g . . . . . . . . . . 11 𝐺 = (glb‘𝐾)
3635, 5, 30diaglbN 36763 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ dom ((DIsoA‘𝐾)‘𝑊) ∧ 𝑆 ≠ ∅)) → (((DIsoA‘𝐾)‘𝑊)‘(𝐺𝑆)) = 𝑥𝑆 (((DIsoA‘𝐾)‘𝑊)‘𝑥))
3728, 33, 34, 36syl12anc 1437 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → (((DIsoA‘𝐾)‘𝑊)‘(𝐺𝑆)) = 𝑥𝑆 (((DIsoA‘𝐾)‘𝑊)‘𝑥))
3837eleq2d 2789 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → (𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘(𝐺𝑆)) ↔ 𝑓 𝑥𝑆 (((DIsoA‘𝐾)‘𝑊)‘𝑥)))
39 vex 3307 . . . . . . . . 9 𝑓 ∈ V
40 eliin 4633 . . . . . . . . 9 (𝑓 ∈ V → (𝑓 𝑥𝑆 (((DIsoA‘𝐾)‘𝑊)‘𝑥) ↔ ∀𝑥𝑆 𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘𝑥)))
4139, 40ax-mp 5 . . . . . . . 8 (𝑓 𝑥𝑆 (((DIsoA‘𝐾)‘𝑊)‘𝑥) ↔ ∀𝑥𝑆 𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘𝑥))
4238, 41syl6bb 276 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → (𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘(𝐺𝑆)) ↔ ∀𝑥𝑆 𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘𝑥)))
4342anbi1d 743 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → ((𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘(𝐺𝑆)) ∧ 𝑠 = ( ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾)))) ↔ (∀𝑥𝑆 𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘𝑥) ∧ 𝑠 = ( ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾))))))
44 r19.27zv 4179 . . . . . . 7 (𝑆 ≠ ∅ → (∀𝑥𝑆 (𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘𝑥) ∧ 𝑠 = ( ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾)))) ↔ (∀𝑥𝑆 𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘𝑥) ∧ 𝑠 = ( ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾))))))
4544ad2antll 767 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → (∀𝑥𝑆 (𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘𝑥) ∧ 𝑠 = ( ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾)))) ↔ (∀𝑥𝑆 𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘𝑥) ∧ 𝑠 = ( ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾))))))
4643, 45bitr4d 271 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → ((𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘(𝐺𝑆)) ∧ 𝑠 = ( ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾)))) ↔ ∀𝑥𝑆 (𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘𝑥) ∧ 𝑠 = ( ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾))))))
47 hlclat 35065 . . . . . . . 8 (𝐾 ∈ HL → 𝐾 ∈ CLat)
4847ad2antrr 764 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → 𝐾 ∈ CLat)
49 ssrab2 3793 . . . . . . . 8 {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ⊆ (Base‘𝐾)
5029, 49syl6ss 3721 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → 𝑆 ⊆ (Base‘𝐾))
513, 35clatglbcl 17236 . . . . . . 7 ((𝐾 ∈ CLat ∧ 𝑆 ⊆ (Base‘𝐾)) → (𝐺𝑆) ∈ (Base‘𝐾))
5248, 50, 51syl2anc 696 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → (𝐺𝑆) ∈ (Base‘𝐾))
53 hllat 35070 . . . . . . . . 9 (𝐾 ∈ HL → 𝐾 ∈ Lat)
5453ad3antrrr 768 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) ∧ 𝑥𝑆) → 𝐾 ∈ Lat)
5547ad3antrrr 768 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) ∧ 𝑥𝑆) → 𝐾 ∈ CLat)
56 simplrl 819 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) ∧ 𝑥𝑆) → 𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊})
5756, 49syl6ss 3721 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) ∧ 𝑥𝑆) → 𝑆 ⊆ (Base‘𝐾))
5855, 57, 51syl2anc 696 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) ∧ 𝑥𝑆) → (𝐺𝑆) ∈ (Base‘𝐾))
5950sselda 3709 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) ∧ 𝑥𝑆) → 𝑥 ∈ (Base‘𝐾))
603, 5lhpbase 35704 . . . . . . . . 9 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
6160ad3antlr 769 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) ∧ 𝑥𝑆) → 𝑊 ∈ (Base‘𝐾))
62 simpr 479 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) ∧ 𝑥𝑆) → 𝑥𝑆)
633, 4, 35clatglble 17247 . . . . . . . . 9 ((𝐾 ∈ CLat ∧ 𝑆 ⊆ (Base‘𝐾) ∧ 𝑥𝑆) → (𝐺𝑆)(le‘𝐾)𝑥)
6455, 57, 62, 63syl3anc 1439 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) ∧ 𝑥𝑆) → (𝐺𝑆)(le‘𝐾)𝑥)
6529sselda 3709 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) ∧ 𝑥𝑆) → 𝑥 ∈ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊})
66 breq1 4763 . . . . . . . . . . 11 (𝑦 = 𝑥 → (𝑦(le‘𝐾)𝑊𝑥(le‘𝐾)𝑊))
6766elrab 3469 . . . . . . . . . 10 (𝑥 ∈ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ↔ (𝑥 ∈ (Base‘𝐾) ∧ 𝑥(le‘𝐾)𝑊))
6865, 67sylib 208 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) ∧ 𝑥𝑆) → (𝑥 ∈ (Base‘𝐾) ∧ 𝑥(le‘𝐾)𝑊))
6968simprd 482 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) ∧ 𝑥𝑆) → 𝑥(le‘𝐾)𝑊)
703, 4, 54, 58, 59, 61, 64, 69lattrd 17180 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) ∧ 𝑥𝑆) → (𝐺𝑆)(le‘𝐾)𝑊)
7116, 70exlimddv 1976 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → (𝐺𝑆)(le‘𝐾)𝑊)
72 eqid 2724 . . . . . . 7 ((LTrn‘𝐾)‘𝑊) = ((LTrn‘𝐾)‘𝑊)
73 eqid 2724 . . . . . . 7 ( ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾))) = ( ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾)))
743, 4, 5, 72, 73, 30, 6dibopelval2 36853 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝐺𝑆) ∈ (Base‘𝐾) ∧ (𝐺𝑆)(le‘𝐾)𝑊)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝐺𝑆)) ↔ (𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘(𝐺𝑆)) ∧ 𝑠 = ( ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾))))))
7528, 52, 71, 74syl12anc 1437 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝐺𝑆)) ↔ (𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘(𝐺𝑆)) ∧ 𝑠 = ( ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾))))))
76 opex 5037 . . . . . . 7 𝑓, 𝑠⟩ ∈ V
77 eliin 4633 . . . . . . 7 (⟨𝑓, 𝑠⟩ ∈ V → (⟨𝑓, 𝑠⟩ ∈ 𝑥𝑆 (𝐼𝑥) ↔ ∀𝑥𝑆𝑓, 𝑠⟩ ∈ (𝐼𝑥)))
7876, 77ax-mp 5 . . . . . 6 (⟨𝑓, 𝑠⟩ ∈ 𝑥𝑆 (𝐼𝑥) ↔ ∀𝑥𝑆𝑓, 𝑠⟩ ∈ (𝐼𝑥))
79 simpll 807 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) ∧ 𝑥𝑆) → (𝐾 ∈ HL ∧ 𝑊𝐻))
803, 4, 5, 72, 73, 30, 6dibopelval2 36853 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑥(le‘𝐾)𝑊)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼𝑥) ↔ (𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘𝑥) ∧ 𝑠 = ( ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾))))))
8179, 68, 80syl2anc 696 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) ∧ 𝑥𝑆) → (⟨𝑓, 𝑠⟩ ∈ (𝐼𝑥) ↔ (𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘𝑥) ∧ 𝑠 = ( ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾))))))
8281ralbidva 3087 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → (∀𝑥𝑆𝑓, 𝑠⟩ ∈ (𝐼𝑥) ↔ ∀𝑥𝑆 (𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘𝑥) ∧ 𝑠 = ( ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾))))))
8378, 82syl5bb 272 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → (⟨𝑓, 𝑠⟩ ∈ 𝑥𝑆 (𝐼𝑥) ↔ ∀𝑥𝑆 (𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘𝑥) ∧ 𝑠 = ( ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾))))))
8446, 75, 833bitr4d 300 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝐺𝑆)) ↔ ⟨𝑓, 𝑠⟩ ∈ 𝑥𝑆 (𝐼𝑥)))
8584eqrelrdv2 5328 . . 3 (((Rel (𝐼‘(𝐺𝑆)) ∧ Rel 𝑥𝑆 (𝐼𝑥)) ∧ ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅))) → (𝐼‘(𝐺𝑆)) = 𝑥𝑆 (𝐼𝑥))
8613, 26, 27, 85syl21anc 1438 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ∧ 𝑆 ≠ ∅)) → (𝐼‘(𝐺𝑆)) = 𝑥𝑆 (𝐼𝑥))
871, 10, 11, 86syl12anc 1437 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆 ⊆ dom 𝐼𝑆 ≠ ∅)) → (𝐼‘(𝐺𝑆)) = 𝑥𝑆 (𝐼𝑥))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 383   = wceq 1596  wex 1817  wcel 2103  wne 2896  wral 3014  wrex 3015  {crab 3018  Vcvv 3304  wss 3680  c0 4023  cop 4291   ciin 4629   class class class wbr 4760  cmpt 4837   I cid 5127  dom cdm 5218  cres 5220  Rel wrel 5223  cfv 6001  Basecbs 15980  lecple 16071  glbcglb 17065  Latclat 17167  CLatccla 17229  HLchlt 35057  LHypclh 35690  LTrncltrn 35807  DIsoAcdia 36736  DIsoBcdib 36846
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1835  ax-4 1850  ax-5 1952  ax-6 2018  ax-7 2054  ax-8 2105  ax-9 2112  ax-10 2132  ax-11 2147  ax-12 2160  ax-13 2355  ax-ext 2704  ax-rep 4879  ax-sep 4889  ax-nul 4897  ax-pow 4948  ax-pr 5011  ax-un 7066
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3an 1074  df-tru 1599  df-ex 1818  df-nf 1823  df-sb 2011  df-eu 2575  df-mo 2576  df-clab 2711  df-cleq 2717  df-clel 2720  df-nfc 2855  df-ne 2897  df-ral 3019  df-rex 3020  df-reu 3021  df-rab 3023  df-v 3306  df-sbc 3542  df-csb 3640  df-dif 3683  df-un 3685  df-in 3687  df-ss 3694  df-nul 4024  df-if 4195  df-pw 4268  df-sn 4286  df-pr 4288  df-op 4292  df-uni 4545  df-iun 4630  df-iin 4631  df-br 4761  df-opab 4821  df-mpt 4838  df-id 5128  df-xp 5224  df-rel 5225  df-cnv 5226  df-co 5227  df-dm 5228  df-rn 5229  df-res 5230  df-ima 5231  df-iota 5964  df-fun 6003  df-fn 6004  df-f 6005  df-f1 6006  df-fo 6007  df-f1o 6008  df-fv 6009  df-riota 6726  df-ov 6768  df-oprab 6769  df-mpt2 6770  df-map 7976  df-preset 17050  df-poset 17068  df-plt 17080  df-lub 17096  df-glb 17097  df-join 17098  df-meet 17099  df-p0 17161  df-p1 17162  df-lat 17168  df-clat 17230  df-oposet 34883  df-ol 34885  df-oml 34886  df-covers 34973  df-ats 34974  df-atl 35005  df-cvlat 35029  df-hlat 35058  df-lhyp 35694  df-laut 35695  df-ldil 35810  df-ltrn 35811  df-trl 35866  df-disoa 36737  df-dib 36847
This theorem is referenced by:  dibintclN  36875  dihglblem3N  37003  dihmeetlem2N  37007
  Copyright terms: Public domain W3C validator