HomeHome Hilbert Space Explorer < Previous   Next >
Related theorems
Unicode version

Theorem hatomistic 10289
Description: CH is atomistic, i.e. any element is the supremum of its atoms. Remark in [Kalmbach] p. 140.
Hypothesis
Ref Expression
hatomistic.1 |- A e. CH
Assertion
Ref Expression
hatomistic |- A = ( \/H ` {x e. Atoms | x (_ A})
Distinct variable group:   x,A

Proof of Theorem hatomistic
StepHypRef Expression
1 ssrab2 2131 . . . . 5 |- {x e. Atoms | x (_ A} (_ Atoms
2 atssch 10270 . . . . 5 |- Atoms (_ CH
31, 2sstri 2073 . . . 4 |- {x e. Atoms | x (_ A} (_ CH
4 chsupclt 9308 . . . 4 |- ({x e. Atoms | x (_ A} (_ CH -> ( \/H ` {x e. Atoms | x (_ A}) e. CH)
53, 4ax-mp 7 . . 3 |- ( \/H ` {x e. Atoms | x (_ A}) e. CH
6 hatomistic.1 . . . 4 |- A e. CH
76chshi 9097 . . 3 |- A e. SH
8 atelch 10271 . . . . . . . 8 |- (y e. Atoms -> y e. CH)
98anim1i 334 . . . . . . 7 |- ((y e. Atoms /\ y (_ A) -> (y e. CH /\ y (_ A))
10 sseq1 2082 . . . . . . . 8 |- (x = y -> (x (_ A <-> y (_ A))
1110elrab 1905 . . . . . . 7 |- (y e. {x e. Atoms | x (_ A} <-> (y e. Atoms /\ y (_ A))
1210elrab 1905 . . . . . . 7 |- (y e. {x e. CH | x (_ A} <-> (y e. CH /\ y (_ A))
139, 11, 123imtr4 219 . . . . . 6 |- (y e. {x e. Atoms | x (_ A} -> y e. {x e. CH | x (_ A})
1413ssriv 2069 . . . . 5 |- {x e. Atoms | x (_ A} (_ {x e. CH | x (_ A}
15 ssrab2 2131 . . . . . 6 |- {x e. CH | x (_ A} (_ CH
16 chsupss 9310 . . . . . 6 |- (({x e. Atoms | x (_ A} (_ CH /\ {x e. CH | x (_ A} (_ CH) -> ({x e. Atoms | x (_ A} (_ {x e. CH | x (_ A} -> ( \/H ` {x e. Atoms | x (_ A}) (_ ( \/H ` {x e. CH | x (_ A})))
173, 15, 16mp2an 697 . . . . 5 |- ({x e. Atoms | x (_ A} (_ {x e. CH | x (_ A} -> ( \/H ` {x e. Atoms | x (_ A}) (_ ( \/H ` {x e. CH | x (_ A}))
1814, 17ax-mp 7 . . . 4 |- ( \/H ` {x e. Atoms | x (_ A}) (_ ( \/H ` {x e. CH | x (_ A})
19 chsupid 9311 . . . . 5 |- (A e. CH -> ( \/H ` {x e. CH | x (_ A}) = A)
206, 19ax-mp 7 . . . 4 |- ( \/H ` {x e. CH | x (_ A}) = A
2118, 20sseqtr 2093 . . 3 |- ( \/H ` {x e. Atoms | x (_ A}) (_ A
22 elssuni 2526 . . . . . . . . . . 11 |- (y e. {x e. Atoms | x (_ A} -> y (_ U.{x e. Atoms | x (_ A})
2311, 22sylbir 201 . . . . . . . . . 10 |- ((y e. Atoms /\ y (_ A) -> y (_ U.{x e. Atoms | x (_ A})
24 chsupunss 9316 . . . . . . . . . . . 12 |- ({x e. Atoms | x (_ A} (_ CH -> U.{x e. Atoms | x (_ A} (_ ( \/H ` {x e. Atoms | x (_ A}))
253, 24ax-mp 7 . . . . . . . . . . 11 |- U.{x e. Atoms | x (_ A} (_ ( \/H ` {x e. Atoms | x (_ A})
26 sstr2 2071 . . . . . . . . . . 11 |- (y (_ U.{x e. Atoms | x (_ A} -> (U.{x e. Atoms | x (_ A} (_ ( \/H ` {x e. Atoms | x (_ A}) -> y (_ ( \/H ` {x e. Atoms | x (_ A})))
2725, 26mpi 44 . . . . . . . . . 10 |- (y (_ U.{x e. Atoms | x (_ A} -> y (_ ( \/H ` {x e. Atoms | x (_ A}))
2823, 27syl 10 . . . . . . . . 9 |- ((y e. Atoms /\ y (_ A) -> y (_ ( \/H ` {x e. Atoms | x (_ A}))
2928ex 373 . . . . . . . 8 |- (y e. Atoms -> (y (_ A -> y (_ ( \/H ` {x e. Atoms | x (_ A})))
30 atn0 10272 . . . . . . . . . . 11 |- (y e. Atoms -> y =/= 0H)
3130adantr 389 . . . . . . . . . 10 |- ((y e. Atoms /\ y (_ ( \/H ` {x e. Atoms | x (_ A})) -> y =/= 0H)
32 chle0t 9367 . . . . . . . . . . . . . . . 16 |- (y e. CH -> (y (_ 0H <-> y = 0H))
338, 32syl 10 . . . . . . . . . . . . . . 15 |- (y e. Atoms -> (y (_ 0H <-> y = 0H))
34 ssin 2232 . . . . . . . . . . . . . . . 16 |- ((y (_ ( \/H ` {x e. Atoms | x (_ A}) /\ y (_ (_|_` ( \/H ` {x e. Atoms | x (_ A}))) <-> y (_ (( \/H ` {x e. Atoms | x (_ A}) i^i (_|_` ( \/H ` {x e. Atoms | x (_ A}))))
355chocin 9377 . . . . . . . . . . . . . . . . 17 |- (( \/H ` {x e. Atoms | x (_ A}) i^i (_|_` ( \/H ` {x e. Atoms | x (_ A}))) = 0H
3635sseq2i 2086 . . . . . . . . . . . . . . . 16 |- (y (_ (( \/H ` {x e. Atoms | x (_ A}) i^i (_|_` ( \/H ` {x e. Atoms | x (_ A}))) <-> y (_ 0H)
3734, 36bitr2 174 . . . . . . . . . . . . . . 15 |- (y (_ 0H <-> (y (_ ( \/H ` {x e. Atoms | x (_ A}) /\ y (_ (_|_`
( \/H ` {x e. Atoms | x (_ A}))))
3833, 37syl5bbr 534 . . . . . . . . . . . . . 14 |- (y e. Atoms -> ((y (_ ( \/H ` {x e. Atoms | x (_ A}) /\ y (_ (_|_`
( \/H ` {x e. Atoms | x (_ A}))) <-> y = 0H))
3938biimpa 416 . . . . . . . . . . . . 13 |- ((y e. Atoms /\ (y (_ ( \/H ` {x e. Atoms | x (_ A}) /\ y (_ (_|_` ( \/H ` {x e. Atoms | x (_ A})))) -> y = 0H)
4039exp32 377 . . . . . . . . . . . 12 |- (y e. Atoms -> (y (_ ( \/H ` {x e. Atoms | x (_ A}) -> (y (_ (_|_`
( \/H ` {x e. Atoms | x (_ A})) -> y = 0H)))
4140imp 350 . . . . . . . . . . 11 |- ((y e. Atoms /\ y (_ ( \/H ` {x e. Atoms | x (_ A})) -> (y (_ (_|_` ( \/H ` {x e. Atoms | x (_ A})) -> y = 0H))
4241necon3ad 1602 . . . . . . . . . 10 |- ((y e. Atoms /\ y (_ ( \/H ` {x e. Atoms | x (_ A})) -> (y =/= 0H -> -. y (_ (_|_` ( \/H ` {x e. Atoms | x (_ A}))))
4331, 42mpd 26 . . . . . . . . 9 |- ((y e. Atoms /\ y (_ ( \/H ` {x e. Atoms | x (_ A})) -> -. y (_ (_|_` ( \/H ` {x e. Atoms | x (_ A})))
4443ex 373 . . . . . . . 8 |- (y e. Atoms -> (y (_ ( \/H ` {x e. Atoms | x (_ A}) -> -. y (_ (_|_` ( \/H ` {x e. Atoms | x (_ A}))))
4529, 44syld 27 . . . . . . 7 |- (y e. Atoms -> (y (_ A -> -. y (_ (_|_` ( \/H ` {x e. Atoms | x (_ A}))))
46 imnan 242 . . . . . . 7 |- ((y (_ A -> -. y (_ (_|_` ( \/H ` {x e. Atoms | x (_ A}))) <-> -. (y (_ A /\ y (_ (_|_` ( \/H ` {x e. Atoms | x (_ A}))))
4745, 46sylib 198 . . . . . 6 |- (y e. Atoms -> -. (y (_ A /\ y (_ (_|_` ( \/H ` {x e. Atoms | x (_ A}))))
48 ssin 2232 . . . . . . 7 |- ((y (_ A /\ y (_ (_|_` ( \/H ` {x e. Atoms | x (_ A}))) <-> y (_ (A i^i (_|_` ( \/H ` {x e. Atoms | x (_ A}))))
4948negbii 187 . . . . . 6 |- (-. (y (_ A /\ y (_ (_|_` ( \/H ` {x e. Atoms | x (_ A}))) <-> -. y (_ (A i^i (_|_` ( \/H ` {x e. Atoms | x (_ A}))))
5047, 49sylib 198 . . . . 5 |- (y e. Atoms -> -. y (_ (A i^i (_|_` ( \/H ` {x e. Atoms | x (_ A}))))
5150nrex 1729 . . . 4 |- -. E.y e. Atoms y (_ (A i^i (_|_` ( \/H ` {x e. Atoms | x (_ A})))
525choccl 9185 . . . . . . 7 |- (_|_` ( \/H ` {x e. Atoms | x (_ A})) e. CH
536, 52chincl 9383 . . . . . 6 |- (A i^i (_|_` ( \/H ` {x e. Atoms | x (_ A}))) e. CH
5453hatomic 10286 . . . . 5 |- ((A i^i (_|_` ( \/H ` {x e. Atoms | x (_ A}))) =/= 0H -> E.y e. Atoms y (_ (A i^i (_|_` ( \/H ` {x e. Atoms | x (_ A}))))
5554necon1bi 1609 . . . 4 |- (-. E.y e. Atoms y (_ (A i^i (_|_` ( \/H ` {x e. Atoms | x (_ A}))) -> (A i^i (_|_` ( \/H ` {x e. Atoms | x (_ A}))) = 0H)
5651, 55ax-mp 7 . . 3 |- (A i^i (_|_` ( \/H ` {x e. Atoms | x (_ A}))) = 0H
575, 7, 21, 56omlsi 9245 . 2 |- ( \/H ` {x e. Atoms | x (_ A}) = A
5857eqcomi 1479 1 |- A = ( \/H ` {x e. Atoms | x (_ A})
Colors of variables: wff set class
Syntax hints:  -. wn 2   -> wi 3   <-> wb 146   /\ wa 223   = wceq 956   e. wcel 958   =/= wne 1585  E.wrex 1646  {crab 1648   i^i cin 2046   (_ wss 2047  U.cuni 2503  ` cfv 3182  CHcch 8798  _|_cort 8799   \/H chsup 8803  0Hc0h 8804  Atomscat 8833
This theorem is referenced by:  chpssat 10290
This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 962  ax-gen 963  ax-8 964  ax-9 965  ax-10 966  ax-11 967  ax-12 968  ax-13 969  ax-14 970  ax-17 971  ax-4 973  ax-5o 975  ax-6o 978  ax-9o 1123  ax-10o 1140  ax-16 1210  ax-11o 1218  ax-ext 1459  ax-rep 2693  ax-sep 2703  ax-nul 2710  ax-pow 2742  ax-pr 2779  ax-un 2866  ax-reg 4593  ax-inf2 4625  ax-ac 4744  ax-hilex 8869  ax-hfvadd 8870  ax-hvcom 8871  ax-hvass 8872  ax-hv0cl 8873  ax-hvaddid 8874  ax-hfvmul 8875  ax-hvmulid 8876  ax-hvmulass 8877  ax-hvdistr1