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

Theorem eucalgval2 12071
Description: The value of the step function 𝐸 for Euclid's Algorithm on an ordered pair. (Contributed by Paul Chapman, 31-Mar-2011.) (Revised by Mario Carneiro, 28-May-2014.)
Hypothesis
Ref Expression
eucalgval.1 𝐸 = (𝑥 ∈ ℕ0, 𝑦 ∈ ℕ0 ↦ if(𝑦 = 0, ⟨𝑥, 𝑦⟩, ⟨𝑦, (𝑥 mod 𝑦)⟩))
Assertion
Ref Expression
eucalgval2 ((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) → (𝑀𝐸𝑁) = if(𝑁 = 0, ⟨𝑀, 𝑁⟩, ⟨𝑁, (𝑀 mod 𝑁)⟩))
Distinct variable groups:   𝑥,𝑦,𝑀   𝑥,𝑁,𝑦
Allowed substitution hints:   𝐸(𝑥,𝑦)

Proof of Theorem eucalgval2
StepHypRef Expression
1 opexg 4243 . . . 4 ((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) → ⟨𝑀, 𝑁⟩ ∈ V)
21adantr 276 . . 3 (((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) ∧ 𝑁 = 0) → ⟨𝑀, 𝑁⟩ ∈ V)
3 simpr 110 . . . . 5 ((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) → 𝑁 ∈ ℕ0)
43adantr 276 . . . 4 (((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝑁 = 0) → 𝑁 ∈ ℕ0)
5 simpl 109 . . . . . . 7 ((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) → 𝑀 ∈ ℕ0)
65nn0zd 9391 . . . . . 6 ((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) → 𝑀 ∈ ℤ)
76adantr 276 . . . . 5 (((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝑁 = 0) → 𝑀 ∈ ℤ)
8 simpr 110 . . . . . . 7 (((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝑁 = 0) → ¬ 𝑁 = 0)
98neqned 2367 . . . . . 6 (((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝑁 = 0) → 𝑁 ≠ 0)
10 elnnne0 9208 . . . . . 6 (𝑁 ∈ ℕ ↔ (𝑁 ∈ ℕ0𝑁 ≠ 0))
114, 9, 10sylanbrc 417 . . . . 5 (((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝑁 = 0) → 𝑁 ∈ ℕ)
127, 11zmodcld 10363 . . . 4 (((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝑁 = 0) → (𝑀 mod 𝑁) ∈ ℕ0)
13 opexg 4243 . . . 4 ((𝑁 ∈ ℕ0 ∧ (𝑀 mod 𝑁) ∈ ℕ0) → ⟨𝑁, (𝑀 mod 𝑁)⟩ ∈ V)
144, 12, 13syl2anc 411 . . 3 (((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝑁 = 0) → ⟨𝑁, (𝑀 mod 𝑁)⟩ ∈ V)
153nn0zd 9391 . . . 4 ((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) → 𝑁 ∈ ℤ)
16 0zd 9283 . . . 4 ((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) → 0 ∈ ℤ)
17 zdceq 9346 . . . 4 ((𝑁 ∈ ℤ ∧ 0 ∈ ℤ) → DECID 𝑁 = 0)
1815, 16, 17syl2anc 411 . . 3 ((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) → DECID 𝑁 = 0)
192, 14, 18ifcldadc 3578 . 2 ((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) → if(𝑁 = 0, ⟨𝑀, 𝑁⟩, ⟨𝑁, (𝑀 mod 𝑁)⟩) ∈ V)
20 simpr 110 . . . . 5 ((𝑥 = 𝑀𝑦 = 𝑁) → 𝑦 = 𝑁)
2120eqeq1d 2198 . . . 4 ((𝑥 = 𝑀𝑦 = 𝑁) → (𝑦 = 0 ↔ 𝑁 = 0))
22 opeq12 3795 . . . 4 ((𝑥 = 𝑀𝑦 = 𝑁) → ⟨𝑥, 𝑦⟩ = ⟨𝑀, 𝑁⟩)
23 oveq12 5900 . . . . 5 ((𝑥 = 𝑀𝑦 = 𝑁) → (𝑥 mod 𝑦) = (𝑀 mod 𝑁))
2420, 23opeq12d 3801 . . . 4 ((𝑥 = 𝑀𝑦 = 𝑁) → ⟨𝑦, (𝑥 mod 𝑦)⟩ = ⟨𝑁, (𝑀 mod 𝑁)⟩)
2521, 22, 24ifbieq12d 3575 . . 3 ((𝑥 = 𝑀𝑦 = 𝑁) → if(𝑦 = 0, ⟨𝑥, 𝑦⟩, ⟨𝑦, (𝑥 mod 𝑦)⟩) = if(𝑁 = 0, ⟨𝑀, 𝑁⟩, ⟨𝑁, (𝑀 mod 𝑁)⟩))
26 eucalgval.1 . . 3 𝐸 = (𝑥 ∈ ℕ0, 𝑦 ∈ ℕ0 ↦ if(𝑦 = 0, ⟨𝑥, 𝑦⟩, ⟨𝑦, (𝑥 mod 𝑦)⟩))
2725, 26ovmpoga 6021 . 2 ((𝑀 ∈ ℕ0𝑁 ∈ ℕ0 ∧ if(𝑁 = 0, ⟨𝑀, 𝑁⟩, ⟨𝑁, (𝑀 mod 𝑁)⟩) ∈ V) → (𝑀𝐸𝑁) = if(𝑁 = 0, ⟨𝑀, 𝑁⟩, ⟨𝑁, (𝑀 mod 𝑁)⟩))
2819, 27mpd3an3 1349 1 ((𝑀 ∈ ℕ0𝑁 ∈ ℕ0) → (𝑀𝐸𝑁) = if(𝑁 = 0, ⟨𝑀, 𝑁⟩, ⟨𝑁, (𝑀 mod 𝑁)⟩))
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 104  DECID wdc 835   = wceq 1364  wcel 2160  wne 2360  Vcvv 2752  ifcif 3549  cop 3610  (class class class)co 5891  cmpo 5893  0cc0 7829  cn 8937  0cn0 9194  cz 9271   mod cmo 10340
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-13 2162  ax-14 2163  ax-ext 2171  ax-sep 4136  ax-pow 4189  ax-pr 4224  ax-un 4448  ax-setind 4551  ax-cnex 7920  ax-resscn 7921  ax-1cn 7922  ax-1re 7923  ax-icn 7924  ax-addcl 7925  ax-addrcl 7926  ax-mulcl 7927  ax-mulrcl 7928  ax-addcom 7929  ax-mulcom 7930  ax-addass 7931  ax-mulass 7932  ax-distr 7933  ax-i2m1 7934  ax-0lt1 7935  ax-1rid 7936  ax-0id 7937  ax-rnegex 7938  ax-precex 7939  ax-cnre 7940  ax-pre-ltirr 7941  ax-pre-ltwlin 7942  ax-pre-lttrn 7943  ax-pre-apti 7944  ax-pre-ltadd 7945  ax-pre-mulgt0 7946  ax-pre-mulext 7947  ax-arch 7948
This theorem depends on definitions:  df-bi 117  df-dc 836  df-3or 981  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1472  df-sb 1774  df-eu 2041  df-mo 2042  df-clab 2176  df-cleq 2182  df-clel 2185  df-nfc 2321  df-ne 2361  df-nel 2456  df-ral 2473  df-rex 2474  df-reu 2475  df-rmo 2476  df-rab 2477  df-v 2754  df-sbc 2978  df-csb 3073  df-dif 3146  df-un 3148  df-in 3150  df-ss 3157  df-nul 3438  df-if 3550  df-pw 3592  df-sn 3613  df-pr 3614  df-op 3616  df-uni 3825  df-int 3860  df-iun 3903  df-br 4019  df-opab 4080  df-mpt 4081  df-id 4308  df-po 4311  df-iso 4312  df-xp 4647  df-rel 4648  df-cnv 4649  df-co 4650  df-dm 4651  df-rn 4652  df-res 4653  df-ima 4654  df-iota 5193  df-fun 5233  df-fn 5234  df-f 5235  df-fv 5239  df-riota 5847  df-ov 5894  df-oprab 5895  df-mpo 5896  df-1st 6159  df-2nd 6160  df-pnf 8012  df-mnf 8013  df-xr 8014  df-ltxr 8015  df-le 8016  df-sub 8148  df-neg 8149  df-reap 8550  df-ap 8557  df-div 8648  df-inn 8938  df-n0 9195  df-z 9272  df-q 9638  df-rp 9672  df-fl 10288  df-mod 10341
This theorem is referenced by:  eucalgval  12072
  Copyright terms: Public domain W3C validator