minus 0 x 0 minus s x 0 s x minus s x s y minus x y mod x 0 0 mod x s y if lt x s y x s y if true x y x if false x y mod minus x y y gcd x 0 x gcd 0 s y s y gcd s x s y gcd mod s x s y mod s y s x lt x 0 false lt 0 s x true lt s x s y lt x y minus 2 0 0 s 1 mod 2 if 3 lt 2 true 0 false 0 gcd 2 FULL ./AProVE_09_Inductive/gcdhard.trs