---

Step * 1 2 1 1 1 1 of Lemma assert-is-qrep

.....assertion..... 
1. p1 : ℤ
2. p2 : ℕ+
3. (gcd(p1;p2) = 1 ∈ ℤ) ∨ (gcd(p1;p2) = (-1) ∈ ℤ)
4. v1 : ℕ
5. v3 : ℤ
6. v4 : ℤ
7. gcd_reduce(p1;p2) = <v1, v3, v4> ∈ (ℕ × ℤ × ℤ)
8. p1 = (v3 * v1) ∈ ℤ
9. p2 = (v4 * v1) ∈ ℤ
10. CoPrime(v3,v4)
11. (p1 * v4) = (v3 * p2) ∈ ℤ
⊢ (v1 = 1 ∈ ℤ) ∨ (v1 = (-1) ∈ ℤ)
BY
{ xxxAssert ⌜CoPrime(p1,p2)⌝⋅xxx }

1
.....assertion..... 
1. p1 : ℤ
2. p2 : ℕ+
3. (gcd(p1;p2) = 1 ∈ ℤ) ∨ (gcd(p1;p2) = (-1) ∈ ℤ)
4. v1 : ℕ
5. v3 : ℤ
6. v4 : ℤ
7. gcd_reduce(p1;p2) = <v1, v3, v4> ∈ (ℕ × ℤ × ℤ)
8. p1 = (v3 * v1) ∈ ℤ
9. p2 = (v4 * v1) ∈ ℤ
10. CoPrime(v3,v4)
11. (p1 * v4) = (v3 * p2) ∈ ℤ
⊢ CoPrime(p1,p2)

2
1. p1 : ℤ
2. p2 : ℕ+
3. (gcd(p1;p2) = 1 ∈ ℤ) ∨ (gcd(p1;p2) = (-1) ∈ ℤ)
4. v1 : ℕ
5. v3 : ℤ
6. v4 : ℤ
7. gcd_reduce(p1;p2) = <v1, v3, v4> ∈ (ℕ × ℤ × ℤ)
8. p1 = (v3 * v1) ∈ ℤ
9. p2 = (v4 * v1) ∈ ℤ
10. CoPrime(v3,v4)
11. (p1 * v4) = (v3 * p2) ∈ ℤ
12. CoPrime(p1,p2)
⊢ (v1 = 1 ∈ ℤ) ∨ (v1 = (-1) ∈ ℤ)

---

Latex:

---

Latex:
.....assertion..... 
1.  p1  :  \mBbbZ{}
2.  p2  :  \mBbbN{}\msupplus{}
3.  (gcd(p1;p2)  =  1)  \mvee{}  (gcd(p1;p2)  =  (-1))
4.  v1  :  \mBbbN{}
5.  v3  :  \mBbbZ{}
6.  v4  :  \mBbbZ{}
7.  gcd\_reduce(p1;p2)  =  <v1,  v3,  v4>
8.  p1  =  (v3  *  v1)
9.  p2  =  (v4  *  v1)
10.  CoPrime(v3,v4)
11.  (p1  *  v4)  =  (v3  *  p2)
\mvdash{}  (v1  =  1)  \mvee{}  (v1  =  (-1))


By

---

Latex:
xxxAssert  \mkleeneopen{}CoPrime(p1,p2)\mkleeneclose{}\mcdot{}xxx

---

Home Index