---

Step * 1 of Lemma sbdecode-code


1. m : ℕ
2. ∀m:ℕm. ∀[n:ℕ]. (0 < m ⇒ 0 < n ⇒ (sbdecode(sbcode(m;n)) ~ <m ÷ gcd(m;n), n ÷ gcd(m;n)>))
3. n : ℕ
4. ∀n:ℕn. (0 < m ⇒ 0 < n ⇒ (sbdecode(sbcode(m;n)) ~ <m ÷ gcd(m;n), n ÷ gcd(m;n)>))
5. 0 < m
6. 0 < n
7. m < n
⊢ let m,n = sbdecode(sbcode(m;n - m)) 
  in <m, m + n> ~ <m ÷ gcd(m;n), n ÷ gcd(m;n)>
BY
{ xxx(RWO "4" 0
      THEN Reduce 0
      THEN Try (Complete (Auto))
      THEN (InstLemma `gcd-positive` [⌜n⌝;⌜m⌝]⋅ THENA Auto)
      THEN Subst ⌜gcd(m;n - m) ~ gcd(m;n)⌝ 0⋅)xxx }

1
.....equality..... 
1. m : ℕ
2. ∀m:ℕm. ∀[n:ℕ]. (0 < m ⇒ 0 < n ⇒ (sbdecode(sbcode(m;n)) ~ <m ÷ gcd(m;n), n ÷ gcd(m;n)>))
3. n : ℕ
4. ∀n:ℕn. (0 < m ⇒ 0 < n ⇒ (sbdecode(sbcode(m;n)) ~ <m ÷ gcd(m;n), n ÷ gcd(m;n)>))
5. 0 < m
6. 0 < n
7. m < n
8. 0 < gcd(m;n)
⊢ gcd(m;n - m) ~ gcd(m;n)

2
1. m : ℕ
2. ∀m:ℕm. ∀[n:ℕ]. (0 < m ⇒ 0 < n ⇒ (sbdecode(sbcode(m;n)) ~ <m ÷ gcd(m;n), n ÷ gcd(m;n)>))
3. n : ℕ
4. ∀n:ℕn. (0 < m ⇒ 0 < n ⇒ (sbdecode(sbcode(m;n)) ~ <m ÷ gcd(m;n), n ÷ gcd(m;n)>))
5. 0 < m
6. 0 < n
7. m < n
8. 0 < gcd(m;n)
⊢ <m ÷ gcd(m;n), (m ÷ gcd(m;n)) + ((n - m) ÷ gcd(m;n))> ~ <m ÷ gcd(m;n), n ÷ gcd(m;n)>

---

Latex:

---

Latex:

1.  m  :  \mBbbN{}
2.  \mforall{}m:\mBbbN{}m.  \mforall{}[n:\mBbbN{}].  (0  <  m  {}\mRightarrow{}  0  <  n  {}\mRightarrow{}  (sbdecode(sbcode(m;n))  \msim{}  <m  \mdiv{}  gcd(m;n),  n  \mdiv{}  gcd(m;n)>))
3.  n  :  \mBbbN{}
4.  \mforall{}n:\mBbbN{}n.  (0  <  m  {}\mRightarrow{}  0  <  n  {}\mRightarrow{}  (sbdecode(sbcode(m;n))  \msim{}  <m  \mdiv{}  gcd(m;n),  n  \mdiv{}  gcd(m;n)>))
5.  0  <  m
6.  0  <  n
7.  m  <  n
\mvdash{}  let  m,n  =  sbdecode(sbcode(m;n  -  m)) 
    in  <m,  m  +  n>  \msim{}  <m  \mdiv{}  gcd(m;n),  n  \mdiv{}  gcd(m;n)>


By

---

Latex:
xxx(RWO  "4"  0
        THEN  Reduce  0
        THEN  Try  (Complete  (Auto))
        THEN  (InstLemma  `gcd-positive`  [\mkleeneopen{}n\mkleeneclose{};\mkleeneopen{}m\mkleeneclose{}]\mcdot{}  THENA  Auto)
        THEN  Subst  \mkleeneopen{}gcd(m;n  -  m)  \msim{}  gcd(m;n)\mkleeneclose{}  0\mcdot{})xxx

---

Home Index