diff options
| author |  Amin Timany <amintimany@gmail.com> | 2017-04-03 16:06:07 +0200 |
|---|---|---|
| committer |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-06-16 04:45:19 +0200 |
| commit | f27f3ca3a39f5320a60c82c601525e7f0fe666cb (patch) | |
| tree | 770f6e774310d4a555c018a02c749a8567c4a8b4 /engine/universes.ml | |
| parent | fd1f420aef96822bed2ce14214c34e41ceda9b4e (diff) | |
Check subtyping of inductive types in Kernel
Diffstat (limited to 'engine/universes.ml')
| -rw-r--r-- | engine/universes.ml | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/engine/universes.ml b/engine/universes.ml index ad53bf898..51957e00a 100644 --- a/engine/universes.ml +++ b/engine/universes.ml @@ -1129,12 +1129,3 @@ let univ_inf_ind_from_universe_context univcst = (Array.map (fun _ -> new_univ_level ()) (Instance.to_array (UContext.instance univcst))) in UInfoInd.from_universe_context univcst freshunivs - -(** This function adds universe constraints to the universe - constraints of the given universe_info_ind. However one must be - CAUTIOUS as it resets the subtyping constraints to equality. *) -let univ_inf_ind_union uinfind univcst' = - let freshunivs = Instance.of_array - (Array.map (fun _ -> new_univ_level ()) - (Instance.to_array (UContext.instance univcst'))) - in UInfoInd.union uinfind univcst' freshunivs |