1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# 11 "plugins/nsatz/g_nsatz.mlg"
open Ltac_plugin
open Stdarg
let _ = Mltop.add_known_module "coq-core.plugins.nsatz"
let () = Tacentries.tactic_extend "coq-core.plugins.nsatz" "nsatz_compute" ~level:0
[(Tacentries.TyML (Tacentries.TyIdent ("nsatz_compute", Tacentries.TyArg (
Extend.TUentry (Genarg.get_arg_tag wit_constr),
Tacentries.TyNil)),
(fun lt ist ->
# 21 "plugins/nsatz/g_nsatz.mlg"
Nsatz.nsatz_compute (EConstr.Unsafe.to_constr lt)
)))]