diff options
| author | Pierre-Marie Pédrot | 2016-11-19 00:20:30 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-02-14 17:28:53 +0100 |
| commit | 118ae18590dbc7d01cf34e0cd6133b1e34ef9090 (patch) | |
| tree | 67fbad3b3105dfdc75eb4692517e7d22337a94ee /engine/eConstr.ml | |
| parent | 3f9e56fcbf479999325a86bbdaeefd6a0be13c65 (diff) | |
Contradiction API using EConstr.
Diffstat (limited to 'engine/eConstr.ml')
| -rw-r--r-- | engine/eConstr.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/engine/eConstr.ml b/engine/eConstr.ml index 1dd9d0c005..629be8e4b5 100644 --- a/engine/eConstr.ml +++ b/engine/eConstr.ml @@ -99,6 +99,7 @@ let mkIndU pi = of_kind (Ind pi) let mkInd i = of_kind (Ind (in_punivs i)) let mkConstructU pc = of_kind (Construct pc) let mkConstruct c = of_kind (Construct (in_punivs c)) +let mkConstructUi ((ind,u),i) = of_kind (Construct ((ind,i),u)) let mkCase (ci, c, r, p) = of_kind (Case (ci, c, r, p)) let mkFix f = of_kind (Fix f) let mkCoFix f = of_kind (CoFix f) |