diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-04-12 10:08:05 +0200 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-05-15 09:58:47 +0200 |
| commit | 15059d887c3059e6d925310be860dd2a3cf97796 (patch) | |
| tree | e0c769cbad3b137e738c3e9da766f7f5f5795428 /test-suite/ssr/ltac_in.v | |
| parent | 3008ce85ed4de549816a1cac4701cb28bee4fad6 (diff) | |
[ssr] import ssreflect test suite from math-comp
Diffstat (limited to 'test-suite/ssr/ltac_in.v')
| -rw-r--r-- | test-suite/ssr/ltac_in.v | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/test-suite/ssr/ltac_in.v b/test-suite/ssr/ltac_in.v new file mode 100644 index 000000000..bcdf96dde --- /dev/null +++ b/test-suite/ssr/ltac_in.v @@ -0,0 +1,26 @@ +(************************************************************************) +(* * The Coq Proof Assistant / The Coq Development Team *) +(* v * INRIA, CNRS and contributors - Copyright 1999-2018 *) +(* <O___,, * (see CREDITS file for the list of authors) *) +(* \VV/ **************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(* * (see LICENSE file for the text of the license) *) +(************************************************************************) + +(* (c) Copyright 2006-2016 Microsoft Corporation and Inria. *) + +Require Import ssreflect. +Require Import ssrbool TestSuite.ssr_mini_mathcomp. + +Set Implicit Arguments. +Unset Strict Implicit. +Import Prenex Implicits. + +(* error 1 *) + +Ltac subst1 H := move: H; rewrite {1} addnC; move => H. +Ltac subst2 H := rewrite addnC in H. + +Goal ( forall a b: nat, b+a = 0 -> b+a=0). +Proof. move=> a b hyp. subst1 hyp. subst2 hyp. done. Qed. |