Skip to content

Commit

Permalink
add universe annotations to Localization.v
Browse files Browse the repository at this point in the history
Signed-off-by: Ali Caglayan <[email protected]>
  • Loading branch information
Alizter committed Sep 4, 2023
1 parent fcfcc77 commit d17d4aa
Show file tree
Hide file tree
Showing 3 changed files with 13 additions and 6 deletions.
1 change: 0 additions & 1 deletion contrib/dune
Original file line number Diff line number Diff line change
Expand Up @@ -3,4 +3,3 @@
(package coq-hott)
(flags -noinit -indices-matter -color on)
(theories HoTT))

8 changes: 8 additions & 0 deletions dune
Original file line number Diff line number Diff line change
Expand Up @@ -38,3 +38,11 @@
HoTT.Tests
%{deps}
-o)))

; We modify the default alias to avoid test/

(alias
(name default)
(deps
(alias_rec contrib/all)
(alias_rec theories/all)))
10 changes: 5 additions & 5 deletions theories/Modalities/Localization.v
Original file line number Diff line number Diff line change
Expand Up @@ -45,7 +45,7 @@ Then, however, we have to express the hypotheses of the induction principle. We

(** ** Dependent extendability *)

Fixpoint ExtendableAlong_Over@{a b c d m}
Fixpoint ExtendableAlong_Over@{a b c d m | a <= m, b <= m, c <= m, d <= m}
(n : nat) {A : Type@{a}} {B : Type@{b}} (f : A -> B)
(C : B -> Type@{c})
(D : forall b, C b -> Type@{d})
Expand Down Expand Up @@ -152,10 +152,10 @@ Proof.
Defined.

(** Here's the [oo]-version. *)
Definition ooExtendableAlong_Over
{A B : Type} (f : A -> B) (C : B -> Type)
(D : forall b, C b -> Type) (ext : ooExtendableAlong f C)
:= forall n, ExtendableAlong_Over n f C D (ext n).
Definition ooExtendableAlong_Over@{a b c d m | a <= m, b <= m, c <= m, d <= m}
{A : Type@{a}} {B : Type@{b}} (f : A -> B) (C : B -> Type@{c})
(D : forall b, C b -> Type@{d}) (ext : ooExtendableAlong f C)
:= forall n, ExtendableAlong_Over@{a b c d m} n f C D (ext n).

(** The [oo]-version for trivial dependency. *)
Definition ooextendable_over_const
Expand Down

0 comments on commit d17d4aa

Please sign in to comment.