6 lines
296 B
Text
6 lines
296 B
Text
λ (c : name),
|
||
get_env >>= λ (env : environment),
|
||
returnex (environment.get env c) >>= λ (decl : declaration),
|
||
return (length (declaration.univ_params decl)) >>= λ (num : ℕ),
|
||
mk_num_meta_univs 2 >>= λ (ls : list level), return (expr.const c ls) :
|
||
name → tactic expr
|