Mercurial Mercurial > repos > Old_HOL / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
IMP/Properties.ML
changeset 199 ad45e477926c
parent 188 32b84b520cd3 
--- a/IMP/Properties.ML	Wed Dec 07 14:12:27 1994 +0100
+++ b/IMP/Properties.ML	Thu Dec 08 12:50:38 1994 +0100
@@ -10,16 +10,14 @@
 goal Com.thy "!m n. <a,s> -a-> m & <a,s> -a-> n --> m=n";
 by(res_inst_tac[("aexp","a")]Com.aexp.induct 1);
 by(REPEAT(fast_tac (HOL_cs addSIs evala.intrs addSEs evala_elim_cases) 1));
-val aexp_detD =
-  store_thm("aexp_detD", conjI RS (result() RS spec RS spec RS mp));
+bind_thm("aexp_detD", conjI RS (result() RS spec RS spec RS mp));
 
 (* evaluation of bexp is deterministic *)
 goal Com.thy "!v w. <b,s> -b-> v & <b,s> -b-> w --> v=w";
 by(res_inst_tac[("bexp","b")]Com.bexp.induct 1);
 by(REPEAT(fast_tac (HOL_cs addSIs evalb.intrs addSEs evalb_elim_cases
                            addDs [aexp_detD]) 1));
-val bexp_detD =
-  store_thm("bexp_detD", conjI RS (result() RS spec RS spec RS mp));
+bind_thm("bexp_detD", conjI RS (result() RS spec RS spec RS mp));
 
 
 val evalc_elim_cases = map (evalc.mk_cases com.simps)
Old_HOL