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

Theorem mdsymlem6 10330
Description: Lemma for mdsym 10333. This is the converse direction of Lemma 4(i) of [Maeda] p. 168, and is based on the proof of Theorem 1(d) to (e) of [Maeda] p. 167.
Hypotheses
Ref Expression
mdsymlem1.1 |- A e. CH
mdsymlem1.2 |- B e. CH
mdsymlem1.3 |- C = (A vH p)
Assertion
Ref Expression
mdsymlem6 |- (A.p e. Atoms (p (_ (A vH B) -> E.q e. Atoms E.r e. Atoms (p (_ (q vH r) /\ (q (_ A /\ r (_ B))) -> B MH* A)
Distinct variable groups:   r,q,C   q,p,r,A   B,p,q,r

Proof of Theorem mdsymlem6
StepHypRef Expression
1 mdsymlem1.1 . . . . . . . . . . . . . . . 16 |- A e. CH
2 mdsymlem1.2 . . . . . . . . . . . . . . . 16 |- B e. CH
3 mdsymlem1.3 . . . . . . . . . . . . . . . 16 |- C = (A vH p)
41, 2, 3mdsymlem5 10329 . . . . . . . . . . . . . . 15 |- ((q e. Atoms /\ r e. Atoms) -> (-. q = p -> ((p (_ (q vH r) /\ (q (_ A /\ r (_ B)) -> (((c e. CH /\ A (_ c) /\ p e. Atoms) -> (p (_ c -> p (_ ((c i^i B) vH A))))))
5 sseq1 2085 . . . . . . . . . . . . . . . . . . . . . . . 24 |- (q = p -> (q (_ A <-> p (_ A))
6 sstr2 2074 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (p (_ A -> (A (_ ((c i^i B) vH A) -> p (_ ((c i^i B) vH A)))
7 chinclt 9417 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((c e. CH /\ B e. CH) -> (c i^i B) e. CH)
82, 7mpan2 698 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (c e. CH -> (c i^i B) e. CH)
9 chub2t 9426 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((A e. CH /\ (c i^i B) e. CH) -> A (_ ((c i^i B) vH A))
101, 9mpan 697 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ((c i^i B) e. CH -> A (_ ((c i^i B) vH A))
118, 10syl 10 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (c e. CH -> A (_ ((c i^i B) vH A))
126, 11syl5 21 . . . . . . . . . . . . . . . . . . . . . . . 24 |- (p (_ A -> (c e. CH -> p (_ ((c i^i B) vH A)))
135, 12syl6bi 214 . . . . . . . . . . . . . . . . . . . . . . 23 |- (q = p -> (q (_ A -> (c e. CH -> p (_ ((c i^i B) vH A))))
1413imp3a 361 . . . . . . . . . . . . . . . . . . . . . 22 |- (q = p -> ((q (_ A /\ c e. CH) -> p (_ ((c i^i B) vH A)))
1514a1i 8 . . . . . . . . . . . . . . . . . . . . 21 |- (p (_ c -> (q = p -> ((q (_ A /\ c e. CH) -> p (_ ((c i^i B) vH A))))
1615com13 33 . . . . . . . . . . . . . . . . . . . 20 |- ((q (_ A /\ c e. CH) -> (q = p -> (p (_ c -> p (_ ((c i^i B) vH A))))
1716adantrr 397 . . . . . . . . . . . . . . . . . . 19 |- ((q (_ A /\ (c e. CH /\ A (_ c)) -> (q = p -> (p (_ c -> p (_ ((c i^i B) vH A))))
1817ad2ant2r 411 . . . . . . . . . . . . . . . . . 18 |- (((q (_ A /\ r (_ B) /\ ((c e. CH /\ A (_ c) /\ p e. Atoms)) -> (q = p -> (p (_ c -> p (_ ((c i^i B) vH A))))
1918adantll 394 . . . . . . . . . . . . . . . . 17 |- (((p (_ (q vH r) /\ (q (_ A /\ r (_ B)) /\ ((c e. CH /\ A (_ c) /\ p e. Atoms)) -> (q = p -> (p (_ c -> p (_ ((c i^i B) vH A))))
2019com12 11 . . . . . . . . . . . . . . . 16 |- (q = p -> (((p (_ (q vH r) /\ (q (_ A /\ r (_ B)) /\ ((c e. CH /\ A (_ c) /\ p e. Atoms)) -> (p (_ c -> p (_ ((c i^i B) vH A))))
2120exp3a 376 . . . . . . . . . . . . . . 15 |- (q = p -> ((p (_ (q vH r) /\ (q (_ A /\ r (_ B)) -> (((c e. CH /\ A (_ c) /\ p e. Atoms) -> (p (_ c -> p (_ ((c i^i B) vH A)))))
224, 21pm2.61d2 129 . . . . . . . . . . . . . 14 |- ((q e. Atoms /\ r e. Atoms) -> ((p (_ (q vH r) /\ (q (_ A /\ r (_ B)) -> (((c e. CH /\ A (_ c) /\ p e. Atoms) -> (p (_ c -> p (_ ((c i^i B) vH A)))))
2322r19.23aivv 1751 . . . . . . . . . . . . 13 |- (E.q e. Atoms E.r e. Atoms (p (_ (q vH r) /\ (q (_ A /\ r (_ B)) -> (((c e. CH /\ A (_ c) /\ p e. Atoms) -> (p (_ c -> p (_ ((c i^i B) vH A))))
2423com12 11 . . . . . . . . . . . 12 |- (((c e. CH /\ A (_ c) /\ p e. Atoms) -> (E.q e. Atoms E.r e. Atoms (p (_ (q vH r) /\ (q (_ A /\ r (_ B)) -> (p (_ c -> p (_ ((c i^i B) vH A))))
2524imim2d 25 . . . . . . . . . . 11 |- (((c e. CH /\ A (_ c) /\ p e. Atoms) -> ((p (_ (A vH B) -> E.q e. Atoms E.r e. Atoms (p (_ (q vH r) /\ (q (_ A /\ r (_ B))) -> (p (_ (A vH B) -> (p (_ c -> p (_ ((c i^i B) vH A)))))
2625com34 36 . . . . . . . . . 10 |- (((c e. CH /\ A (_ c) /\ p e. Atoms) -> ((p (_ (A vH B) -> E.q e. Atoms E.r e. Atoms (p (_ (q vH r) /\ (q (_ A /\ r (_ B))) -> (p (_ c -> (p (_ (A vH B) -> p (_ ((c i^i B) vH A)))))
2726imp4b 365 . . . . . . . . 9 |- ((((c e. CH /\ A (_ c) /\ p e. Atoms) /\ (p (_ (A vH B) -> E.q e. Atoms E.r e. Atoms (p (_ (q vH r) /\ (q (_ A /\ r (_ B)))) -> ((p (_ c /\ p (_ (A vH B)) -> p (_ ((c i^i B) vH A)))
281, 2chjcom 9386 . . . . . . . . . . . 12 |- (A vH B) = (B vH A)
2928sseq2i 2089 . . . . . . . . . . 11 |- (p (_ (A vH B) <-> p (_ (B vH A))
3029anbi2i 482 . . . . . . . . . 10 |- ((p (_ c /\ p (_ (A vH B)) <-> (p (_ c /\ p (_ (B vH A)))
31 ssin 2235 . . . . . . . . . 10 |- ((p (_ c /\ p (_ (B vH A)) <-> p (_ (c i^i (B vH A)))
3230, 31bitr 173 . . . . . . . . 9 |- ((p (_ c /\ p (_ (A vH B)) <-> p (_ (c i^i (B vH A)))
3327, 32syl5ibr 207 . . . . . . . 8 |- ((((c e. CH /\ A (_ c) /\ p e. Atoms) /\ (p (_ (A vH B) -> E.q e. Atoms E.r e. Atoms (p (_ (q vH r) /\ (q (_ A /\ r (_ B)))) -> (p (_ (c i^i (B vH A)) -> p (_ ((c i^i B) vH A)))
3433ex 373 . . . . . . 7 |- (((c e. CH /\ A (_ c) /\ p e. Atoms) -> ((p (_ (A vH B) -> E.q e. Atoms E.r e. Atoms (p (_ (q vH r) /\ (q (_ A /\ r (_ B))) -> (p (_ (c i^i (B vH A)) -> p (_ ((c i^i B) vH A))))
3534r19.20dva 1712 . . . . . 6 |- ((c e. CH /\ A (_ c) -> (A.p e. Atoms (p (_ (A vH B) -> E.q e. Atoms E.r e. Atoms (p (_ (q vH r) /\ (q (_ A /\ r (_ B))) -> A.p e. Atoms (p (_ (c i^i (B vH A)) -> p (_ ((c i^i B) vH A))))
36 chrelat3t 10293 . . . . . . . 8 |- (((c i^i (B vH A)) e. CH /\ ((c i^i B) vH A) e. CH) -> ((c i^i (B vH A)) (_ ((c i^i B) vH A) <-> A.p e. Atoms (p (_ (c i^i (B vH A)) -> p (_ ((c i^i B) vH A))))
372, 1chjcl 9375 . . . . . . . . 9 |- (B vH A) e. CH
38 chinclt 9417 . . . . . . . . 9 |- ((c e. CH /\ (B vH A) e. CH) -> (c i^i (B vH A)) e. CH)
3937, 38mpan2 698 . . . . . . . 8 |- (c e. CH -> (c i^i (B vH A)) e. CH)
40 chjclt 9324 . . . . . . . . . 10 |- (((c i^i B) e. CH /\ A e. CH) -> ((c i^i B) vH A) e. CH)
411, 40mpan2 698 . . . . . . . . 9 |- ((c i^i B) e. CH -> ((c i^i B) vH A) e. CH)
428, 41syl 10 . . . . . . . 8 |- (c e. CH -> ((c i^i B) vH A) e. CH)
4336, 39, 42sylanc 473 . . . . . . 7 |- (c e. CH -> ((c i^i (B vH A)) (_ ((c i^i B) vH A) <-> A.p e. Atoms (p (_ (c i^i (B vH A)) -> p (_ ((c i^i B) vH A))))
4443adantr 391 . . . . . 6 |- ((c e. CH /\ A (_ c) -> ((c i^i (B vH A)) (_ ((c i^i B) vH A) <-> A.p e. Atoms (p (_ (c i^i (B vH A)) -> p (_ ((c i^i B) vH A))))
4535, 44sylibrd 204 . . . . 5 |- ((c e. CH /\ A (_ c) -> (A.p e. Atoms (p (_ (A vH B) -> E.q e. Atoms E.r e. Atoms (p (_ (q vH r) /\ (q (_ A /\ r (_ B))) -> (c i^i (B vH A)) (_ ((c i^i B) vH A)))
4645ex 373 . . . 4 |- (c e. CH -> (A (_ c -> (A.p e. Atoms (p (_ (A vH B) -> E.q e. Atoms E.r e. Atoms (p (_ (q vH r) /\ (q (_ A /\ r (_ B