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:
parent
0cdd4a267c
commit
6ca120bf77
1 changed files with 29 additions and 0 deletions
29
tests/lean/run/univ1.lean
Normal file
29
tests/lean/run/univ1.lean
Normal 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
|
Loading…
Reference in a new issue