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

Also remove the [cbv zeta].

parent 1560d168
......@@ -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
......
Markdown is supported
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