diff options
| author | Emilio Jesus Gallego Arias | 2020-05-25 16:30:20 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-06-26 14:38:11 +0200 |
| commit | b143d124e140628e5974da4af1b8a70a4d534598 (patch) | |
| tree | 3e105d09b0c6490cb1b9d1fe185e4eab68ef957e /plugins/funind/recdef.ml | |
| parent | a6d663c85d71b3cce007af23419e8030b8c5ac88 (diff) | |
[declare] Move udecl to Info structure.
Diffstat (limited to 'plugins/funind/recdef.ml')
| -rw-r--r-- | plugins/funind/recdef.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/plugins/funind/recdef.ml b/plugins/funind/recdef.ml index 853a54592d..9f36eada45 100644 --- a/plugins/funind/recdef.ml +++ b/plugins/funind/recdef.ml @@ -1494,8 +1494,8 @@ let open_new_goal ~lemma build_proof sigma using_lemmas ref_ goal_name in let info = Declare.Info.make ~hook:(Declare.Hook.make hook) () in let lemma = - Declare.start_proof ~name:na ~poly:false (* FIXME *) ~info ~impargs:[] - ~udecl:UState.default_univ_decl sigma gls_type + Declare.start_proof ~name:na ~poly:false (* FIXME *) ~info ~impargs:[] sigma + gls_type in let lemma = if Indfun_common.is_strict_tcc () then @@ -1534,7 +1534,7 @@ let com_terminate interactive_proof tcc_lemma_name tcc_lemma_ref is_mes let info = Declare.Info.make ~hook () in let lemma = Declare.start_proof ~name:thm_name ~poly:false (*FIXME*) ~info ctx - ~impargs:[] ~udecl:UState.default_univ_decl + ~impargs:[] (EConstr.of_constr (compute_terminate_type nb_args fonctional_ref)) in let lemma = @@ -1608,7 +1608,6 @@ let com_eqn uctx nb_arg eq_name functional_ref f_ref terminate_ref let info = Declare.Info.make () in let lemma = Declare.start_proof ~name:eq_name ~poly:false evd ~info ~impargs:[] - ~udecl:UState.default_univ_decl (EConstr.of_constr equation_lemma_type) in let lemma = |