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 16616

Description: Euclid's Algorithm eucalg 16621 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 7434	. . 3 ⊢ ((1^st ‘𝑋)𝐸(2^nd ‘𝑋)) = (𝐸‘⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩)
2		xp1st 8045	. . . 4 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → (1^st ‘𝑋) ∈ ℕ₀)
3		xp2nd 8046	. . . 4 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → (2^nd ‘𝑋) ∈ ℕ₀)
4		eucalgval.1	. . . . 5 ⊢ 𝐸 = (𝑥 ∈ ℕ₀, 𝑦 ∈ ℕ₀ ↦ if(𝑦 = 0, ⟨𝑥, 𝑦⟩, ⟨𝑦, (𝑥 mod 𝑦)⟩))
5	4	eucalgval2 16615	. . . 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 584	. . 3 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → ((1^st ‘𝑋)𝐸(2^nd ‘𝑋)) = if((2^nd ‘𝑋) = 0, ⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩, ⟨(2^nd ‘𝑋), ((1^st ‘𝑋) mod (2^nd ‘𝑋))⟩))
7	1, 6	eqtr3id 2789	. 2 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → (𝐸‘⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩) = if((2^nd ‘𝑋) = 0, ⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩, ⟨(2^nd ‘𝑋), ((1^st ‘𝑋) mod (2^nd ‘𝑋))⟩))
8		1st2nd2 8052	. . 3 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → 𝑋 = ⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩)
9	8	fveq2d 6911	. 2 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → (𝐸‘𝑋) = (𝐸‘⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩))
10	8	fveq2d 6911	. . . . 5 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → ( mod ‘𝑋) = ( mod ‘⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩))
11		df-ov 7434	. . . . 5 ⊢ ((1^st ‘𝑋) mod (2^nd ‘𝑋)) = ( mod ‘⟨(1^st ‘𝑋), (2^nd ‘𝑋)⟩)
12	10, 11	eqtr4di 2793	. . . 4 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → ( mod ‘𝑋) = ((1^st ‘𝑋) mod (2^nd ‘𝑋)))
13	12	opeq2d 4885	. . 3 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → ⟨(2^nd ‘𝑋), ( mod ‘𝑋)⟩ = ⟨(2^nd ‘𝑋), ((1^st ‘𝑋) mod (2^nd ‘𝑋))⟩)
14	8, 13	ifeq12d 4552	. 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 2785	1 ⊢ (𝑋 ∈ (ℕ₀ × ℕ₀) → (𝐸‘𝑋) = if((2^nd ‘𝑋) = 0, 𝑋, ⟨(2^nd ‘𝑋), ( mod ‘𝑋)⟩))

Colors of variables: wff setvar class

Syntax hints: → wi 4 = wceq 1537 ∈ wcel 2106 ifcif 4531 ⟨cop 4637 × cxp 5687 ‘cfv 6563 (class class class)co 7431 ∈ cmpo 7433 1^st c1st 8011 2^nd c2nd 8012 0cc0 11153 ℕ₀cn0 12524 mod cmo 13906

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1792 ax-4 1806 ax-5 1908 ax-6 1965 ax-7 2005 ax-8 2108 ax-9 2116 ax-10 2139 ax-11 2155 ax-12 2175 ax-ext 2706 ax-sep 5302 ax-nul 5312 ax-pr 5438 ax-un 7754

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3an 1088 df-tru 1540 df-fal 1550 df-ex 1777 df-nf 1781 df-sb 2063 df-mo 2538 df-eu 2567 df-clab 2713 df-cleq 2727 df-clel 2814 df-nfc 2890 df-ral 3060 df-rex 3069 df-rab 3434 df-v 3480 df-sbc 3792 df-dif 3966 df-un 3968 df-in 3970 df-ss 3980 df-nul 4340 df-if 4532 df-sn 4632 df-pr 4634 df-op 4638 df-uni 4913 df-br 5149 df-opab 5211 df-mpt 5232 df-id 5583 df-xp 5695 df-rel 5696 df-cnv 5697 df-co 5698 df-dm 5699 df-rn 5700 df-iota 6516 df-fun 6565 df-fv 6571 df-ov 7434 df-oprab 7435 df-mpo 7436 df-1st 8013 df-2nd 8014

This theorem is referenced by: eucalginv 16618 eucalglt 16619

W3C validator