diff options
| -rwxr-xr-x | test-suite/misc/11170.sh | 8 | ||||
| -rw-r--r-- | test-suite/misc/aux11170.v | 7 |
2 files changed, 15 insertions, 0 deletions
diff --git a/test-suite/misc/11170.sh b/test-suite/misc/11170.sh new file mode 100755 index 0000000000..da8843fcf6 --- /dev/null +++ b/test-suite/misc/11170.sh @@ -0,0 +1,8 @@ +#!/usr/bin/env bash + +set -e + +export PATH=$BIN:$PATH +export OCAMLRUNPARAM=s=1 + +${coqc#"$BIN"} misc/aux11170.v diff --git a/test-suite/misc/aux11170.v b/test-suite/misc/aux11170.v new file mode 100644 index 0000000000..bf93462463 --- /dev/null +++ b/test-suite/misc/aux11170.v @@ -0,0 +1,7 @@ +Require Import BinNat. +Fixpoint T n := match n with O => nat | S n => nat -> T n end. +Fixpoint app n : T n -> nat := + match n with O => fun x => x | S n => fun f => app n (f 0) end. +Definition n := N.to_nat 5000. +Axiom f : T n. +Eval vm_compute in let t := (app n f, 0) in snd t. |