Skip to content
Snippets Groups Projects
Verified Commit 6ecaf1fb authored by Tej Chajed's avatar Tej Chajed
Browse files

Stop using revert dependent

See https://github.com/coq/coq/pull/17669. `revert dependent` is an
alias for `generalize dependent` and is going away soon.
parent 88123eee
No related branches found
No related tags found
1 merge request!481Stop using revert dependent
Pipeline #83453 canceled
......@@ -65,9 +65,9 @@ Ltac inv_fin i :=
| fin ?n =>
match eval hnf in n with
| 0 =>
revert dependent i; match goal with |- i, @?P i => apply (fin_0_inv P) end
generalize dependent i; match goal with |- i, @?P i => apply (fin_0_inv P) end
| S ?n =>
revert dependent i; match goal with |- i, @?P i => apply (fin_S_inv P) end
generalize dependent i; match goal with |- i, @?P i => apply (fin_S_inv P) end
end
end.
......
......@@ -88,9 +88,9 @@ Ltac inv_vec v :=
match eval hnf in T with
| vec _ ?n =>
match eval hnf in n with
| 0 => revert dependent v; match goal with |- v, @?P v => apply (vec_0_inv P) end
| 0 => generalize dependent v; match goal with |- v, @?P v => apply (vec_0_inv P) end
| S ?n =>
revert dependent v; match goal with |- v, @?P v => apply (vec_S_inv P) end;
generalize dependent v; match goal with |- v, @?P v => apply (vec_S_inv P) end;
(* Try going on recursively. *)
try (let x := fresh "x" in intros x v; inv_vec v; revert x)
end
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment