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

Add some newlines.

parent 6ecaf1fb
Branches
No related tags found
No related merge requests found
......@@ -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.
Please register or to comment