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

Theorem pjclem1 5649
Description: Lemma for projection commutation theorem.
Hypotheses
Ref Expression
pjclem1.1 |- G e. CH
pjclem1.2 |- H e. CH
Assertion
Ref Expression
pjclem1 |- (G Com H -> ((Proj` G) o. (Proj` H)) = (Proj`
(G i^i H)))

Proof of Theorem pjclem1
StepHypRef Expression
1 pjclem1.1 . . . . . 6 |- G e. CH
2 pjclem1.2 . . . . . 6 |- H e. CH
31, 2cmbr 5499 . . . . 5 |- (G Com H <-> G = ((G i^i H) vH (G i^i (_|_` H))))
4 fveq2 2832 . . . . 5 |- (G = ((G i^i H) vH (G i^i (_|_` H))) -> (Proj` G) = (Proj`
((G i^i H) vH (G i^i (_|_` H)))))
53, 4sylbi 174 . . . 4 |- (G Com H -> (Proj` G) = (Proj` ((G i^i H) vH (G i^i (_|_` H)))))
6 inss2 1658 . . . . . . . 8 |- (G i^i H) (_ H
71chocl 5192 . . . . . . . . . 10 |- (_|_` G) e. CH
82, 7chub2 5391 . . . . . . . . 9 |- H (_ ((_|_` G) vH H)
91, 2chdmm3 5400 . . . . . . . . 9 |- (_|_` (G i^i (_|_` H))) = ((_|_` G) vH H)
108, 9sseqtr4 1533 . . . . . . . 8 |- H (_ (_|_` (G i^i (_|_` H)))
116, 10sstri 1512 . . . . . . 7 |- (G i^i H) (_ (_|_` (G i^i (_|_` H)))
121, 2chincl 5382 . . . . . . . 8 |- (G i^i H) e. CH
132chocl 5192 . . . . . . . . 9 |- (_|_` H) e. CH
141, 13chincl 5382 . . . . . . . 8 |- (G i^i (_|_` H)) e. CH
1512, 14pjscj 5640 . . . . . . 7 |- ((G i^i H) (_ (_|_` (G i^i (_|_` H))) -> (Proj` ((G i^i H) vH (G i^i (_|_` H)))) = ((Proj` (G i^i H)) +P (Proj` (G i^i (_|_` H)))))
1611, 15ax-mp 6 . . . . . 6 |- (Proj` ((G i^i H) vH (G i^i (_|_` H)))) = ((Proj` (G i^i H)) +P (Proj` (G i^i (_|_` H))))
1716cleq2i 1111 . . . . 5 |- ((Proj` G) = (Proj`
((G i^i H) vH (G i^i (_|_` H)))) <-> (Proj` G) = ((Proj`
(G i^i H)) +P (Proj` (G i^i (_|_` H)))))
18 coeq2 2503 . . . . . 6 |- ((Proj` G) = ((Proj` (G i^i H)) +P (Proj` (G i^i (_|_` H)))) -> ((Proj` H) o. (Proj` G)) = ((Proj` H) o. ((Proj`
(G i^i H)) +P (Proj` (G i^i (_|_` H))))))
1912pjf 5588 . . . . . . . . . 10 |- (Proj` (G i^i H)):H~-->H~
2014pjf 5588 . . . . . . . . . 10 |- (Proj` (G i^i (_|_` H))):H~-->H~
212, 19, 20pjsdi 5625 . . . . . . . . 9 |- ((Proj` H) o. ((Proj` (G i^i H)) +P (Proj` (G i^i (_|_` H))))) = (((Proj` H) o. (Proj` (G i^i H))) +P ((Proj` H) o. (Proj` (G i^i (_|_` H)))))
2212, 2pjss1co 5633 . . . . . . . . . . 11 |- ((G i^i H) (_ H <-> ((Proj` H) o. (Proj` (G i^i H))) = (Proj` (G i^i H)))
236, 22mpbi 164 . . . . . . . . . 10 |- ((Proj` H) o. (Proj` (G i^i H))) = (Proj` (G i^i H))
242, 14pjorthco 5639 . . . . . . . . . . 11 |- (H (_ (_|_` (G i^i (_|_` H))) -> ((Proj` H) o. (Proj` (G i^i (_|_` H)))) = (Proj` 0H))
2510, 24ax-mp 6 . . . . . . . . . 10 |- ((Proj` H) o. (Proj` (G i^i (_|_` H)))) = (Proj` 0H)
2623, 25opreq12i 3011 . . . . . . . . 9 |- (((Proj` H) o. (Proj` (G i^i H))) +P ((Proj` H) o. (Proj` (G i^i (_|_` H))))) = ((Proj`
(G i^i H)) +P (Proj` 0H))
2719hoid0 5614 . . . . . . . . 9 |- ((Proj` (G i^i H)) +P (Proj`
0H)) = (Proj` (G i^i H))
2821, 26, 273eqtr 1123 . . . . . . . 8 |- ((Proj` H) o. ((Proj` (G i^i H)) +P (Proj` (G i^i (_|_` H))))) = (Proj` (G i^i H))
2928cleq2i 1111 . . . . . . 7 |- (((Proj` H) o. (Proj` G)) = ((Proj` H) o. ((Proj`
(G i^i H)) +P (Proj` (G i^i (_|_` H))))) <-> ((Proj` H) o. (Proj` G)) = (Proj` (G i^i H)))
30 coeq2 2503 . . . . . . . 8 |- (((Proj` H) o. (Proj` G)) = (Proj`
(G i^i H)) -> ((Proj` G) o. ((Proj` H) o. (Proj` G))) = ((Proj`
G) o. (Proj` (G i^i H))))
31 inss1 1657 . . . . . . . . 9 |- (G i^i H) (_ G
3212, 1pjss1co 5633 . . . . . . . . 9 |- ((G i^i H) (_ G <-> ((Proj` G) o. (Proj` (G i^i H))) = (Proj` (G i^i H)))
3331, 32mpbi 164 . . . . . . . 8 |- ((Proj` G) o. (Proj` (G i^i H))) = (Proj` (G i^i H))
3430, 33syl6eq 1140 . . . . . . 7 |- (((Proj` H) o. (Proj` G)) = (Proj`
(G i^i H)) -> ((Proj` G) o. ((Proj` H) o. (Proj` G))) = (Proj` (G i^i H)))
3529, 34sylbi 174 . . . . . 6 |- (((Proj` H) o. (Proj` G)) = ((Proj` H) o. ((Proj`
(G i^i H)) +P (Proj` (G i^i (_|_` H))))) -> ((Proj` G) o. ((Proj` H) o. (Proj` G))) = (Proj` (G i^i H)))
3618, 35syl 12 . . . . 5 |- ((Proj` G) = ((Proj` (G i^i H)) +P (Proj` (G i^i (_|_` H)))) -> ((Proj` G) o. ((Proj` H) o. (Proj` G))) = (Proj` (G i^i H)))
3717, 36sylbi 174 . . . 4 |- ((Proj` G) = (Proj`
((G i^i H) vH (G i^i (_|_` H)))) -> ((Proj` G) o. ((Proj` H) o. (Proj` G))) = (Proj` (G i^i H)))
385, 37syl 12 . . 3 |- (G Com H -> ((Proj` G) o. ((Proj` H) o. (Proj` G))) = (Proj` (G i^i H)))
391, 2cmcm3 5503 . . . . 5 |- (G Com H <-> (_|_`
G) Com H)
407, 2cmbr 5499 . . . . 5 |- ((_|_` G) Com H <-> (_|_`
G) = (((_|_`
G) i^i H) vH ((_|_` G) i^i (_|_` H))))
4139, 40bitr 151 . . . 4 |- (G Com H <-> (_|_`
G) = (((_|_`
G) i^i H) vH ((_|_` G) i^i (_|_` H))))
42 fveq2 2832 . . . . 5 |- ((_|_` G) = (((_|_` G) i^i H) vH ((_|_`
G) i^i (_|_` H))) -> (Proj` (_|_` G)) = (Proj` (((_|_`
G) i^i H) vH ((_|_` G) i^i (_|_` H)))))
43 inss2 1658 . . . . . . . . 9 |- ((_|_` G) i^i H) (_ H
442, 1chub2 5391 . . . . . . . . . 10 |- H (_ (G vH H)
451, 2chdmm4 5401 . . . . . . . . . 10 |- (_|_` ((_|_`
G) i^i (_|_` H))) = (G vH H)
4644, 45sseqtr4 1533 . . . . . . . . 9 |- H (_ (_|_` ((_|_` G) i^i (_|_` H)))
4743, 46sstri 1512 . . . . . . . 8 |- ((_|_` G) i^i H) (_ (_|_` ((_|_` G) i^i (_|_` H)))
487, 2chincl 5382 . . . . . . . . 9 |- ((_|_` G) i^i H) e. CH
497, 13chincl 5382 . . . . . . . . 9 |- ((_|_` G) i^i (_|_` H)) e. CH
5048, 49pjscj 5640 . . . . . . . 8 |- (((_|_` G) i^i H) (_ (_|_` ((_|_` G) i^i (_|_` H))) -> (Proj` (((_|_` G) i^i H) vH ((_|_` G) i^i (_|_` H)))) = ((Proj` ((_|_` G) i^i H)) +P (Proj` ((_|_`
G) i^i (_|_` H)))))
5147, 50ax-mp 6 . . . . . . 7 |- (Proj` (((_|_` G) i^i H) vH ((_|_` G) i^i (_|_` H)))) = ((Proj` ((_|_` G) i^i H)) +P (Proj` ((_|_`
G) i^i (_|_` H))))
5251cleq2i 1111 . . . . . 6 |- ((Proj` (_|_` G)) = (Proj` (((_|_`
G) i^i H) vH ((_|_` G) i^i (_|_` H)))) <-> (Proj` (_|_` G)) = ((Proj` ((_|_` G) i^i H)) +P (Proj` ((_|_` G) i^i (_|_` H)))))
53 coeq2 2503 . . . . . . 7 |- ((Proj` (_|_` G)) = ((Proj`
((_|_`
G) i^i H)) +P (Proj` ((_|_` G) i^i (_|_` H)))) -> ((Proj` H) o. (Proj` (_|_` G))) = ((Proj` H) o. ((Proj` ((_|_` G) i^i H)) +P (Proj` ((_|_` G) i^i (_|_` H))))))
5448pjf 5588 . . . . . . . . . . 11 |- (Proj` ((_|_`
G) i^i H