src/HOL/ex/SVC_Oracle.thy
changeset 38864 4abe644fcea5
parent 38795 848be46708dc
child 40945 b8703f63bfb2
     1.1 --- a/src/HOL/ex/SVC_Oracle.thy	Sat Aug 28 20:24:40 2010 +0800
     1.2 +++ b/src/HOL/ex/SVC_Oracle.thy	Sat Aug 28 16:14:32 2010 +0200
     1.3 @@ -94,7 +94,7 @@
     1.4        | fm ((c as Const(@{const_name Not}, _)) $ p) = c $ (fm p)
     1.5        | fm ((c as Const(@{const_name True}, _))) = c
     1.6        | fm ((c as Const(@{const_name False}, _))) = c
     1.7 -      | fm (t as Const(@{const_name "op ="},  Type ("fun", [T,_])) $ _ $ _) = rel (T, t)
     1.8 +      | fm (t as Const(@{const_name HOL.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