diff options
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 ad53bf8981..51957e00ad 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 17a9deb3a2..1b9703c7bf 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 |