diff options
| author | Emilio Jesus Gallego Arias | 2018-10-05 17:08:06 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2018-10-05 17:08:06 +0200 |
| commit | 28df7dd06dbea299736f3897ecabd2a6e3fd8e28 (patch) | |
| tree | 991795381b6519dac60bf4b070f352b10b856394 /interp/constrexpr_ops.ml | |
| parent | 2f99e6f1da920f97bf083c846653bec25fb5848e (diff) | |
| parent | 37e165075d7a77b3c3e96800a92011da4506a2a8 (diff) | |
Merge PR #8662: Fix printing of raw terms for lambda's without parameters (continued, adding smart constr_expr binder constructors)
Diffstat (limited to 'interp/constrexpr_ops.ml')
| -rw-r--r-- | interp/constrexpr_ops.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/interp/constrexpr_ops.ml b/interp/constrexpr_ops.ml index 23d0536df8..d5f0b7bff6 100644 --- a/interp/constrexpr_ops.ml +++ b/interp/constrexpr_ops.ml @@ -526,6 +526,14 @@ let mkAppC (f,l) = | CApp (g,l') -> CAst.make @@ CApp (g, l' @ l) | _ -> CAst.make @@ CApp ((None, f), l) +let mkProdCN ?loc bll c = + if bll = [] then c else + CAst.make ?loc @@ CProdN (bll,c) + +let mkLambdaCN ?loc bll c = + if bll = [] then c else + CAst.make ?loc @@ CLambdaN (bll,c) + let mkCProdN ?loc bll c = CAst.make ?loc @@ CProdN (bll,c) |