diff options
| author | herbelin | 2002-08-13 16:13:32 +0000 |
|---|---|---|
| committer | herbelin | 2002-08-13 16:13:32 +0000 |
| commit | 5c668276b37f09077231c314b03254df6dce3c48 (patch) | |
| tree | b8bb01cd33a1bf16d9270359dbac796a223a4f32 /kernel/typeops.ml | |
| parent | a3848b0a10064fb7e206a503ac8b829cb9ce4666 (diff) | |
Renoncement
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2962 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/typeops.ml')
| -rw-r--r-- | kernel/typeops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml index 29b09dde14..88de140dfa 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -177,7 +177,7 @@ let judge_of_apply env funj argjv = apply_rec (n+1) (subst1 hj.uj_val c2) cst' restjl with NotConvertible -> error_cant_apply_bad_type env - (n,c1,body_of_type hj.uj_type) + (n,c1, hj.uj_type) funj argjv) | _ -> @@ -312,7 +312,7 @@ let type_fixpoint env lna lar vdefj = try conv_leq_vecti env (Array.map (fun j -> body_of_type j.uj_type) vdefj) - (Array.map (fun ty -> lift lt (body_of_type ty)) lar) + (Array.map (fun ty -> lift lt ty) lar) with NotConvertibleVect i -> error_ill_typed_rec_body env i lna vdefj lar |