Skip to content
Snippets Groups Projects
Commit d1254759 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Merge branch 'deprecated-revert-dependent' into 'master'

Stop using revert dependent

See merge request iris/stdpp!481
parents 88123eee 81fab860
No related branches found
No related tags found
No related merge requests found
...@@ -65,9 +65,11 @@ Ltac inv_fin i := ...@@ -65,9 +65,11 @@ Ltac inv_fin i :=
| fin ?n => | fin ?n =>
match eval hnf in n with match eval hnf in n with
| 0 => | 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 => | 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
end. end.
......
...@@ -88,9 +88,12 @@ Ltac inv_vec v := ...@@ -88,9 +88,12 @@ Ltac inv_vec v :=
match eval hnf in T with match eval hnf in T with
| vec _ ?n => | vec _ ?n =>
match eval hnf in n with 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 => | 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 going on recursively. *)
try (let x := fresh "x" in intros x v; inv_vec v; revert x) try (let x := fresh "x" in intros x v; inv_vec v; revert x)
end end
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment