src/HOL/Orderings.thy
changeset 52143 36ffe23b25f8
parent 51717 9e7d1c139569
child 52729 412c9e0381a1
     1.1 --- a/src/HOL/Orderings.thy	Sat May 25 15:00:53 2013 +0200
     1.2 +++ b/src/HOL/Orderings.thy	Sat May 25 15:37:53 2013 +0200
     1.3 @@ -727,8 +727,8 @@
     1.4    fun contains_var v = Term.exists_subterm (fn Free (x, _) => x = v | _ => false);
     1.5    fun mk x c n P = Syntax.const c $ Syntax_Trans.mark_bound_body x $ n $ P;
     1.6  
     1.7 -  fun tr' q = (q,
     1.8 -    fn [Const (@{syntax_const "_bound"}, _) $ Free (v, T),
     1.9 +  fun tr' q = (q, fn _ =>
    1.10 +    (fn [Const (@{syntax_const "_bound"}, _) $ Free (v, T),
    1.11          Const (c, _) $ (Const (d, _) $ t $ u) $ P] =>
    1.12          (case AList.lookup (op =) trans (q, c, d) of
    1.13            NONE => raise Match
    1.14 @@ -736,7 +736,7 @@
    1.15              if matches_bound v t andalso not (contains_var v u) then mk (v, T) l u P
    1.16              else if matches_bound v u andalso not (contains_var v t) then mk (v, T) g t P
    1.17              else raise Match)
    1.18 -     | _ => raise Match);
    1.19 +      | _ => raise Match));
    1.20  in [tr' All_binder, tr' Ex_binder] end
    1.21  *}
    1.22