diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-11-19 00:20:30 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 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 1dd9d0c00..629be8e4b 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) |