diff options
| author | herbelin | 2004-07-11 18:46:38 +0000 |
|---|---|---|
| committer | herbelin | 2004-07-11 18:46:38 +0000 |
| commit | e6cbfce752d7b7bce9dfa8635501342f29e9a18f (patch) | |
| tree | a58e99676b142a584d61bc0c70059274551eca05 | |
| parent | b756e118eeb97d8358f024ef531d6acc799ca6f7 (diff) | |
Backtrack sur l'eta-expansion systematique et incorrect du predicat du Cases (c'est au moment de la construction dans Indrec qu'il faut eta-expanser -cf bug #784)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5883 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/detyping.ml | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 40e5d4a536..db4264195d 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -246,16 +246,7 @@ let detype_case computable detype detype_eqn testdep let nl,typ = decompose_lam k p in let n,typ = match typ with | RLambda (_,x,t,c) -> x, c - | _ -> - let id = match tomatch with - | RVar (_,id) -> id - | _ -> id_of_string "x" in - let x = next_ident_away id avoid in - let a = RVar (dummy_loc,x) in - let typ = match typ with - | RApp (loc,p,l) -> RApp (loc,p,l@[a]) - | _ -> (RApp (dummy_loc,typ,[a])) in - Name x, typ in + | _ -> Anonymous, typ in let aliastyp = if List.for_all ((=) Anonymous) nl then None else |