---

Step * 1 1 3 1 of Lemma coprime-equiv-unique


1. q : ℤ
2. p : ℤ
3. b : ℤ
4. a : ℤ
5. CoPrime(q,p)
6. CoPrime(b,a)
7. (q * a) = (b * p) ∈ ℤ
8. q | b
9. b | q
⊢ p | a
BY
{ xxx(xxx(Assert ∃x,y:ℤ. (((p * x) + (q * y)) = 1 ∈ ℤ) BY
                (BLemma `coprime_bezout_id`
                 THEN Auto
                 THEN xxxOnMaybeHyp 5 (\h. (RepeatFor 2 (xxxParallelOp hxxx)
                                            THEN Auto
                                            THEN BackThruSomeHyp
                                            THEN Complete (Auto)))xxx))xxx
      THEN ExRepD
      THEN Unfold `divides` 0
      THEN InstConcl [⌜(a * x) + (b * y)⌝]⋅
      THEN Auto)xxx }

1
1. q : ℤ
2. p : ℤ
3. b : ℤ
4. a : ℤ
5. CoPrime(q,p)
6. CoPrime(b,a)
7. (q * a) = (b * p) ∈ ℤ
8. q | b
9. b | q
10. x : ℤ
11. y : ℤ
12. ((p * x) + (q * y)) = 1 ∈ ℤ
⊢ a = (p * ((a * x) + (b * y))) ∈ ℤ

---

Latex:

---

Latex:

1.  q  :  \mBbbZ{}
2.  p  :  \mBbbZ{}
3.  b  :  \mBbbZ{}
4.  a  :  \mBbbZ{}
5.  CoPrime(q,p)
6.  CoPrime(b,a)
7.  (q  *  a)  =  (b  *  p)
8.  q  |  b
9.  b  |  q
\mvdash{}  p  |  a


By

---

Latex:
xxx(xxx(Assert  \mexists{}x,y:\mBbbZ{}.  (((p  *  x)  +  (q  *  y))  =  1)  BY
                            (BLemma  `coprime\_bezout\_id`
                              THEN  Auto
                              THEN  xxxOnMaybeHyp  5  (\mbackslash{}h.  (RepeatFor  2  (xxxParallelOp  hxxx)
                                                                                    THEN  Auto
                                                                                    THEN  BackThruSomeHyp
                                                                                    THEN  Complete  (Auto)))xxx))xxx
        THEN  ExRepD
        THEN  Unfold  `divides`  0
        THEN  InstConcl  [\mkleeneopen{}(a  *  x)  +  (b  *  y)\mkleeneclose{}]\mcdot{}
        THEN  Auto)xxx

---

Home Index