minus s x y if gt s x y x y if true x y s minus x y if false x y 0 gcd x y if1 ge x y x y if1 true x y if2 gt y 0 x y if1 false x y gcd y x if2 true x y gcd minus x y y if2 false x y x gt 0 y false gt s x 0 true gt s x s y gt x y ge x 0 true ge 0 s x false ge s x s y ge x y minus 2 s 1 if 3 gt 2 true 0 false 0 0 0 gcd 2 if1 3 ge 2 if2 3 FULL ./AProVE_09_Inductive/gcd.trs