Skip to content

Commit f593f01

Browse files
authored
Merge pull request #1005 from SkySkimmer/let-abstract
Adapt to rocq-prover/rocq#17576 (declare_variable takes typing flags argument)
2 parents 64ce785 + 67cd5e9 commit f593f01

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

template-coq/src/run_template_monad.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -355,7 +355,7 @@ let rec run_template_program_rec ~poly ?(intactic=false) (k : Constr.t Plugin_co
355355
let kind = Decls.IsAssumption Decls.Definitional in
356356
(* FIXME: better handling of evm *)
357357
let empty_mono_univ_entry = UState.Monomorphic_entry Univ.ContextSet.empty, UnivNames.empty_binders in
358-
Declare.declare_variable ~name ~kind ~typ ~impl:Glob_term.Explicit ~univs:empty_mono_univ_entry;
358+
Declare.declare_variable ~typing_flags:None ~name ~kind ~typ ~impl:Glob_term.Explicit ~univs:empty_mono_univ_entry;
359359
let env = Global.env () in
360360
k ~st env evm (Lazy.force unit_tt)
361361
| TmDefinition (opaque,name,s,typ,body) ->

0 commit comments

Comments
 (0)