src/HOL/Hoare/hoare_tac.ML
changeset 34974 18b41bba42b5
parent 32149 ef59550a55d3
child 35092 cfe605c54e50
     1.1 --- a/src/HOL/Hoare/hoare_tac.ML	Thu Jan 28 11:48:43 2010 +0100
     1.2 +++ b/src/HOL/Hoare/hoare_tac.ML	Thu Jan 28 11:48:49 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 HOL.less_eq}, [ty,ty] ---> boolT);
     1.8 +fun inclt ty = Const (@{const_name Algebras.less_eq}, [ty,ty] ---> boolT);
     1.9  
    1.10  
    1.11  fun Mset ctxt prop =