diff options
| -rw-r--r-- | pretyping/constr_matching.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/constr_matching.ml b/pretyping/constr_matching.ml index cf6ac619dd..f05812979d 100644 --- a/pretyping/constr_matching.ml +++ b/pretyping/constr_matching.ml @@ -373,7 +373,7 @@ let sub_match ?(partial_app=false) ?(closed=true) env sigma pat c = authorized_occ env sigma partial_app closed pat c mk_ctx next | LetIn (x,c1,t,c2) -> let next_mk_ctx = function - | [c1;c2] -> mkLetIn (x,c1,t,c2) + | [c1; c2] -> mk_ctx (mkLetIn (x, c1, t, c2)) | _ -> assert false in let next () = |