lean2/tests/lean/tst7.lean
Leonardo de Moura 4ba097a141 feat(frontends/lean): use lowercase commands, replace 'endscope' and 'endnamespace' with 'end'
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
2014-01-05 13:06:36 -08:00

17 lines
595 B
Text

variable f : Pi (A : Type), A -> Bool
print fun (A B : Type) (a : _), f B a
-- The following one should produce an error
print fun (A : Type) (a : _) (B : Type), f B a
variable myeq : Pi A : (Type U), A -> A -> Bool
print myeq _ (fun (A : Type) (a : _), a) (fun (B : Type) (b : B), b)
check myeq _ (fun (A : Type) (a : _), a) (fun (B : Type) (b : B), b)
variable R : Type -> Bool
variable h : (Pi (A : Type), R A) -> Bool
check (fun (H : Bool)
(f1 : Pi (A : Type), R _)
(g1 : Pi (A : Type), R A)
(G : Pi (A : Type), myeq _ (f1 _) (g1 A)),
h f1)