a b : ℕ+
⊢ succ ((xgcd a b).wp + (xgcd a b).x) = succ (xgcd a b).wp + (xgcd a b).x
a b : ℕ+
⊢ ↑(gcdA' a b) = ↑(gcdW a b) + gcdX a b
dsimp [gcdA', gcdX, gcdW, XgcdType.w]
no goals
a b : ℕ+
⊢ succ ((xgcd a b).wp + (xgcd a b).x) = succ (xgcd a b).wp + (xgcd a b).x
rw [Nat.succ_eq_add_one, Nat.succ_eq_add_one, add_right_comm]