diff options
| author | herbelin | 2000-10-01 15:37:50 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-01 15:37:50 +0000 |
| commit | ea4ead6ad589e4dab02244c1fa655bddd45a9610 (patch) | |
| tree | 140844b488e0a10db8054efb17368e1a5f7338e6 /toplevel | |
| parent | 2f0c35cfcbab959bad20f436849c74ec63910f51 (diff) | |
Renommage AppL en App
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@635 85f007b7-540e-0410-9357-904b9bb8a0f7
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' |