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 | |
parent | fd1f420aef96822bed2ce14214c34e41ceda9b4e (diff) |
Check subtyping of inductive types in Kernel
Diffstat (limited to 'engine')
-rw-r--r-- | engine/universes.ml | 9 | ||||
-rw-r--r-- | engine/universes.mli | 5 |
2 files changed, 0 insertions, 14 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 diff --git a/engine/universes.mli b/engine/universes.mli index 17a9deb3a..1b9703c7b 100644 --- a/engine/universes.mli +++ b/engine/universes.mli @@ -233,8 +233,3 @@ val solve_constraints_system : universe option array -> universe array -> univer (** Given a universe context representing constraints of an inductive this function produces a UInfoInd.t that with the trivial subtyping relation. *) val univ_inf_ind_from_universe_context : universe_context -> universe_info_ind - -(** 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. *) -val univ_inf_ind_union : universe_info_ind -> universe_context -> universe_info_ind |