src/HOL/ex/SVC_Oracle.thy
changeset 35092 cfe605c54e50
parent 35084 e25eedfc15ce
child 35267 8dfd816713c6
     1.1 --- a/src/HOL/ex/SVC_Oracle.thy	Wed Feb 10 14:12:02 2010 +0100
     1.2 +++ b/src/HOL/ex/SVC_Oracle.thy	Wed Feb 10 14:12:04 2010 +0100
     1.3 @@ -95,8 +95,8 @@
     1.4        | fm ((c as Const("True", _))) = c
     1.5        | fm ((c as Const("False", _))) = c
     1.6        | fm (t as Const("op =",  Type ("fun", [T,_])) $ _ $ _) = rel (T, t)
     1.7 -      | fm (t as Const(@{const_name Algebras.less},  Type ("fun", [T,_])) $ _ $ _) = rel (T, t)
     1.8 -      | fm (t as Const(@{const_name Algebras.less_eq}, Type ("fun", [T,_])) $ _ $ _) = rel (T, t)
     1.9 +      | fm (t as Const(@{const_name Orderings.less},  Type ("fun", [T,_])) $ _ $ _) = rel (T, t)
    1.10 +      | fm (t as Const(@{const_name Orderings.less_eq}, Type ("fun", [T,_])) $ _ $ _) = rel (T, t)
    1.11        | fm t = replace t
    1.12      (*entry point, and abstraction of a meta-formula*)
    1.13      fun mt ((c as Const("Trueprop", _)) $ p) = c $ (fm p)