diff options
| author | Pierre-Marie Pédrot | 2017-08-04 18:02:57 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-08-05 01:08:23 +0200 |
| commit | 1f2de88e09c7bb1c0aa111db0d7d50b83f8a62d4 (patch) | |
| tree | 11d9fab847de5cef36f1d3b0e8ee9ee2f1d3da62 /tests/example2.v | |
| parent | de88ba86e9d2a77883365503759eaec96928e9c4 (diff) | |
Exporting the rewrite tactic.
Diffstat (limited to 'tests/example2.v')
| -rw-r--r-- | tests/example2.v | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/example2.v b/tests/example2.v index 812f9172c9..526cbc39f5 100644 --- a/tests/example2.v +++ b/tests/example2.v @@ -95,3 +95,24 @@ Proof. intros b1 b2. destruct &b1 as [|], &b2 as [|]; split. Qed. + +Goal forall n m, n = 0 -> n + m = m. +Proof. +intros n m Hn. +rewrite &Hn; split. +Qed. + +Goal forall n m p, n = m -> p = m -> 0 = n -> p = 0. +Proof. +intros n m p He He' Hn. +rewrite &He, <- &He' in Hn. +rewrite &Hn. +split. +Qed. + +Goal forall n m, (m = n -> n = m) -> m = n -> n = 0 -> m = 0. +Proof. +intros n m He He' He''. +rewrite <- &He by Std.assumption (). +Control.refine (fun () => &He''). +Qed. |