2024-11-21 13:14:46 -08:00
|
|
|
===========
|
|
|
|
|
Application
|
|
|
|
|
===========
|
|
|
|
|
|
2024-12-01 20:53:58 -08:00
|
|
|
def foo (A B : *) (f : A -> B) (x : A) :=
|
2024-11-21 13:14:46 -08:00
|
|
|
(fun (x : B) => x) (f x);
|
|
|
|
|
|
|
|
|
|
---
|
2024-12-01 20:53:58 -08:00
|
|
|
|
2024-11-21 13:14:46 -08:00
|
|
|
(program
|
|
|
|
|
(definition
|
|
|
|
|
(identifier)
|
|
|
|
|
(param_block
|
|
|
|
|
(identifier)
|
|
|
|
|
(identifier)
|
|
|
|
|
(expr
|
|
|
|
|
(app_term
|
|
|
|
|
(app
|
|
|
|
|
(term
|
|
|
|
|
(star))))))
|
|
|
|
|
(param_block
|
|
|
|
|
(identifier)
|
|
|
|
|
(expr
|
|
|
|
|
(arrow
|
|
|
|
|
(app_term
|
|
|
|
|
(app
|
|
|
|
|
(term
|
|
|
|
|
(identifier))))
|
|
|
|
|
(expr
|
|
|
|
|
(app_term
|
|
|
|
|
(app
|
|
|
|
|
(term
|
|
|
|
|
(identifier))))))))
|
|
|
|
|
(param_block
|
|
|
|
|
(identifier)
|
|
|
|
|
(expr
|
|
|
|
|
(app_term
|
|
|
|
|
(app
|
|
|
|
|
(term
|
|
|
|
|
(identifier))))))
|
|
|
|
|
(expr
|
|
|
|
|
(app_term
|
|
|
|
|
(app
|
|
|
|
|
(term
|
|
|
|
|
(expr
|
|
|
|
|
(app_term
|
|
|
|
|
(labs
|
|
|
|
|
(param_block
|
|
|
|
|
(identifier)
|
|
|
|
|
(expr
|
|
|
|
|
(app_term
|
|
|
|
|
(app
|
|
|
|
|
(term
|
|
|
|
|
(identifier))))))
|
|
|
|
|
(expr
|
|
|
|
|
(app_term
|
|
|
|
|
(app
|
|
|
|
|
(term
|
|
|
|
|
(identifier)))))))))
|
|
|
|
|
(term
|
|
|
|
|
(expr
|
|
|
|
|
(app_term
|
|
|
|
|
(app
|
|
|
|
|
(term
|
|
|
|
|
(identifier))
|
|
|
|
|
(term
|
|
|
|
|
(identifier)))))))))))
|
