diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-01 15:16:57 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-01 15:16:57 +0000 |
| commit | 2f0c35cfcbab959bad20f436849c74ec63910f51 (patch) | |
| tree | be017201340ec2f43e9d126ac6e63bdbe428fe93 /pretyping/class.ml | |
| parent | 5efbe2d6be224aea70bf570b7ee26d80d79bc54f (diff) | |
Renommage AppL en App
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@634 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/class.ml')
| -rw-r--r-- | pretyping/class.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/class.ml b/pretyping/class.ml index f9c36315b..b83eb3608 100644 --- a/pretyping/class.ml +++ b/pretyping/class.ml @@ -110,7 +110,7 @@ let check_class id v cl p = (* decomposition de constr vers coe_typ *) -(* t provient de global_reference donc pas de Cast, pas de AppL *) +(* t provient de global_reference donc pas de Cast, pas de App *) let coe_of_reference t = match kind_of_term t with | IsConst (sp,l) -> (Array.to_list l),NAM_Constant sp @@ -126,7 +126,7 @@ let constructor_at_head1 t = | IsMutInd (ind_sp,l) -> t',[],(Array.to_list l),CL_IND ind_sp,0 | IsVar id -> t',[],[],CL_Var id,0 | IsCast (c,_) -> aux c - | IsAppL(f,args) -> + | IsApp(f,args) -> let t',_,l,c,_ = aux f in t',Array.to_list args,l,c,Array.length args | IsProd (_,_,_) -> t',[],[],CL_FUN,0 | IsLetIn (_,_,_,c) -> aux c |