Merge pull request #1220 from ppedrot/declare-clear-cruft

Adapt to rocq-prover/rocq#21384.

Author: ppedrot

template-rocq/src/plugin_core.ml

@@ -131,8 +131,7 @@ let tmLemma (nm : ident) ?poly:(poly=false)(ty : term) : kername tm =
     let cinfo = Declare.CInfo.make ~name:nm ~typ:cty () in
     let info = Declare.Info.make ~poly ~kind () in
     (* This should register properly with the interpretation extension *)
-    let pm, _ = Declare.Obls.add_definition ~pm:st ~cinfo ~info ~body:c ~uctx:ctx ~obl_hook ~opaque:false obls in
-    pm
+    Declare.Obls.add_definition ~pm:st ~cinfo ~info ~body:c ~uctx:ctx ~obl_hook ~opaque:false obls
 
 let tmFreshName (nm : ident) : ident tm =
   fun ~st env evd success _fail ->

template-rocq/src/run_template_monad.ml

@@ -446,8 +446,7 @@ let rec run_template_program_rec ~poly ?(intactic=false) (k : Constr.t Plugin_co
         k ~st:pm env evm (EConstr.to_constr evm t)) in  (* todo better *)
     let cinfo = Declare.CInfo.make ~name:ident ~typ:cty () in
     let info = Declare.Info.make ~poly ~kind () in
-    let pm, _ = Declare.Obls.add_definition ~pm:st ~cinfo ~info ~body:c ~uctx ~obl_hook ~opaque:false obls in
-    pm
+    Declare.Obls.add_definition ~pm:st ~cinfo ~info ~body:c ~uctx ~obl_hook ~opaque:false obls
 
   | TmQuote trm ->
     (* user should do the reduction (using tmEval) if they want *)