src/HOL/ex/MT.ML
changeset 1465 5d7a7e439cec
parent 1266 3ae9fe3c0f68
child 1584 3d59c407bd36
equal deleted inserted replaced
1464:a608f83e3421 1465:5d7a7e439cec
     1 (*  Title: 	HOL/ex/MT.ML
     1 (*  Title:      HOL/ex/MT.ML
     2     ID:         $Id$
     2     ID:         $Id$
     3     Author: 	Jacob Frost, Cambridge University Computer Laboratory
     3     Author:     Jacob Frost, Cambridge University Computer Laboratory
     4     Copyright   1993  University of Cambridge
     4     Copyright   1993  University of Cambridge
     5 
     5 
     6 Based upon the article
     6 Based upon the article
     7     Robin Milner and Mads Tofte,
     7     Robin Milner and Mads Tofte,
     8     Co-induction in Relational Semantics,
     8     Co-induction in Relational Semantics,
   764 
   764 
   765 by (rtac (major RS eval_ind) 1);
   765 by (rtac (major RS eval_ind) 1);
   766 by (safe_tac HOL_cs);
   766 by (safe_tac HOL_cs);
   767 by (DEPTH_SOLVE 
   767 by (DEPTH_SOLVE 
   768     (ares_tac [consistency_const, consistency_var, consistency_fn,
   768     (ares_tac [consistency_const, consistency_var, consistency_fn,
   769 	       consistency_fix, consistency_app1, consistency_app2] 1));
   769                consistency_fix, consistency_app1, consistency_app2] 1));
   770 qed "consistency";
   770 qed "consistency";
   771 
   771 
   772 (* ############################################################ *)
   772 (* ############################################################ *)
   773 (* The Basic Consistency theorem                                *)
   773 (* The Basic Consistency theorem                                *)
   774 (* ############################################################ *)
   774 (* ############################################################ *)