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