diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-04-06 09:04:40 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-04-06 09:04:40 +0200 |
commit | ee9d9415c518e703a10a53acfdea8627547565fe (patch) | |
tree | 58995a433d3b77e81b93f605fe2d8aabb6012e75 | |
parent | 5d03ea0729ff1ed01bf64e9c98355149bb4c04e9 (diff) |
Test for bug #3815.
-rw-r--r-- | test-suite/bugs/closed/3815.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/3815.v b/test-suite/bugs/closed/3815.v new file mode 100644 index 000000000..5fb483984 --- /dev/null +++ b/test-suite/bugs/closed/3815.v @@ -0,0 +1,9 @@ +Require Import Setoid Coq.Program.Basics. +Global Open Scope program_scope. +Axiom foo : forall A (f : A -> A), f ∘ f = f. +Require Import Coq.Program.Combinators. +Hint Rewrite foo. +Theorem t {A B C D} (f : A -> A) (g : B -> C) (h : C -> D) +: f ∘ f = f. +Proof. + rewrite_strat topdown (hints core). |