From aff4e522b779ee468de7b7680fbbaba4fa9f28e5 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Thu, 30 Aug 2018 11:14:01 +0200 Subject: [ssr] move ssr_*v tests to test-suite/ssr/ --- test-suite/ssr/delayed_clear_rename.v | 5 +++++ test-suite/ssr/rewrite_illtyped.v | 9 +++++++++ test-suite/ssr/ssr_rew_illtyped.v | 9 --------- test-suite/success/ssr_delayed_clear_rename.v | 5 ----- 4 files changed, 14 insertions(+), 14 deletions(-) create mode 100644 test-suite/ssr/delayed_clear_rename.v create mode 100644 test-suite/ssr/rewrite_illtyped.v delete mode 100644 test-suite/ssr/ssr_rew_illtyped.v delete mode 100644 test-suite/success/ssr_delayed_clear_rename.v diff --git a/test-suite/ssr/delayed_clear_rename.v b/test-suite/ssr/delayed_clear_rename.v new file mode 100644 index 0000000000..951e5aff79 --- /dev/null +++ b/test-suite/ssr/delayed_clear_rename.v @@ -0,0 +1,5 @@ +Require Import ssreflect. +Example foo (t t1 t2 : True) : True /\ True -> True -> True. +Proof. +move=>[{t1 t2 t} t1 t2] t. +Abort. diff --git a/test-suite/ssr/rewrite_illtyped.v b/test-suite/ssr/rewrite_illtyped.v new file mode 100644 index 0000000000..7358068c8d --- /dev/null +++ b/test-suite/ssr/rewrite_illtyped.v @@ -0,0 +1,9 @@ +From Coq Require Import ssreflect Setoid. + +Structure SEProp := {prop_of : Prop; _ : prop_of <-> True}. + +Fact anomaly: forall P : SEProp, prop_of P. +Proof. +move=> [P E]. +Fail rewrite E. +Abort. diff --git a/test-suite/ssr/ssr_rew_illtyped.v b/test-suite/ssr/ssr_rew_illtyped.v deleted file mode 100644 index 7358068c8d..0000000000 --- a/test-suite/ssr/ssr_rew_illtyped.v +++ /dev/null @@ -1,9 +0,0 @@ -From Coq Require Import ssreflect Setoid. - -Structure SEProp := {prop_of : Prop; _ : prop_of <-> True}. - -Fact anomaly: forall P : SEProp, prop_of P. -Proof. -move=> [P E]. -Fail rewrite E. -Abort. diff --git a/test-suite/success/ssr_delayed_clear_rename.v b/test-suite/success/ssr_delayed_clear_rename.v deleted file mode 100644 index 951e5aff79..0000000000 --- a/test-suite/success/ssr_delayed_clear_rename.v +++ /dev/null @@ -1,5 +0,0 @@ -Require Import ssreflect. -Example foo (t t1 t2 : True) : True /\ True -> True -> True. -Proof. -move=>[{t1 t2 t} t1 t2] t. -Abort. -- cgit v1.2.3