doc-src/Tutorial/Misc/GCD.ML
author wenzelm
Tue, 26 Oct 1999 19:06:52 +0200
changeset 7937 82025fe607d3
parent 5377 efb799c5ed3c
permissions -rw-r--r--
added inform_file_processed, inform_file_retracted; proper outer syntax setup; more robust theory loader actions;

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];