diff options
| author | Vincent Laporte | 2018-10-02 13:44:46 +0000 |
|---|---|---|
| committer | Vincent Laporte | 2018-10-04 08:01:34 +0000 |
| commit | db22ae6140259dd065fdd80af4cb3c3bab41c184 (patch) | |
| tree | e17ad7016014a4e2dd4001d826575342c2812fc3 /test-suite/bugs/closed/1791.v | |
| parent | 53929e9bacf251f60c85d4ff24d46fec2c42ab4b (diff) | |
rename test files (do not start by a digit)
Diffstat (limited to 'test-suite/bugs/closed/1791.v')
| -rw-r--r-- | test-suite/bugs/closed/1791.v | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/test-suite/bugs/closed/1791.v b/test-suite/bugs/closed/1791.v deleted file mode 100644 index be0e8ae8ba..0000000000 --- a/test-suite/bugs/closed/1791.v +++ /dev/null @@ -1,38 +0,0 @@ -(* simpl performs eta expansion *) - -Set Implicit Arguments. -Require Import List. - -Definition k0 := Set. -Definition k1 := k0 -> k0. - -(** iterating X n times *) -Fixpoint Pow (X:k1)(k:nat){struct k}:k1:= - match k with 0 => fun X => X - | S k' => fun A => X (Pow X k' A) - end. - -Parameter Bush: k1. -Parameter BushToList: forall (A:k0), Bush A -> list A. - -Definition BushnToList (n:nat)(A:k0)(t:Pow Bush n A): list A. -Proof. - intros. - induction n. - exact (t::nil). - simpl in t. - exact (flat_map IHn (BushToList t)). -Defined. - -Parameter bnil : forall (A:k0), Bush A. -Axiom BushToList_bnil: forall (A:k0), BushToList (bnil A) = nil(A:=A). - -Lemma BushnToList_bnil (n:nat)(A:k0): - BushnToList (S n) A (bnil (Pow Bush n A)) = nil. -Proof. - intros. - simpl. - rewrite BushToList_bnil. - simpl. - reflexivity. -Qed. |
