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

Also remove the [cbv zeta].

parent 1560d168
Pipeline #6794 passed with stage
in 10 minutes and 29 seconds
......@@ -628,7 +628,7 @@ Tactic Notation "iIntoValid" open_constr(t) :=
let e := fresh in evar (e:id T);
let e' := eval unfold e in e in clear e; go (t e')
| _ =>
let tT' := eval cbv zeta in tT in eapply (as_valid_1 tT');
eapply (as_valid_1 tT);
(* Doing [apply _] here fails because that will try to solve all evars
whose type is a typeclass, in dependency order (according to Matthieu).
If one fails, it aborts. However, we rely on progress on the main goal
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