src/HOL/Hoare/hoare_tac.ML
changeset 35092 cfe605c54e50
parent 34974 18b41bba42b5
child 37135 636e6d8645d6
     1.1 --- a/src/HOL/Hoare/hoare_tac.ML	Wed Feb 10 14:12:02 2010 +0100
     1.2 +++ b/src/HOL/Hoare/hoare_tac.ML	Wed Feb 10 14:12:04 2010 +0100
     1.3 @@ -58,7 +58,7 @@
     1.4    let val T as Type ("fun",[t,_]) = fastype_of trm
     1.5    in Collect_const t $ trm end;
     1.6  
     1.7 -fun inclt ty = Const (@{const_name Algebras.less_eq}, [ty,ty] ---> boolT);
     1.8 +fun inclt ty = Const (@{const_name Orderings.less_eq}, [ty,ty] ---> boolT);
     1.9  
    1.10  
    1.11  fun Mset ctxt prop =