Nominal/nominal_mutual.ML
changeset 3231 188826f1ccdb
parent 3229 b52e8651591f
child 3239 67370521c09c
--- a/Nominal/nominal_mutual.ML	Thu Mar 13 09:30:26 2014 +0000
+++ b/Nominal/nominal_mutual.ML	Mon Mar 24 15:31:17 2014 +0000
@@ -291,7 +291,7 @@
   end
 
 
-fun forall_elim s (Const ("all", _) $ Abs (_, _, t)) = subst_bound (s, t)
+fun forall_elim s (Const (@{const_name Pure.all}, _) $ Abs (_, _, t)) = subst_bound (s, t)
   | forall_elim _ t = t
 
 val forall_elim_list = fold forall_elim
@@ -316,7 +316,7 @@
     val acc_prems = 
      map prop_of induct_thms
      |> map2 forall_elim_list argss 
-     |> map (strip_qnt_body "all")
+     |> map (strip_qnt_body @{const_name Pure.all})
      |> map (curry Logic.nth_prem 1)
      |> map HOLogic.dest_Trueprop