diff options
| author | Emilio Jesus Gallego Arias | 2017-12-13 01:06:48 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2017-12-13 17:48:48 +0100 |
| commit | c75619228e1c878644edbc49c5cb690777966863 (patch) | |
| tree | b02c141f35893656559548f688873abb286db4dd /vernac/command.ml | |
| parent | b0f716e7c23f3095cf0cd96c79d762835ebdff23 (diff) | |
[econstr] Small cleanup in `vernac/lemmas`
Diffstat (limited to 'vernac/command.ml')
| -rw-r--r-- | vernac/command.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/command.ml b/vernac/command.ml index 64412b20fe..cb90cd17a6 100644 --- a/vernac/command.ml +++ b/vernac/command.ml @@ -1170,7 +1170,7 @@ let declare_fixpoint local poly ((fixnames,fixdefs,fixtypes),pl,ctx,fiximps) ind if List.exists Option.is_empty fixdefs then (* Some bodies to define by proof *) let thms = - List.map3 (fun id t (ctx,imps,_) -> (id,(t,(List.map RelDecl.get_name ctx,imps)))) + List.map3 (fun id t (ctx,imps,_) -> (id,(EConstr.of_constr t,(List.map RelDecl.get_name ctx,imps)))) fixnames fixtypes fiximps in let init_tac = Some (List.map (Option.cata (EConstr.of_constr %> Tactics.exact_no_check) Tacticals.New.tclIDTAC) @@ -1205,7 +1205,7 @@ let declare_cofixpoint local poly ((fixnames,fixdefs,fixtypes),pl,ctx,fiximps) n if List.exists Option.is_empty fixdefs then (* Some bodies to define by proof *) let thms = - List.map3 (fun id t (ctx,imps,_) -> (id,(t,(List.map RelDecl.get_name ctx,imps)))) + List.map3 (fun id t (ctx,imps,_) -> (id,(EConstr.of_constr t,(List.map RelDecl.get_name ctx,imps)))) fixnames fixtypes fiximps in let init_tac = Some (List.map (Option.cata (EConstr.of_constr %> Tactics.exact_no_check) Tacticals.New.tclIDTAC) |