Intuitionistic Logic Explorer |
< Previous
Next >
Nearby theorems |
||
Mirrors > Home > ILE Home > Th. List > dvdssqlem | GIF version |
Description: Lemma for dvdssq 11726. (Contributed by Scott Fenton, 18-Apr-2014.) (Revised by Mario Carneiro, 19-Apr-2014.) |
Ref | Expression |
---|---|
dvdssqlem | ⊢ ((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (𝑀 ∥ 𝑁 ↔ (𝑀↑2) ∥ (𝑁↑2))) |
Step | Hyp | Ref | Expression |
---|---|---|---|
1 | nnz 9080 | . . 3 ⊢ (𝑀 ∈ ℕ → 𝑀 ∈ ℤ) | |
2 | nnz 9080 | . . 3 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℤ) | |
3 | dvdssqim 11719 | . . 3 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 ∥ 𝑁 → (𝑀↑2) ∥ (𝑁↑2))) | |
4 | 1, 2, 3 | syl2an 287 | . 2 ⊢ ((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (𝑀 ∥ 𝑁 → (𝑀↑2) ∥ (𝑁↑2))) |
5 | sqgcd 11724 | . . . . . . 7 ⊢ ((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) → ((𝑀 gcd 𝑁)↑2) = ((𝑀↑2) gcd (𝑁↑2))) | |
6 | 5 | adantr 274 | . . . . . 6 ⊢ (((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) ∧ (𝑀↑2) ∥ (𝑁↑2)) → ((𝑀 gcd 𝑁)↑2) = ((𝑀↑2) gcd (𝑁↑2))) |
7 | nnsqcl 10369 | . . . . . . . 8 ⊢ (𝑀 ∈ ℕ → (𝑀↑2) ∈ ℕ) | |
8 | nnsqcl 10369 | . . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (𝑁↑2) ∈ ℕ) | |
9 | gcdeq 11718 | . . . . . . . 8 ⊢ (((𝑀↑2) ∈ ℕ ∧ (𝑁↑2) ∈ ℕ) → (((𝑀↑2) gcd (𝑁↑2)) = (𝑀↑2) ↔ (𝑀↑2) ∥ (𝑁↑2))) | |
10 | 7, 8, 9 | syl2an 287 | . . . . . . 7 ⊢ ((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (((𝑀↑2) gcd (𝑁↑2)) = (𝑀↑2) ↔ (𝑀↑2) ∥ (𝑁↑2))) |
11 | 10 | biimpar 295 | . . . . . 6 ⊢ (((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) ∧ (𝑀↑2) ∥ (𝑁↑2)) → ((𝑀↑2) gcd (𝑁↑2)) = (𝑀↑2)) |
12 | 6, 11 | eqtrd 2172 | . . . . 5 ⊢ (((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) ∧ (𝑀↑2) ∥ (𝑁↑2)) → ((𝑀 gcd 𝑁)↑2) = (𝑀↑2)) |
13 | gcdcl 11662 | . . . . . . . . 9 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 gcd 𝑁) ∈ ℕ0) | |
14 | 1, 2, 13 | syl2an 287 | . . . . . . . 8 ⊢ ((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (𝑀 gcd 𝑁) ∈ ℕ0) |
15 | 14 | nn0red 9038 | . . . . . . 7 ⊢ ((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (𝑀 gcd 𝑁) ∈ ℝ) |
16 | 14 | nn0ge0d 9040 | . . . . . . 7 ⊢ ((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) → 0 ≤ (𝑀 gcd 𝑁)) |
17 | nnre 8734 | . . . . . . . 8 ⊢ (𝑀 ∈ ℕ → 𝑀 ∈ ℝ) | |
18 | 17 | adantr 274 | . . . . . . 7 ⊢ ((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) → 𝑀 ∈ ℝ) |
19 | nnnn0 8991 | . . . . . . . . 9 ⊢ (𝑀 ∈ ℕ → 𝑀 ∈ ℕ0) | |
20 | 19 | nn0ge0d 9040 | . . . . . . . 8 ⊢ (𝑀 ∈ ℕ → 0 ≤ 𝑀) |
21 | 20 | adantr 274 | . . . . . . 7 ⊢ ((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) → 0 ≤ 𝑀) |
22 | sq11 10372 | . . . . . . 7 ⊢ ((((𝑀 gcd 𝑁) ∈ ℝ ∧ 0 ≤ (𝑀 gcd 𝑁)) ∧ (𝑀 ∈ ℝ ∧ 0 ≤ 𝑀)) → (((𝑀 gcd 𝑁)↑2) = (𝑀↑2) ↔ (𝑀 gcd 𝑁) = 𝑀)) | |
23 | 15, 16, 18, 21, 22 | syl22anc 1217 | . . . . . 6 ⊢ ((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (((𝑀 gcd 𝑁)↑2) = (𝑀↑2) ↔ (𝑀 gcd 𝑁) = 𝑀)) |
24 | 23 | adantr 274 | . . . . 5 ⊢ (((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) ∧ (𝑀↑2) ∥ (𝑁↑2)) → (((𝑀 gcd 𝑁)↑2) = (𝑀↑2) ↔ (𝑀 gcd 𝑁) = 𝑀)) |
25 | 12, 24 | mpbid 146 | . . . 4 ⊢ (((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) ∧ (𝑀↑2) ∥ (𝑁↑2)) → (𝑀 gcd 𝑁) = 𝑀) |
26 | gcddvds 11659 | . . . . . . 7 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((𝑀 gcd 𝑁) ∥ 𝑀 ∧ (𝑀 gcd 𝑁) ∥ 𝑁)) | |
27 | 1, 2, 26 | syl2an 287 | . . . . . 6 ⊢ ((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) → ((𝑀 gcd 𝑁) ∥ 𝑀 ∧ (𝑀 gcd 𝑁) ∥ 𝑁)) |
28 | 27 | adantr 274 | . . . . 5 ⊢ (((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) ∧ (𝑀↑2) ∥ (𝑁↑2)) → ((𝑀 gcd 𝑁) ∥ 𝑀 ∧ (𝑀 gcd 𝑁) ∥ 𝑁)) |
29 | 28 | simprd 113 | . . . 4 ⊢ (((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) ∧ (𝑀↑2) ∥ (𝑁↑2)) → (𝑀 gcd 𝑁) ∥ 𝑁) |
30 | 25, 29 | eqbrtrrd 3952 | . . 3 ⊢ (((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) ∧ (𝑀↑2) ∥ (𝑁↑2)) → 𝑀 ∥ 𝑁) |
31 | 30 | ex 114 | . 2 ⊢ ((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) → ((𝑀↑2) ∥ (𝑁↑2) → 𝑀 ∥ 𝑁)) |
32 | 4, 31 | impbid 128 | 1 ⊢ ((𝑀 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (𝑀 ∥ 𝑁 ↔ (𝑀↑2) ∥ (𝑁↑2))) |
Colors of variables: wff set class |
Syntax hints: → wi 4 ∧ wa 103 ↔ wb 104 = wceq 1331 ∈ wcel 1480 class class class wbr 3929 (class class class)co 5774 ℝcr 7626 0cc0 7627 ≤ cle 7808 ℕcn 8727 2c2 8778 ℕ0cn0 8984 ℤcz 9061 ↑cexp 10299 ∥ cdvds 11500 gcd cgcd 11642 |
This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 105 ax-ia2 106 ax-ia3 107 ax-in1 603 ax-in2 604 ax-io 698 ax-5 1423 ax-7 1424 ax-gen 1425 ax-ie1 1469 ax-ie2 1470 ax-8 1482 ax-10 1483 ax-11 1484 ax-i12 1485 ax-bndl 1486 ax-4 1487 ax-13 1491 ax-14 1492 ax-17 1506 ax-i9 1510 ax-ial 1514 ax-i5r 1515 ax-ext 2121 ax-coll 4043 ax-sep 4046 ax-nul 4054 ax-pow 4098 ax-pr 4131 ax-un 4355 ax-setind 4452 ax-iinf 4502 ax-cnex 7718 ax-resscn 7719 ax-1cn 7720 ax-1re 7721 ax-icn 7722 ax-addcl 7723 ax-addrcl 7724 ax-mulcl 7725 ax-mulrcl 7726 ax-addcom 7727 ax-mulcom 7728 ax-addass 7729 ax-mulass 7730 ax-distr 7731 ax-i2m1 7732 ax-0lt1 7733 ax-1rid 7734 ax-0id 7735 ax-rnegex 7736 ax-precex 7737 ax-cnre 7738 ax-pre-ltirr 7739 ax-pre-ltwlin 7740 ax-pre-lttrn 7741 ax-pre-apti 7742 ax-pre-ltadd 7743 ax-pre-mulgt0 7744 ax-pre-mulext 7745 ax-arch 7746 ax-caucvg 7747 |
This theorem depends on definitions: df-bi 116 df-stab 816 df-dc 820 df-3or 963 df-3an 964 df-tru 1334 df-fal 1337 df-nf 1437 df-sb 1736 df-eu 2002 df-mo 2003 df-clab 2126 df-cleq 2132 df-clel 2135 df-nfc 2270 df-ne 2309 df-nel 2404 df-ral 2421 df-rex 2422 df-reu 2423 df-rmo 2424 df-rab 2425 df-v 2688 df-sbc 2910 df-csb 3004 df-dif 3073 df-un 3075 df-in 3077 df-ss 3084 df-nul 3364 df-if 3475 df-pw 3512 df-sn 3533 df-pr 3534 df-op 3536 df-uni 3737 df-int 3772 df-iun 3815 df-br 3930 df-opab 3990 df-mpt 3991 df-tr 4027 df-id 4215 df-po 4218 df-iso 4219 df-iord 4288 df-on 4290 df-ilim 4291 df-suc 4293 df-iom 4505 df-xp 4545 df-rel 4546 df-cnv 4547 df-co 4548 df-dm 4549 df-rn 4550 df-res 4551 df-ima 4552 df-iota 5088 df-fun 5125 df-fn 5126 df-f 5127 df-f1 5128 df-fo 5129 df-f1o 5130 df-fv 5131 df-riota 5730 df-ov 5777 df-oprab 5778 df-mpo 5779 df-1st 6038 df-2nd 6039 df-recs 6202 df-frec 6288 df-sup 6871 df-pnf 7809 df-mnf 7810 df-xr 7811 df-ltxr 7812 df-le 7813 df-sub 7942 df-neg 7943 df-reap 8344 df-ap 8351 df-div 8440 df-inn 8728 df-2 8786 df-3 8787 df-4 8788 df-n0 8985 df-z 9062 df-uz 9334 df-q 9419 df-rp 9449 df-fz 9798 df-fzo 9927 df-fl 10050 df-mod 10103 df-seqfrec 10226 df-exp 10300 df-cj 10621 df-re 10622 df-im 10623 df-rsqrt 10777 df-abs 10778 df-dvds 11501 df-gcd 11643 |
This theorem is referenced by: dvdssq 11726 |
Copyright terms: Public domain | W3C validator |