Commit 1560d168 authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan
Browse files

Do not call [eval hnf] in iIntoValid.

parent 96ab3ac7
Pipeline #6790 passed with stage
in 14 minutes and 40 seconds
......@@ -620,7 +620,7 @@ a goal [P] for non-dependent arguments [x_i : P]. *)
Tactic Notation "iIntoValid" open_constr(t) :=
let rec go t :=
let tT := type of t in
lazymatch eval hnf in tT with
lazymatch tT with
| ?P ?Q => let H := fresh in assert P as H; [|go uconstr:(t H); clear H]
| _ : ?T, _ =>
(* Put [T] inside an [id] to avoid TC inference from being invoked. *)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment