diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-21 11:49:08 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-21 11:49:08 +0000 |
| commit | 094b40758cb4278b33a87e5633cf4ac716f348b4 (patch) | |
| tree | 6b2d72e65be92b3aa7e0325b3e73ab80d7fcf45e | |
| parent | 691b79b3ef0d78c414b2c7c647524eb1bc1d94dd (diff) | |
Affinement affichage
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3473 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/detyping.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 4c6d24833..86bca87eb 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -260,14 +260,15 @@ let rec detype tenv avoid env t = if tag = RegularStyle then RCases (dummy_loc,pred,[tomatch],eqnl) else - let bl = Array.map (detype tenv avoid env) bl in let rec remove_type n c = if n = 0 then c else match c with | RLambda (loc,na,t,c) -> let h = RHole (loc,AbstractionType na) in RLambda (loc,na,h,remove_type (n-1) c) - | RLetIn (loc,na,b,c) -> RLetIn (loc,na,b,remove_type (n-1) c) - | _ -> anomaly "Not a context" in + | RLetIn (loc,na,b,c) -> + RLetIn (loc,na,b,remove_type (n-1) c) + | c -> c in + let bl = Array.map (detype tenv avoid env) bl in let bl = array_map2 remove_type consnargsl bl in ROrderedCase (dummy_loc,tag,pred,tomatch,bl) |