diff options
| author | Emilio Jesus Gallego Arias | 2020-05-15 17:42:05 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-05-15 17:42:05 +0200 |
| commit | 03e0aa5ee57b3b539b0fa34be2e1a02a2803b0be (patch) | |
| tree | e04fb1b65154093795bebb7f590e32785c53abd6 /interp | |
| parent | 215990f9f2a23d406e8e886c9824a56a120d8347 (diff) | |
| parent | 6b793e6b39b60cef8c3163cb6cd240e5a0ecbfc5 (diff) | |
Merge PR #12323: Fixes #12322: anomaly when printing "fun" binders with implicit types
Reviewed-by: ejgallego
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrextern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index 3f7bb6e330..8097935ec2 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -836,7 +836,7 @@ let rec flatten_application c = match DAst.get c with let same_binder_type ty nal c = match nal, DAst.get c with - | _::_, GProd (_,_,ty',_) -> glob_constr_eq ty ty' + | _::_, (GProd (_,_,ty',_) | GLambda (_,_,ty',_)) -> glob_constr_eq ty ty' | [], _ -> true | _ -> assert false |