diff options
author | 2015-10-02 16:01:46 +0200 | |
---|---|---|
committer | 2015-10-02 16:01:46 +0200 | |
commit | 16c88c9be5c37ee2e4fe04f7342365964031e7dd (patch) | |
tree | 7b5c07362dad323acae516718b9cebe94bd639af /test-suite/bugs/closed | |
parent | a3d7630d74b720b771e880dcf0fcad05de553a6e (diff) | |
parent | 88abc50ece70405d71777d5350ca2fa70c1ff437 (diff) |
Merge branch 'v8.5'
Diffstat (limited to 'test-suite/bugs/closed')
-rw-r--r-- | test-suite/bugs/closed/4347.v | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/4347.v b/test-suite/bugs/closed/4347.v new file mode 100644 index 000000000..29686a26c --- /dev/null +++ b/test-suite/bugs/closed/4347.v @@ -0,0 +1,17 @@ +Fixpoint demo_recursion(n:nat) := match n with + |0 => Type + |S k => (demo_recursion k) -> Type + end. + +Record Demonstration := mkDemo +{ + demo_law : forall n:nat, demo_recursion n; + demo_stuff : forall n:nat, forall q:(fix demo_recursion (n : nat) : Type := + match n with + | 0 => Type + | S k => demo_recursion k -> Type + end) n, (demo_law (S n)) q +}. + +Theorem DemoError : Demonstration. +Fail apply mkDemo. (*Anomaly: Uncaught exception Not_found. Please report.*) |