diff options
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/command.ml | 2 | ||||
| -rw-r--r-- | toplevel/discharge.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 14381b7d7d..1fd4fc4034 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -223,7 +223,7 @@ let build_recursive lnameargsardef = with e -> States.unfreeze fs; raise e in - let recdef = + let recdef = (* TODO: remplacer mkCast par un appel à interp_casted_constr *) try List.map (fun (_,lparams,arityc,def) -> interp_constr sigma rec_sign diff --git a/toplevel/discharge.ml b/toplevel/discharge.ml index 477a294b89..dc6f01d341 100644 --- a/toplevel/discharge.ml +++ b/toplevel/discharge.ml @@ -201,7 +201,7 @@ let expmod_constr oldenv modlist c = | IsCast (c,t) -> mkCast (f c,f t) | _ -> f c in - let c' = modify_opers expfun (fun a b -> mkAppL (a, [|b|])) modlist c in + let c' = modify_opers expfun (fun a b -> mkApp (a, [|b|])) modlist c in match kind_of_term c' with | IsCast (val_0,typ) -> mkCast (simpfun val_0,simpfun typ) | _ -> simpfun c' |