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

Add some newlines.

parent 6ecaf1fb
No related branches found
No related tags found
1 merge request!481Stop using revert dependent
Pipeline #83454 passed
......@@ -65,9 +65,11 @@ Ltac inv_fin i :=
| fin ?n =>
match eval hnf in n with
| 0 =>
generalize 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 =>
generalize 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,12 @@ Ltac inv_vec v :=
match eval hnf in T with
| vec _ ?n =>
match eval hnf in n with
| 0 => generalize 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 =>
generalize 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