diff options
| author | Pierre-Marie Pédrot | 2015-02-15 14:08:04 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-02-15 14:08:04 +0100 |
| commit | 362b7ef4422b451e621ca8400692de1decb0503d (patch) | |
| tree | 10ddce2a3f32d3244c5802ebeaaa04e16b699068 /test-suite/bugs/opened | |
| parent | eec3b87e8cc782cb83ea2eae241129b79c80d496 (diff) | |
Test for bug #3490.
Diffstat (limited to 'test-suite/bugs/opened')
| -rw-r--r-- | test-suite/bugs/opened/3490.v | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/test-suite/bugs/opened/3490.v b/test-suite/bugs/opened/3490.v deleted file mode 100644 index e7a5caa1de..0000000000 --- a/test-suite/bugs/opened/3490.v +++ /dev/null @@ -1,27 +0,0 @@ -Inductive T : Type := -| Var : nat -> T -| Arr : T -> T -> T. - -Inductive Tele : list T -> Type := -| Tnil : @Tele nil -| Tcons : forall ls, forall (t : @Tele ls) (l : T), @Tele (l :: ls). - -Fail Fixpoint TeleD (ls : list T) (t : Tele ls) {struct t} - : { x : Type & x -> nat -> Type } := - match t return { x : Type & x -> nat -> Type } with - | Tnil => @existT Type (fun x => x -> nat -> Type) unit (fun (_ : unit) (_ : nat) => unit) - | Tcons ls t' l => - let (result, get) := TeleD ls t' in - @existT Type (fun x => x -> nat -> Type) - { v : result & (fix TD (t : T) {struct t} := - match t with - | Var n => - get v n - | Arr a b => TD a -> TD b - end) l } - (fun x n => - match n return Type with - | 0 => projT2 x - | S n => get (projT1 x) n - end) - end. |