package rocq-runtime

  1. Overview
  2. Docs

Source file g_eqdecide.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

# 17 "plugins/ltac/g_eqdecide.mlg"
 

open Eqdecide
open Stdarg


# 10 "plugins/ltac/g_eqdecide.ml"

let () = Tacentries.tactic_extend "rocq-runtime.plugins.ltac" "decide_equality" ~level:0 
         [(Tacentries.TyML (Tacentries.TyIdent ("decide", Tacentries.TyIdent ("equality", 
                                                          Tacentries.TyNil)), 
           (fun ist -> 
# 27 "plugins/ltac/g_eqdecide.mlg"
                               decideEqualityGoal 
# 18 "plugins/ltac/g_eqdecide.ml"
)))]

let () = Tacentries.tactic_extend "rocq-runtime.plugins.ltac" "compare" ~level:0 
         [(Tacentries.TyML (Tacentries.TyIdent ("compare", Tacentries.TyArg (
                                                           Extend.TUentry (Genarg.get_arg_tag wit_constr), 
                                                           Tacentries.TyArg (
                                                           Extend.TUentry (Genarg.get_arg_tag wit_constr), 
                                                           Tacentries.TyNil))), 
           (fun c1 c2 ist -> 
# 31 "plugins/ltac/g_eqdecide.mlg"
                                           compare c1 c2 
# 30 "plugins/ltac/g_eqdecide.ml"
)))]