doc-src/Tutorial/Misc/GCD.ML
author kleing
Mon, 14 Jul 2003 14:44:06 +0200
changeset 14110 c45c94fa16f4
parent 5377 efb799c5ed3c
permissions -rw-r--r--
use Library.Some/None instead of just Some/None in generated quickcheck code

Goal "gcd(m,0) = m";
by(resolve_tac [trans] 1);
by(resolve_tac gcd.rules 1);
by(Simp_tac 1);
qed "gcd_0";
Addsimps [gcd_0];

Goal "!!n. n ~= 0 ==> gcd(m,n) = gcd(n, m mod n)";
by(resolve_tac [trans] 1);
by(resolve_tac gcd.rules 1);
by(Asm_simp_tac 1);
qed "gcd_not_0";
Addsimps [gcd_not_0];