src/HOL/Orderings.thy
changeset 32960 69916a850301
parent 32899 c913cc831630
child 33519 e31a85f92ce9
     1.1 --- a/src/HOL/Orderings.thy	Sat Oct 17 01:05:59 2009 +0200
     1.2 +++ b/src/HOL/Orderings.thy	Sat Oct 17 14:43:18 2009 +0200
     1.3 @@ -339,18 +339,18 @@
     1.4            (* exclude numeric types: linear arithmetic subsumes transitivity *)
     1.5            let val T = type_of t
     1.6            in
     1.7 -	    T = HOLogic.natT orelse T = HOLogic.intT orelse T = HOLogic.realT
     1.8 +            T = HOLogic.natT orelse T = HOLogic.intT orelse T = HOLogic.realT
     1.9            end;
    1.10 -	fun rel (bin_op $ t1 $ t2) =
    1.11 +        fun rel (bin_op $ t1 $ t2) =
    1.12                if excluded t1 then NONE
    1.13                else if Pattern.matches thy (eq, bin_op) then SOME (t1, "=", t2)
    1.14                else if Pattern.matches thy (le, bin_op) then SOME (t1, "<=", t2)
    1.15                else if Pattern.matches thy (less, bin_op) then SOME (t1, "<", t2)
    1.16                else NONE
    1.17 -	  | rel _ = NONE;
    1.18 -	fun dec (Const (@{const_name Not}, _) $ t) = (case rel t
    1.19 -	      of NONE => NONE
    1.20 -	       | SOME (t1, rel, t2) => SOME (t1, "~" ^ rel, t2))
    1.21 +          | rel _ = NONE;
    1.22 +        fun dec (Const (@{const_name Not}, _) $ t) = (case rel t
    1.23 +              of NONE => NONE
    1.24 +               | SOME (t1, rel, t2) => SOME (t1, "~" ^ rel, t2))
    1.25            | dec x = rel x;
    1.26        in dec t end
    1.27        | decomp thy _ = NONE;