diff options
| author | herbelin | 2000-05-31 13:12:16 +0000 |
|---|---|---|
| committer | herbelin | 2000-05-31 13:12:16 +0000 |
| commit | e563ed5bf7681b910e36d2dc4ea99406da940cec (patch) | |
| tree | 2f20f6a977cb75067ab7ee1bffddd444136aa6ad /pretyping/pretyping.ml | |
| parent | 301d5af223390fa5c82da9ae9958f610493ba814 (diff) | |
Afficahge des locations
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@483 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/pretyping.ml')
| -rw-r--r-- | pretyping/pretyping.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index 2493ae7a09..72eed91c5a 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -352,7 +352,7 @@ match cstr with (* Où teste-t-on que le résultat doit satisfaire tycon ? *) (rtc,cj::jl) in let jl = List.rev (snd (List.fold_left apply_one_arg (mk_tycon j.uj_type,[]) args)) in - inh_apply_rel_list !trad_nocheck env isevars jl j vtcon + inh_apply_rel_list !trad_nocheck loc env isevars jl j vtcon | RBinder(loc,BLambda,name,c1,c2) -> let j = @@ -450,7 +450,7 @@ match cstr with (* Où teste-t-on que le résultat doit satisfaire tycon ? *) let cj = pretype (mk_tycon2 vtcon (body_of_type (assumption_of_judgment env !isevars tj))) env isevars lvar lmeta c in - inh_cast_rel env isevars cj tj + inh_cast_rel loc env isevars cj tj (* Maintenant, tout s'exécute... | _ -> error_cant_execute CCI env (nf_ise1 env !isevars cstr) |