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