eucalgval - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > eucalgval		Structured version Visualization version GIF version

Theorem eucalgval 15904

Description: Euclid's Algorithm eucalg 15909 computes the greatest common divisor of two nonnegative integers by repeatedly replacing the larger of them with its remainder modulo the smaller until the remainder is 0.

The value of the step function 𝐸 for Euclid's Algorithm. (Contributed by Paul Chapman, 31-Mar-2011.) (Revised by Mario Carneiro, 28-May-2014.)

**Hypothesis**
Ref	Expression
eucalgval.1	⊢ 𝐸 = (𝑥 ∈ ℕ₀, 𝑦 ∈ ℕ₀ ↦ if(𝑦 = 0, ⟨𝑥, 𝑦⟩, ⟨𝑦, (𝑥 mod 𝑦)⟩))

**Assertion**
Ref	Expression
eucalgval	⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → (𝐸‘𝑋) = if((2^nd ‘𝑋) = 0, 𝑋, ⟨(2^nd ‘𝑋), ( mod ‘𝑋)⟩))

Distinct variable group: 𝑥,𝑦,𝑋 Allowed substitution hints: 𝐸(𝑥,𝑦)

**Proof of Theorem eucalgval**
Step	Hyp	Ref	Expression
1		df-ov 7140	. . 3 ⊢ ((1^st ‘𝑋)𝐸(2^nd ‘𝑋)) = (𝐸‘⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩)
2		xp1st 7702	. . . 4 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → (1^st ‘𝑋) ∈ ℕ₀)
3		xp2nd 7703	. . . 4 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → (2^nd ‘𝑋) ∈ ℕ₀)
4		eucalgval.1	. . . . 5 ⊢ 𝐸 = (𝑥 ∈ ℕ₀, 𝑦 ∈ ℕ₀ ↦ if(𝑦 = 0, ⟨𝑥, 𝑦⟩, ⟨𝑦, (𝑥 mod 𝑦)⟩))
5	4	eucalgval2 15903	. . . 4 ⊢ (((1^st ‘𝑋) ∈ ℕ₀ ∧ (2^nd ‘𝑋) ∈ ℕ₀) → ((1^st ‘𝑋)𝐸(2^nd ‘𝑋)) = if((2^nd ‘𝑋) = 0, ⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩, ⟨(2^nd ‘𝑋), ((1^st ‘𝑋) mod (2^nd ‘𝑋))⟩))
6	2, 3, 5	syl2anc 586	. . 3 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → ((1^st ‘𝑋)𝐸(2^nd ‘𝑋)) = if((2^nd ‘𝑋) = 0, ⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩, ⟨(2^nd ‘𝑋), ((1^st ‘𝑋) mod (2^nd ‘𝑋))⟩))
7	1, 6	syl5eqr 2869	. 2 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → (𝐸‘⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩) = if((2^nd ‘𝑋) = 0, ⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩, ⟨(2^nd ‘𝑋), ((1^st ‘𝑋) mod (2^nd ‘𝑋))⟩))
8		1st2nd2 7709	. . 3 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → 𝑋 = ⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩)
9	8	fveq2d 6655	. 2 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → (𝐸‘𝑋) = (𝐸‘⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩))
10	8	fveq2d 6655	. . . . 5 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → ( mod ‘𝑋) = ( mod ‘⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩))
11		df-ov 7140	. . . . 5 ⊢ ((1^st ‘𝑋) mod (2^nd ‘𝑋)) = ( mod ‘⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩)
12	10, 11	syl6eqr 2873	. . . 4 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → ( mod ‘𝑋) = ((1^st ‘𝑋) mod (2^nd ‘𝑋)))
13	12	opeq2d 4791	. . 3 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → ⟨(2^nd ‘𝑋), ( mod ‘𝑋)⟩ = ⟨(2^nd ‘𝑋), ((1^st ‘𝑋) mod (2^nd ‘𝑋))⟩)
14	8, 13	ifeq12d 4468	. 2 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → if((2^nd ‘𝑋) = 0, 𝑋, ⟨(2^nd ‘𝑋), ( mod ‘𝑋)⟩) = if((2^nd ‘𝑋) = 0, ⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩, ⟨(2^nd ‘𝑋), ((1^st ‘𝑋) mod (2^nd ‘𝑋))⟩))
15	7, 9, 14	3eqtr4d 2865	1 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → (𝐸‘𝑋) = if((2^nd ‘𝑋) = 0, 𝑋, ⟨(2^nd ‘𝑋), ( mod ‘𝑋)⟩))

Colors of variables: wff setvar class

Syntax hints: → wi 4 = wceq 1537 ∈ wcel 2114 ifcif 4448 ⟨cop 4554 × cxp 5534 ‘cfv 6336 (class class class)co 7137 ∈ cmpo 7139 1^st c1st 7668 2^nd c2nd 7669 0cc0 10518 ℕ₀cn0 11879 mod cmo 13222

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1970 ax-7 2015 ax-8 2116 ax-9 2124 ax-10 2145 ax-11 2161 ax-12 2177 ax-ext 2792 ax-sep 5184 ax-nul 5191 ax-pow 5247 ax-pr 5311 ax-un 7442

This theorem depends on definitions: df-bi 209 df-an 399 df-or 844 df-3an 1085 df-tru 1540 df-ex 1781 df-nf 1785 df-sb 2070 df-mo 2622 df-eu 2653 df-clab 2799 df-cleq 2813 df-clel 2891 df-nfc 2959 df-ral 3138 df-rex 3139 df-rab 3142 df-v 3483 df-sbc 3759 df-dif 3922 df-un 3924 df-in 3926 df-ss 3935 df-nul 4275 df-if 4449 df-sn 4549 df-pr 4551 df-op 4555 df-uni 4820 df-br 5048 df-opab 5110 df-mpt 5128 df-id 5441 df-xp 5542 df-rel 5543 df-cnv 5544 df-co 5545 df-dm 5546 df-rn 5547 df-iota 6295 df-fun 6338 df-fv 6344 df-ov 7140 df-oprab 7141 df-mpo 7142 df-1st 7670 df-2nd 7671

This theorem is referenced by: eucalginv 15906 eucalglt 15907

W3C validator