Intuitionistic Logic Explorer < Previous   Next > Nearby theorems Mirrors  >  Home  >  ILE Home  >  Th. List  >  mulcnsrec GIF version

Theorem mulcnsrec 7530
 Description: Technical trick to permit re-use of some equivalence class lemmas for operation laws. The trick involves ecidg 6423, which shows that the coset of the converse epsilon relation (which is not an equivalence relation) leaves a set unchanged. See also dfcnqs 7528. (Contributed by NM, 13-Aug-1995.)
Assertion
Ref Expression
mulcnsrec (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → ([⟨𝐴, 𝐵⟩] E · [⟨𝐶, 𝐷⟩] E ) = [⟨((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))), ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷))⟩] E )

Proof of Theorem mulcnsrec
StepHypRef Expression
1 mulcnsr 7522 . 2 (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → (⟨𝐴, 𝐵⟩ · ⟨𝐶, 𝐷⟩) = ⟨((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))), ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷))⟩)
2 opelxpi 4509 . . . 4 ((𝐴R𝐵R) → ⟨𝐴, 𝐵⟩ ∈ (R × R))
3 ecidg 6423 . . . 4 (⟨𝐴, 𝐵⟩ ∈ (R × R) → [⟨𝐴, 𝐵⟩] E = ⟨𝐴, 𝐵⟩)
42, 3syl 14 . . 3 ((𝐴R𝐵R) → [⟨𝐴, 𝐵⟩] E = ⟨𝐴, 𝐵⟩)
5 opelxpi 4509 . . . 4 ((𝐶R𝐷R) → ⟨𝐶, 𝐷⟩ ∈ (R × R))
6 ecidg 6423 . . . 4 (⟨𝐶, 𝐷⟩ ∈ (R × R) → [⟨𝐶, 𝐷⟩] E = ⟨𝐶, 𝐷⟩)
75, 6syl 14 . . 3 ((𝐶R𝐷R) → [⟨𝐶, 𝐷⟩] E = ⟨𝐶, 𝐷⟩)
84, 7oveqan12d 5725 . 2 (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → ([⟨𝐴, 𝐵⟩] E · [⟨𝐶, 𝐷⟩] E ) = (⟨𝐴, 𝐵⟩ · ⟨𝐶, 𝐷⟩))
9 simpll 499 . . . . . 6 (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → 𝐴R)
10 simprl 501 . . . . . 6 (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → 𝐶R)
11 mulclsr 7450 . . . . . 6 ((𝐴R𝐶R) → (𝐴 ·R 𝐶) ∈ R)
129, 10, 11syl2anc 406 . . . . 5 (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → (𝐴 ·R 𝐶) ∈ R)
13 m1r 7448 . . . . . 6 -1RR
14 simplr 500 . . . . . . 7 (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → 𝐵R)
15 simprr 502 . . . . . . 7 (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → 𝐷R)
16 mulclsr 7450 . . . . . . 7 ((𝐵R𝐷R) → (𝐵 ·R 𝐷) ∈ R)
1714, 15, 16syl2anc 406 . . . . . 6 (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → (𝐵 ·R 𝐷) ∈ R)
18 mulclsr 7450 . . . . . 6 ((-1RR ∧ (𝐵 ·R 𝐷) ∈ R) → (-1R ·R (𝐵 ·R 𝐷)) ∈ R)
1913, 17, 18sylancr 408 . . . . 5 (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → (-1R ·R (𝐵 ·R 𝐷)) ∈ R)
20 addclsr 7449 . . . . 5 (((𝐴 ·R 𝐶) ∈ R ∧ (-1R ·R (𝐵 ·R 𝐷)) ∈ R) → ((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))) ∈ R)
2112, 19, 20syl2anc 406 . . . 4 (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → ((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))) ∈ R)
22 mulclsr 7450 . . . . . 6 ((𝐵R𝐶R) → (𝐵 ·R 𝐶) ∈ R)
2314, 10, 22syl2anc 406 . . . . 5 (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → (𝐵 ·R 𝐶) ∈ R)
24 mulclsr 7450 . . . . . 6 ((𝐴R𝐷R) → (𝐴 ·R 𝐷) ∈ R)
259, 15, 24syl2anc 406 . . . . 5 (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → (𝐴 ·R 𝐷) ∈ R)
26 addclsr 7449 . . . . 5 (((𝐵 ·R 𝐶) ∈ R ∧ (𝐴 ·R 𝐷) ∈ R) → ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷)) ∈ R)
2723, 25, 26syl2anc 406 . . . 4 (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷)) ∈ R)
28 opelxpi 4509 . . . 4 ((((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))) ∈ R ∧ ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷)) ∈ R) → ⟨((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))), ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷))⟩ ∈ (R × R))
2921, 27, 28syl2anc 406 . . 3 (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → ⟨((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))), ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷))⟩ ∈ (R × R))
30 ecidg 6423 . . 3 (⟨((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))), ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷))⟩ ∈ (R × R) → [⟨((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))), ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷))⟩] E = ⟨((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))), ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷))⟩)
3129, 30syl 14 . 2 (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → [⟨((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))), ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷))⟩] E = ⟨((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))), ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷))⟩)
321, 8, 313eqtr4d 2142 1 (((𝐴R𝐵R) ∧ (𝐶R𝐷R)) → ([⟨𝐴, 𝐵⟩] E · [⟨𝐶, 𝐷⟩] E ) = [⟨((𝐴 ·R 𝐶) +R (-1R ·R (𝐵 ·R 𝐷))), ((𝐵 ·R 𝐶) +R (𝐴 ·R 𝐷))⟩] E )
 Colors of variables: wff set class Syntax hints:   → wi 4   ∧ wa 103   = wceq 1299   ∈ wcel 1448  ⟨cop 3477   E cep 4147   × cxp 4475  ◡ccnv 4476  (class class class)co 5706  [cec 6357  Rcnr 7006  -1Rcm1r 7009   +R cplr 7010   ·R cmr 7011   · cmul 7505 This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 584  ax-in2 585  ax-io 671  ax-5 1391  ax-7 1392  ax-gen 1393  ax-ie1 1437  ax-ie2 1438  ax-8 1450  ax-10 1451  ax-11 1452  ax-i12 1453  ax-bndl 1454  ax-4 1455  ax-13 1459  ax-14 1460  ax-17 1474  ax-i9 1478  ax-ial 1482  ax-i5r 1483  ax-ext 2082  ax-coll 3983  ax-sep 3986  ax-nul 3994  ax-pow 4038  ax-pr 4069  ax-un 4293  ax-setind 4390  ax-iinf 4440 This theorem depends on definitions:  df-bi 116  df-dc 787  df-3or 931  df-3an 932  df-tru 1302  df-fal 1305  df-nf 1405  df-sb 1704  df-eu 1963  df-mo 1964  df-clab 2087  df-cleq 2093  df-clel 2096  df-nfc 2229  df-ne 2268  df-ral 2380  df-rex 2381  df-reu 2382  df-rab 2384  df-v 2643  df-sbc 2863  df-csb 2956  df-dif 3023  df-un 3025  df-in 3027  df-ss 3034  df-nul 3311  df-pw 3459  df-sn 3480  df-pr 3481  df-op 3483  df-uni 3684  df-int 3719  df-iun 3762  df-br 3876  df-opab 3930  df-mpt 3931  df-tr 3967  df-eprel 4149  df-id 4153  df-po 4156  df-iso 4157  df-iord 4226  df-on 4228  df-suc 4231  df-iom 4443  df-xp 4483  df-rel 4484  df-cnv 4485  df-co 4486  df-dm 4487  df-rn 4488  df-res 4489  df-ima 4490  df-iota 5024  df-fun 5061  df-fn 5062  df-f 5063  df-f1 5064  df-fo 5065  df-f1o 5066  df-fv 5067  df-ov 5709  df-oprab 5710  df-mpo 5711  df-1st 5969  df-2nd 5970  df-recs 6132  df-irdg 6197  df-1o 6243  df-2o 6244  df-oadd 6247  df-omul 6248  df-er 6359  df-ec 6361  df-qs 6365  df-ni 7013  df-pli 7014  df-mi 7015  df-lti 7016  df-plpq 7053  df-mpq 7054  df-enq 7056  df-nqqs 7057  df-plqqs 7058  df-mqqs 7059  df-1nqqs 7060  df-rq 7061  df-ltnqqs 7062  df-enq0 7133  df-nq0 7134  df-0nq0 7135  df-plq0 7136  df-mq0 7137  df-inp 7175  df-i1p 7176  df-iplp 7177  df-imp 7178  df-enr 7422  df-nr 7423  df-plr 7424  df-mr 7425  df-m1r 7429  df-c 7506  df-mul 7512 This theorem is referenced by:  axmulcom  7556  axmulass  7558  axdistr  7559
 Copyright terms: Public domain W3C validator