src/HOL/Tools/Function/termination.ML
changeset 37391 476270a6c2dc
parent 37387 3581483cca6c
child 37678 0040bafffdef
     1.1 --- a/src/HOL/Tools/Function/termination.ML	Thu Jun 10 12:24:02 2010 +0200
     1.2 +++ b/src/HOL/Tools/Function/termination.ML	Thu Jun 10 12:24:03 2010 +0200
     1.3 @@ -148,7 +148,7 @@
     1.4      val cs = Function_Lib.dest_binop_list @{const_name Lattices.sup} rel
     1.5      fun collect_pats (Const (@{const_name Collect}, _) $ Abs (_, _, c)) =
     1.6        let
     1.7 -        val (Const ("op &", _) $ (Const ("op =", _) $ _ $ (Const ("Pair", _) $ r $ l)) $ _)
     1.8 +        val (Const ("op &", _) $ (Const ("op =", _) $ _ $ (Const (@{const_name Pair}, _) $ r $ l)) $ _)
     1.9            = Term.strip_qnt_body "Ex" c
    1.10        in cons r o cons l end
    1.11    in
    1.12 @@ -185,7 +185,7 @@
    1.13      val vs = Term.strip_qnt_vars "Ex" c
    1.14  
    1.15      (* FIXME: throw error "dest_call" for malformed terms *)
    1.16 -    val (Const ("op &", _) $ (Const ("op =", _) $ _ $ (Const ("Pair", _) $ r $ l)) $ Gam)
    1.17 +    val (Const ("op &", _) $ (Const ("op =", _) $ _ $ (Const (@{const_name Pair}, _) $ r $ l)) $ Gam)
    1.18        = Term.strip_qnt_body "Ex" c
    1.19      val (p, l') = dest_inj sk l
    1.20      val (q, r') = dest_inj sk r