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/typeof.v | |
| parent | 3008ce85ed4de549816a1cac4701cb28bee4fad6 (diff) | |
[ssr] import ssreflect test suite from math-comp
Diffstat (limited to 'test-suite/ssr/typeof.v')
| -rw-r--r-- | test-suite/ssr/typeof.v | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/test-suite/ssr/typeof.v b/test-suite/ssr/typeof.v new file mode 100644 index 000000000..ca121fdb3 --- /dev/null +++ b/test-suite/ssr/typeof.v @@ -0,0 +1,22 @@ +(************************************************************************) +(* * 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. + +Ltac mycut x := + let tx := type of x in + cut tx. + +Lemma test : True. +Proof. +by mycut I=> [ x | ]; [ exact x | exact I ]. +Qed. |