author | nipkow |
Fri, 04 Apr 1997 16:33:28 +0200 | |
changeset 2912 | 3fac3e8d5d3e |
parent 2608 | 450c9b682a92 |
child 3023 | 01364e2f30ad |
permissions | -rw-r--r-- |
(* Title: HOL/Nat.ML ID: $Id$ Author: Tobias Nipkow Copyright 1997 TU Muenchen *) goal thy "min 0 n = 0"; br min_leastL 1; by(trans_tac 1); qed "min_0L"; goal thy "min n 0 = 0"; br min_leastR 1; by(trans_tac 1); qed "min_0R"; goalw thy [min_def] "min (Suc m) (Suc n) = Suc(min m n)"; by(split_tac [expand_if] 1); by(Simp_tac 1); qed "min_Suc_Suc"; Addsimps [min_0L,min_0R,min_Suc_Suc];