diff options
| -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 |