package rocq-runtime

  1. Overview
  2. Docs

Source file g_nsatz.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

# 11 "plugins/nsatz/g_nsatz.mlg"
 

open Ltac_plugin
open Stdarg


# 10 "plugins/nsatz/g_nsatz.ml"

let () = Tacentries.tactic_extend "rocq-runtime.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) 
# 19 "plugins/nsatz/g_nsatz.ml"
)))]