8 lines
318 B
Text
8 lines
318 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
|