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

Theorem hatomistic 10284
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 2134 . . . . 5 |- {x e. Atoms | x (_ A} (_ Atoms
2 atssch 10265 . . . . 5 |- Atoms (_ CH
31, 2sstri 2076 . . . 4 |- {x e. Atoms | x (_ A} (_ CH
4 chsupclt 9303 . . . 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 9092 . . 3 |- A e. SH
8 atelch 10266 . . . . . . . 8 |- (y e. Atoms -> y e. CH)
98anim1i 334 . . . . . . 7 |- ((y e. Atoms /\ y (_ A) -> (y e. CH /\ y (_ A))
10 sseq1 2085 . . . . . . . 8 |- (x = y -> (x (_ A <-> y (_ A))
1110elrab 1908 . . . . . . 7 |- (y e. {x e. Atoms | x (_ A} <-> (y e. Atoms /\ y (_ A))
1210elrab 1908 . . . . . . 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 2072 . . . . 5 |- {x e. Atoms | x (_ A} (_ {x e. CH | x (_ A}
15 ssrab2 2134 . . . . . 6 |- {x e. CH | x (_ A} (_ CH
16 chsupss 9305 . . . . . 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 699 . . . . 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 9306 . . . . 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 2096 . . 3 |- ( \/H ` {x e. Atoms | x (_ A}) (_ A
22 elssuni 2530 . . . . . . . . . . 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 9311 . . . . . . . . . . . 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 2074 . . . . . . . . . . 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 10267 . . . . . . . . . . 11 |- (y e. Atoms -> y =/= 0H)
3130adantr 391 . . . . . . . . . 10 |- ((y e. Atoms /\ y (_ ( \/H ` {x e. Atoms | x (_ A})) -> y =/= 0H)
32 chle0t 9362 . . . . . . . . . . . . . . . 16 |- (y e. CH -> (y (_ 0H <-> y = 0H))
338, 32syl 10 . . . . . . . . . . . . . . 15 |- (y e. Atoms -> (y (_ 0H <-> y = 0H))
34 ssin 2235 . . . . . . . . . . . . . . . 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 9372 . . . . . . . . . . . . . . . . 17 |- (( \/H ` {x e. Atoms | x (_ A}) i^i (_|_` ( \/H ` {x e. Atoms | x (_ A}))) = 0H
3635sseq2i 2089 . . . . . . . . . . . . . . . 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 536 . . . . . . . . . . . . . 14 |- (y e. Atoms -> ((y (_ ( \/H ` {x e. Atoms | x (_ A}) /\ y (_ (_|_`
( \/H ` {x e. Atoms | x (_ A}))) <-> y = 0H))
3938biimpa 418 . . . . . . . . . . . . 13 |- ((y e. Atoms /\ (y (_ ( \/H ` {x e. Atoms | x (_ A}) /\ y (_ (_|_` ( \/H ` {x e. Atoms | x (_ A})))) -> y = 0H)
4039exp32 379 . . . . . . . . . . . 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 1605 . . . . . . . . . 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 2235 . . . . . . 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 1732 . . . 4 |- -. E.y e. Atoms y (_ (A i^i (_|_` ( \/H ` {x e. Atoms | x (_ A})))
525choccl 9180 . . . . . . 7 |- (_|_` ( \/H ` {x e. Atoms | x (_ A})) e. CH
536, 52chincl 9378 . . . . . 6 |- (A i^i (_|_` ( \/H ` {x e. Atoms | x (_ A}))) e. CH
5453hatomic 10281 . . . . 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 1612 . . . 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 9240 . 2 |- ( \/H ` {x e. Atoms | x (_ A}) = A
5857eqcomi 1482 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 958   e. wcel 960   =/= wne 1588  E.wrex 1649  {crab 1651   i^i cin 2049   (_ wss 2050  U.cuni 2507  ` cfv 3188  CHcch 8793  _|_cort 8794   \/H chsup 8798  0Hc0h 8799  Atomscat 8828
This theorem is referenced by:  chpssat 10285
This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 964  ax-gen 965  ax-8 966  ax-9 967  ax-10 968  ax-11 969  ax-12 970  ax-13 971  ax-14 972  ax-17 973  ax-4 975  ax-5o 977  ax-6o 980  ax-9o 1125  ax-10o 1142  ax-16 1212  ax-11o 1220  ax-ext 1462  ax-rep 2698  ax-sep 2708  ax-nul 2715  ax-pow 2748  ax-pr 2785  ax-un 2872  ax-reg 4602  ax-inf2 4634  ax-ac 4754  ax-hilex 8864  ax-hfvadd 8865  ax-hvcom 8866  ax-hvass 8867  ax-hv0cl 8868  ax-hvaddid 8869  ax-hfvmul 8870  ax-hvmulid 8871  ax-hvmulass 8872  ax-hvdistr1