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

Theorem mdsymlem6 5781
Description: Lemma for mdsym 5784. 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 group(s):   q,r,C   p,q,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 5780 . . . . . . . . . . . . . . 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 1521 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (q = p -> (q (_ A <-> p (_ A))
6 sstr2 1510 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (p (_ A -> (A (_ ((c i^i B) vH A) -> p (_ ((c i^i B) vH A)))
7 chinclt 5416 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((c e. CH /\ B e. CH) -> (c i^i B) e. CH)
82, 7mpan2 519 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- (c e. CH -> (c i^i B) e. CH)
9 chub2t 5425 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((A e. CH /\ (c i^i B) e. CH) -> A (_ ((c i^i B) vH A))
101, 9mpan 518 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((c i^i B) e. CH -> A (_ ((c i^i B) vH A))
118, 10syl 12 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (c e. CH -> A (_ ((c i^i B) vH A))
126, 11syl5 22 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (p (_ A -> (c e. CH -> p (_ ((c i^i B) vH A)))
135, 12syl6bi 187 . . . . . . . . . . . . . . . . . . . . . . . 24 |- (q = p -> (q (_ A -> (c e. CH -> p (_ ((c i^i B) vH A))))
1413imp3a 279 . . . . . . . . . . . . . . . . . . . . . . 23 |- (q = p -> ((q (_ A /\ c e. CH) -> p (_ ((c i^i B) vH A)))
1514a1i 7 . . . . . . . . . . . . . . . . . . . . . 22 |- (p (_ c -> (q = p -> ((q (_ A /\ c e. CH) -> p (_ ((c i^i B) vH A))))
1615com13 33 . . . . . . . . . . . . . . . . . . . . 21 |- ((q (_ A /\ c e. CH) -> (q = p -> (p (_ c -> p (_ ((c i^i B) vH A))))
1716adantrr 312 . . . . . . . . . . . . . . . . . . . 20 |- ((q (_ A /\ (c e. CH /\ A (_ c)) -> (q = p -> (p (_ c -> p (_ ((c i^i B) vH A))))
1817adantrr 312 . . . . . . . . . . . . . . . . . . 19 |- ((q (_ A /\ ((c e. CH /\ A (_ c) /\ p e. Atoms)) -> (q = p -> (p (_ c -> p (_ ((c i^i B) vH A))))
1918adantlr 310 . . . . . . . . . . . . . . . . . 18 |- (((q (_ A /\ r (_ B) /\ ((c e. CH /\ A (_ c) /\ p e. Atoms)) -> (q = p -> (p (_ c -> p (_ ((c i^i B) vH A))))
2019adantll 309 . . . . . . . . . . . . . . . . 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))))
2120com12 13 . . . . . . . . . . . . . . . 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))))
2221exp3a 292 . . . . . . . . . . . . . . 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)))))
234, 22pm2.61d2 111 . . . . . . . . . . . . . 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)))))
2423r19.23aivv 1287 . . . . . . . . . . . . 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))))
2524com12 13 . . . . . . . . . . . 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))))
2625syl3d 26 . . . . . . . . . . 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)))))
2726com34 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)))))
2827imp4b 283 . . . . . . . . 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)))
291, 2chjcom 5389 . . . . . . . . . . . 12 |- (A vH B) = (B vH A)
3029sseq2i 1525 . . . . . . . . . . 11 |- (p (_ (A vH B) <-> p (_ (B vH A))
3130anbi2i 367 . . . . . . . . . 10 |- ((p (_ c /\ p (_ (A vH B)) <-> (p (_ c /\ p (_ (B vH A)))
32 ssin 1659 . . . . . . . . . 10 |- ((p (_ c /\ p (_ (B vH A)) <-> p (_ (c i^i (B vH A)))
3331, 32bitr 151 . . . . . . . . 9 |- ((p (_ c /\ p (_ (A vH B)) <-> p (_ (c i^i (B vH A)))
3428, 33syl5ibr 182 . . . . . . . 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)))
3534exp 291 . . . . . . 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))))
3635r19.20dva 1256 . . . . . 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))))
37 chrelat3t 5762 . . . . . . . 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))))
382, 1chjcl 5379 . . . . . . . . 9 |- (B vH A) e. CH
39 chinclt 5416 . . . . . . . . 9 |- ((c e. CH /\ (B vH A) e. CH) -> (c i^i (B vH A)) e. CH)
4038, 39mpan2 519 . . . . . . . 8 |- (c e. CH -> (c i^i (B vH A)) e. CH)
41 chjclt 5330 . . . . . . . . . 10 |- (((c i^i B) e. CH /\ A e. CH) -> ((c i^i B) vH A) e. CH)
421, 41mpan2 519 . . . . . . . . 9 |- ((c i^i B) e. CH -> ((c i^i B) vH A) e. CH)
438, 42syl 12 . . . . . . . 8 |- (c e. CH -> ((c i^i B) vH A) e. CH)
4437, 40, 43sylanc 361 . . . . . . 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))))
4544adantr 306 . . . . . 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))))
4636, 45sylibrd 179 . . . . 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)))
4746exp 291 . . . 4 |- (c e. CH -> (A (_ c -> (A.p e. Atoms (p (_ (A vH B) -> E.q e. Atoms E.r e. Atoms (p (_