test(tests/lean/run): add Cody's file to test suite

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-07-27 08:17:46 -07:00
parent 0cdd4a267c
commit 6ca120bf77

29
tests/lean/run/univ1.lean Normal file
View file

@ -0,0 +1,29 @@
import standard
namespace S1
hypothesis I : Type
definition F (X : Type) : Type := (X → Prop) → Prop
hypothesis unfold.{l} : I.{l} → F I.{l}
hypothesis fold.{l} : F I.{l} → I.{l}
hypothesis iso1 : ∀x, fold (unfold x) = x
end
namespace S2
universe u
hypothesis I : Type.{u}
definition F (X : Type) : Type := (X → Prop) → Prop
hypothesis unfold : I → F I
hypothesis fold : F I → I
hypothesis iso1 : ∀x, fold (unfold x) = x
end
namespace S3
section
hypothesis I : Type
definition F (X : Type) : Type := (X → Prop) → Prop
hypothesis unfold : I → F I
hypothesis fold : F I → I
hypothesis iso1 : ∀x, fold (unfold x) = x
end
end