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

Theorem ispsubcl2N 37584
Description: Alternate predicate for "is a closed projective subspace". Remark in [Holland95] p. 223. (Contributed by NM, 24-Jan-2012.) (New usage is discouraged.)
Hypotheses
Ref Expression
pmapsubcl.b 𝐵 = (Base‘𝐾)
pmapsubcl.m 𝑀 = (pmap‘𝐾)
pmapsubcl.c 𝐶 = (PSubCl‘𝐾)
Assertion
Ref Expression
ispsubcl2N (𝐾 ∈ HL → (𝑋𝐶 ↔ ∃𝑦𝐵 𝑋 = (𝑀𝑦)))
Distinct variable groups:   𝑦,𝐵   𝑦,𝐾   𝑦,𝑀   𝑦,𝑋
Allowed substitution hint:   𝐶(𝑦)

Proof of Theorem ispsubcl2N
StepHypRef Expression
1 eqid 2738 . . 3 (Atoms‘𝐾) = (Atoms‘𝐾)
2 eqid 2738 . . 3 (⊥𝑃𝐾) = (⊥𝑃𝐾)
3 pmapsubcl.c . . 3 𝐶 = (PSubCl‘𝐾)
41, 2, 3ispsubclN 37574 . 2 (𝐾 ∈ HL → (𝑋𝐶 ↔ (𝑋 ⊆ (Atoms‘𝐾) ∧ ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = 𝑋)))
5 hlop 36999 . . . . . . . . 9 (𝐾 ∈ HL → 𝐾 ∈ OP)
65adantr 484 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑋 ⊆ (Atoms‘𝐾)) → 𝐾 ∈ OP)
7 hlclat 36995 . . . . . . . . . 10 (𝐾 ∈ HL → 𝐾 ∈ CLat)
87adantr 484 . . . . . . . . 9 ((𝐾 ∈ HL ∧ 𝑋 ⊆ (Atoms‘𝐾)) → 𝐾 ∈ CLat)
91, 2polssatN 37545 . . . . . . . . . 10 ((𝐾 ∈ HL ∧ 𝑋 ⊆ (Atoms‘𝐾)) → ((⊥𝑃𝐾)‘𝑋) ⊆ (Atoms‘𝐾))
10 pmapsubcl.b . . . . . . . . . . 11 𝐵 = (Base‘𝐾)
1110, 1atssbase 36927 . . . . . . . . . 10 (Atoms‘𝐾) ⊆ 𝐵
129, 11sstrdi 3889 . . . . . . . . 9 ((𝐾 ∈ HL ∧ 𝑋 ⊆ (Atoms‘𝐾)) → ((⊥𝑃𝐾)‘𝑋) ⊆ 𝐵)
13 eqid 2738 . . . . . . . . . 10 (lub‘𝐾) = (lub‘𝐾)
1410, 13clatlubcl 17838 . . . . . . . . 9 ((𝐾 ∈ CLat ∧ ((⊥𝑃𝐾)‘𝑋) ⊆ 𝐵) → ((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋)) ∈ 𝐵)
158, 12, 14syl2anc 587 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑋 ⊆ (Atoms‘𝐾)) → ((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋)) ∈ 𝐵)
16 eqid 2738 . . . . . . . . 9 (oc‘𝐾) = (oc‘𝐾)
1710, 16opoccl 36831 . . . . . . . 8 ((𝐾 ∈ OP ∧ ((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋)) ∈ 𝐵) → ((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋))) ∈ 𝐵)
186, 15, 17syl2anc 587 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑋 ⊆ (Atoms‘𝐾)) → ((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋))) ∈ 𝐵)
1918ex 416 . . . . . 6 (𝐾 ∈ HL → (𝑋 ⊆ (Atoms‘𝐾) → ((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋))) ∈ 𝐵))
2019adantrd 495 . . . . 5 (𝐾 ∈ HL → ((𝑋 ⊆ (Atoms‘𝐾) ∧ ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = 𝑋) → ((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋))) ∈ 𝐵))
21 pmapsubcl.m . . . . . . . . . 10 𝑀 = (pmap‘𝐾)
2213, 16, 1, 21, 2polval2N 37543 . . . . . . . . 9 ((𝐾 ∈ HL ∧ ((⊥𝑃𝐾)‘𝑋) ⊆ (Atoms‘𝐾)) → ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = (𝑀‘((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋)))))
239, 22syldan 594 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑋 ⊆ (Atoms‘𝐾)) → ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = (𝑀‘((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋)))))
2423ex 416 . . . . . . 7 (𝐾 ∈ HL → (𝑋 ⊆ (Atoms‘𝐾) → ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = (𝑀‘((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋))))))
25 eqeq1 2742 . . . . . . . 8 (((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = 𝑋 → (((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = (𝑀‘((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋)))) ↔ 𝑋 = (𝑀‘((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋))))))
2625biimpcd 252 . . . . . . 7 (((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = (𝑀‘((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋)))) → (((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = 𝑋𝑋 = (𝑀‘((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋))))))
2724, 26syl6 35 . . . . . 6 (𝐾 ∈ HL → (𝑋 ⊆ (Atoms‘𝐾) → (((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = 𝑋𝑋 = (𝑀‘((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋)))))))
2827impd 414 . . . . 5 (𝐾 ∈ HL → ((𝑋 ⊆ (Atoms‘𝐾) ∧ ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = 𝑋) → 𝑋 = (𝑀‘((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋))))))
2920, 28jcad 516 . . . 4 (𝐾 ∈ HL → ((𝑋 ⊆ (Atoms‘𝐾) ∧ ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = 𝑋) → (((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋))) ∈ 𝐵𝑋 = (𝑀‘((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋)))))))
30 fveq2 6674 . . . . 5 (𝑦 = ((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋))) → (𝑀𝑦) = (𝑀‘((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋)))))
3130rspceeqv 3541 . . . 4 ((((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋))) ∈ 𝐵𝑋 = (𝑀‘((oc‘𝐾)‘((lub‘𝐾)‘((⊥𝑃𝐾)‘𝑋))))) → ∃𝑦𝐵 𝑋 = (𝑀𝑦))
3229, 31syl6 35 . . 3 (𝐾 ∈ HL → ((𝑋 ⊆ (Atoms‘𝐾) ∧ ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = 𝑋) → ∃𝑦𝐵 𝑋 = (𝑀𝑦)))
3310, 1, 21pmapssat 37396 . . . . 5 ((𝐾 ∈ HL ∧ 𝑦𝐵) → (𝑀𝑦) ⊆ (Atoms‘𝐾))
3410, 21, 22polpmapN 37550 . . . . 5 ((𝐾 ∈ HL ∧ 𝑦𝐵) → ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘(𝑀𝑦))) = (𝑀𝑦))
35 sseq1 3902 . . . . . . 7 (𝑋 = (𝑀𝑦) → (𝑋 ⊆ (Atoms‘𝐾) ↔ (𝑀𝑦) ⊆ (Atoms‘𝐾)))
36 2fveq3 6679 . . . . . . . 8 (𝑋 = (𝑀𝑦) → ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘(𝑀𝑦))))
37 id 22 . . . . . . . 8 (𝑋 = (𝑀𝑦) → 𝑋 = (𝑀𝑦))
3836, 37eqeq12d 2754 . . . . . . 7 (𝑋 = (𝑀𝑦) → (((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = 𝑋 ↔ ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘(𝑀𝑦))) = (𝑀𝑦)))
3935, 38anbi12d 634 . . . . . 6 (𝑋 = (𝑀𝑦) → ((𝑋 ⊆ (Atoms‘𝐾) ∧ ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = 𝑋) ↔ ((𝑀𝑦) ⊆ (Atoms‘𝐾) ∧ ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘(𝑀𝑦))) = (𝑀𝑦))))
4039biimprcd 253 . . . . 5 (((𝑀𝑦) ⊆ (Atoms‘𝐾) ∧ ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘(𝑀𝑦))) = (𝑀𝑦)) → (𝑋 = (𝑀𝑦) → (𝑋 ⊆ (Atoms‘𝐾) ∧ ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = 𝑋)))
4133, 34, 40syl2anc 587 . . . 4 ((𝐾 ∈ HL ∧ 𝑦𝐵) → (𝑋 = (𝑀𝑦) → (𝑋 ⊆ (Atoms‘𝐾) ∧ ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = 𝑋)))
4241rexlimdva 3194 . . 3 (𝐾 ∈ HL → (∃𝑦𝐵 𝑋 = (𝑀𝑦) → (𝑋 ⊆ (Atoms‘𝐾) ∧ ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = 𝑋)))
4332, 42impbid 215 . 2 (𝐾 ∈ HL → ((𝑋 ⊆ (Atoms‘𝐾) ∧ ((⊥𝑃𝐾)‘((⊥𝑃𝐾)‘𝑋)) = 𝑋) ↔ ∃𝑦𝐵 𝑋 = (𝑀𝑦)))
444, 43bitrd 282 1 (𝐾 ∈ HL → (𝑋𝐶 ↔ ∃𝑦𝐵 𝑋 = (𝑀𝑦)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 399   = wceq 1542  wcel 2114  wrex 3054  wss 3843  cfv 6339  Basecbs 16586  occoc 16676  lubclub 17668  CLatccla 17833  OPcops 36809  Atomscatm 36900  HLchlt 36987  pmapcpmap 37134  𝑃cpolN 37539  PSubClcpscN 37571
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2020  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2162  ax-12 2179  ax-ext 2710  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5232  ax-pr 5296  ax-un 7479  ax-riotaBAD 36590
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2075  df-mo 2540  df-eu 2570  df-clab 2717  df-cleq 2730  df-clel 2811  df-nfc 2881  df-ne 2935  df-ral 3058  df-rex 3059  df-reu 3060  df-rmo 3061  df-rab 3062  df-v 3400  df-sbc 3681  df-csb 3791  df-dif 3846  df-un 3848  df-in 3850  df-ss 3860  df-nul 4212  df-if 4415  df-pw 4490  df-sn 4517  df-pr 4519  df-op 4523  df-uni 4797  df-iun 4883  df-iin 4884  df-br 5031  df-opab 5093  df-mpt 5111  df-id 5429  df-xp 5531  df-rel 5532  df-cnv 5533  df-co 5534  df-dm 5535  df-rn 5536  df-res 5537  df-ima 5538  df-iota 6297  df-fun 6341  df-fn 6342  df-f 6343  df-f1 6344  df-fo 6345  df-f1o 6346  df-fv 6347  df-riota 7127  df-ov 7173  df-oprab 7174  df-undef 7968  df-proset 17654  df-poset 17672  df-plt 17684  df-lub 17700  df-glb 17701  df-join 17702  df-meet 17703  df-p0 17765  df-p1 17766  df-lat 17772  df-clat 17834  df-oposet 36813  df-ol 36815  df-oml 36816  df-covers 36903  df-ats 36904  df-atl 36935  df-cvlat 36959  df-hlat 36988  df-psubsp 37140  df-pmap 37141  df-polarityN 37540  df-psubclN 37572
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator