# HG changeset patch
# User wenzelm
# Date 1634295321 -7200
# Node ID 854537af4ce8f8935e30730d9eaf42962021ed6d
# Parent  02d90c4360de6b81eb323622062a81fb8763e06f
tuned;

diff -r 02d90c4360de -r 854537af4ce8 src/HOL/Library/cconv.ML
--- a/src/HOL/Library/cconv.ML	Fri Oct 15 11:42:36 2021 +0200
+++ b/src/HOL/Library/cconv.ML	Fri Oct 15 12:55:21 2021 +0200
@@ -124,16 +124,16 @@
      Abs (x, _, _) =>
        let
          (* Instantiate the rule properly and apply it to the eq theorem. *)
-         fun abstract_rule u v eq =
+         fun abstract_rule v eq =
            let
              (* Take a variable v and an equality theorem of form:
                   P1 \<Longrightarrow> ... \<Longrightarrow> Pn \<Longrightarrow> L v \<equiv> R v
                 And build a term of form:
                   \<And>v. (\<lambda>x. L x) v \<equiv> (\<lambda>x. R x) v *)
-             fun mk_concl var eq =
+             fun mk_concl eq =
                let
                  val certify = Thm.cterm_of ctxt
-                 fun abs term = (Term.lambda var term) $ var
+                 fun abs term = (Term.lambda v term) $ v
                  fun equals_cong f t =
                    Logic.dest_equals t
                    |> (fn (a, b) => (f a, f b))
@@ -141,13 +141,13 @@
                in
                  Thm.concl_of eq
                  |> equals_cong abs
-                 |> Logic.all var |> certify
+                 |> Logic.all v |> certify
                end
              val rule = abstract_rule_thm x
-             val inst = Thm.match (Drule.cprems_of rule |> hd, mk_concl (Thm.term_of v) eq)
+             val inst = Thm.match (Drule.cprems_of rule |> hd, mk_concl eq)
            in
              (Drule.instantiate_normalize inst rule OF
-               [Drule.generalize (Names.empty, Names.make_set [u]) eq])
+               [Drule.generalize (Names.empty, Names.make_set [#1 (dest_Free v)]) eq])
              |> Drule.zero_var_indexes
            end
 
@@ -158,7 +158,7 @@
        in
          if Thm.is_reflexive eq
          then all_cconv ct
-         else abstract_rule u v eq
+         else abstract_rule (Thm.term_of v) eq
        end
    | _ => raise CTERM ("abs_cconv", [ct]))