(** * Accessible subuniverses and modalities *)

Require Import HoTT.Basics HoTT.Types.
[Loading ML file number_string_notation_plugin.cmxs (using legacy method) ... done]
Require Import Extensions NullHomotopy.
Require Import Modality.

Local Open Scope nat_scope.
Local Open Scope path_scope.


(** ** Accessible reflective subuniverses *)

(** An accessible reflective subuniverse is one that is the localization at a small family of maps.  Accessibility is necessary for some constructions, and in practice it's a reasonable hypothesis that includes most examples (though a few examples, such as double negation, may only be accessible if we assume propositional resizing).

We now give the basic definitions related to accessibility, using [ooExtendableAlong] as our notion of equivalence as we did with reflective subuniverses.  The actual construction of a reflective subuniverse by localization will be in [Localization]. *)

Record LocalGenerators@{a} :=
  { lgen_indices : Type@{a} ;
    lgen_domain : lgen_indices -> Type@{a} ;
    lgen_codomain : lgen_indices -> Type@{a} ;
    lgenerator : forall i, lgen_domain i -> lgen_codomain i
  }.

Coercion lgenerator : LocalGenerators >-> Funclass.

(** We put this definition in a module so that no one outside of this file will use it accidentally.  It will be redefined in [Localization] to refer to the localization reflective subuniverse, which is judgmentally the same but will also pick up typeclass inference for [In]. *)
Module Import IsLocal_Internal.
  Definition IsLocal f X :=
    (forall (i : lgen_indices f), ooExtendableAlong (f i) (fun _ => X)).
End IsLocal_Internal.

Class IsAccRSU@{a i} (O : Subuniverse@{i}) :=
{
  acc_lgen : LocalGenerators@{a} ;
  inO_iff_islocal : forall (X : Type@{i}),
      (** We call [iff] explicitly to control the number of universe parameters. *)
      iff@{i i i} (In O X) (IsLocal acc_lgen X) ;
}.

Arguments acc_lgen O {_}.
Arguments inO_iff_islocal O {_} X.

  Instance O_inverts_generators {O : ReflectiveSubuniverse} `{IsAccRSU O}
             (i : lgen_indices (acc_lgen O))
  : O_inverts O (acc_lgen O i).
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
O_inverts O (acc_lgen O i)
  Proof.
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
O_inverts O (acc_lgen O i)
    pose (ext_dom := fst (inO_iff_islocal O (O (lgen_domain (acc_lgen O) i))) _).
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
ext_dom:= fst
  (inO_iff_islocal O
     (O (lgen_domain (acc_lgen O) i)))
  (O_inO (lgen_domain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_domain (acc_lgen O) i))
O_inverts O (acc_lgen O i)
    pose (ext_cod := fst (inO_iff_islocal O (O (lgen_codomain (acc_lgen O) i))) _).
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
ext_dom:= fst
  (inO_iff_islocal O
     (O (lgen_domain (acc_lgen O) i)))
  (O_inO (lgen_domain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_domain (acc_lgen O) i))
ext_cod:= fst
  (inO_iff_islocal O
     (O (lgen_codomain (acc_lgen O) i)))
  (O_inO (lgen_codomain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_codomain (acc_lgen O) i))
O_inverts O (acc_lgen O i)
    simple refine (isequiv_adjointify _ _ _ _).
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
ext_dom:= fst
  (inO_iff_islocal O
     (O (lgen_domain (acc_lgen O) i)))
  (O_inO (lgen_domain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_domain (acc_lgen O) i))
ext_cod:= fst
  (inO_iff_islocal O
     (O (lgen_codomain (acc_lgen O) i)))
  (O_inO (lgen_codomain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_codomain (acc_lgen O) i))
O (lgen_codomain (acc_lgen O) i) ->
O (lgen_domain (acc_lgen O) i)
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
ext_dom:= fst
  (inO_iff_islocal O
     (O (lgen_domain (acc_lgen O) i)))
  (O_inO (lgen_domain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_domain (acc_lgen O) i))
ext_cod:= fst
  (inO_iff_islocal O
     (O (lgen_codomain (acc_lgen O) i)))
  (O_inO (lgen_codomain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_codomain (acc_lgen O) i))
O_functor O (acc_lgen O i) o ?g == idmap
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
ext_dom:= fst
  (inO_iff_islocal O
     (O (lgen_domain (acc_lgen O) i)))
  (O_inO (lgen_domain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_domain (acc_lgen O) i))
ext_cod:= fst
  (inO_iff_islocal O
     (O (lgen_codomain (acc_lgen O) i)))
  (O_inO (lgen_codomain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_codomain (acc_lgen O) i))
?g o O_functor O (acc_lgen O i) == idmap
    -
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
ext_dom:= fst
  (inO_iff_islocal O
     (O (lgen_domain (acc_lgen O) i)))
  (O_inO (lgen_domain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_domain (acc_lgen O) i))
ext_cod:= fst
  (inO_iff_islocal O
     (O (lgen_codomain (acc_lgen O) i)))
  (O_inO (lgen_codomain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_codomain (acc_lgen O) i))
O (lgen_codomain (acc_lgen O) i) ->
O (lgen_domain (acc_lgen O) i) apply O_rec.
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
ext_dom:= fst
  (inO_iff_islocal O
     (O (lgen_domain (acc_lgen O) i)))
  (O_inO (lgen_domain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_domain (acc_lgen O) i))
ext_cod:= fst
  (inO_iff_islocal O
     (O (lgen_codomain (acc_lgen O) i)))
  (O_inO (lgen_codomain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_codomain (acc_lgen O) i))
lgen_codomain (acc_lgen O) i ->
O (lgen_domain (acc_lgen O) i)
      exact ((fst (ext_dom i 1%nat) (to O _)).1).
    -
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
ext_dom:= fst
  (inO_iff_islocal O
     (O (lgen_domain (acc_lgen O) i)))
  (O_inO (lgen_domain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_domain (acc_lgen O) i))
ext_cod:= fst
  (inO_iff_islocal O
     (O (lgen_codomain (acc_lgen O) i)))
  (O_inO (lgen_codomain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_codomain (acc_lgen O) i))
O_functor O (acc_lgen O i)
o O_rec
    (fst (ext_dom i 1)
       (to O (lgen_domain (acc_lgen O) i))).1 == idmap apply O_indpaths; intros x; simpl.
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
ext_dom:= fst
  (inO_iff_islocal O
     (O (lgen_domain (acc_lgen O) i)))
  (O_inO (lgen_domain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_domain (acc_lgen O) i))
ext_cod:= fst
  (inO_iff_islocal O
     (O (lgen_codomain (acc_lgen O) i)))
  (O_inO (lgen_codomain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_codomain (acc_lgen O) i))
x: lgen_codomain (acc_lgen O) i
O_functor O (acc_lgen O i)
  (O_rec
     (fst (ext_dom i 1)
        (to O (lgen_domain (acc_lgen O) i))).1
     (to O (lgen_codomain (acc_lgen O) i) x)) =
to O (lgen_codomain (acc_lgen O) i) x
      rewrite O_rec_beta.
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
ext_dom:= fst
  (inO_iff_islocal O
     (O (lgen_domain (acc_lgen O) i)))
  (O_inO (lgen_domain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_domain (acc_lgen O) i))
ext_cod:= fst
  (inO_iff_islocal O
     (O (lgen_codomain (acc_lgen O) i)))
  (O_inO (lgen_codomain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_codomain (acc_lgen O) i))
x: lgen_codomain (acc_lgen O) i
O_functor O (acc_lgen O i)
  ((fst (ext_dom i 1)
      (to O (lgen_domain (acc_lgen O) i))).1 x) =
to O (lgen_codomain (acc_lgen O) i) x
      refine ((fst (snd (ext_cod i 2)
                        (fun x => O_functor O (acc_lgen O i)
                                            ((fst (ext_dom i 1%nat) (to O _)).1 x))
                        _) _).1 x); intros a.
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
ext_dom:= fst
  (inO_iff_islocal O
     (O (lgen_domain (acc_lgen O) i)))
  (O_inO (lgen_domain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_domain (acc_lgen O) i))
ext_cod:= fst
  (inO_iff_islocal O
     (O (lgen_codomain (acc_lgen O) i)))
  (O_inO (lgen_codomain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_codomain (acc_lgen O) i))
x: lgen_codomain (acc_lgen O) i
a: lgen_domain (acc_lgen O) i
O_functor O (acc_lgen O i)
  ((fst (ext_dom i 1)
      (to O (lgen_domain (acc_lgen O) i))).1
     (acc_lgen O i a)) =
to O (lgen_codomain (acc_lgen O) i) (acc_lgen O i a)
      rewrite ((fst (ext_dom i 1%nat) (to O _)).2 a).
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
ext_dom:= fst
  (inO_iff_islocal O
     (O (lgen_domain (acc_lgen O) i)))
  (O_inO (lgen_domain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_domain (acc_lgen O) i))
ext_cod:= fst
  (inO_iff_islocal O
     (O (lgen_codomain (acc_lgen O) i)))
  (O_inO (lgen_codomain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_codomain (acc_lgen O) i))
x: lgen_codomain (acc_lgen O) i
a: lgen_domain (acc_lgen O) i
O_functor O (acc_lgen O i)
  (to O (lgen_domain (acc_lgen O) i) a) =
to O (lgen_codomain (acc_lgen O) i) (acc_lgen O i a)
      apply to_O_natural.
    -
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
ext_dom:= fst
  (inO_iff_islocal O
     (O (lgen_domain (acc_lgen O) i)))
  (O_inO (lgen_domain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_domain (acc_lgen O) i))
ext_cod:= fst
  (inO_iff_islocal O
     (O (lgen_codomain (acc_lgen O) i)))
  (O_inO (lgen_codomain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_codomain (acc_lgen O) i))
O_rec
  (fst (ext_dom i 1)
     (to O (lgen_domain (acc_lgen O) i))).1
o O_functor O (acc_lgen O i) == idmap apply O_indpaths; intros x; simpl.
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
ext_dom:= fst
  (inO_iff_islocal O
     (O (lgen_domain (acc_lgen O) i)))
  (O_inO (lgen_domain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_domain (acc_lgen O) i))
ext_cod:= fst
  (inO_iff_islocal O
     (O (lgen_codomain (acc_lgen O) i)))
  (O_inO (lgen_codomain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_codomain (acc_lgen O) i))
x: lgen_domain (acc_lgen O) i
O_rec
  (fst (ext_dom i 1)
     (to O (lgen_domain (acc_lgen O) i))).1
  (O_functor O (acc_lgen O i)
     (to O (lgen_domain (acc_lgen O) i) x)) =
to O (lgen_domain (acc_lgen O) i) x
      rewrite (to_O_natural O (acc_lgen O i) x).
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
ext_dom:= fst
  (inO_iff_islocal O
     (O (lgen_domain (acc_lgen O) i)))
  (O_inO (lgen_domain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_domain (acc_lgen O) i))
ext_cod:= fst
  (inO_iff_islocal O
     (O (lgen_codomain (acc_lgen O) i)))
  (O_inO (lgen_codomain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_codomain (acc_lgen O) i))
x: lgen_domain (acc_lgen O) i
O_rec
  (fst (ext_dom i 1)
     (to O (lgen_domain (acc_lgen O) i))).1
  (to O (lgen_codomain (acc_lgen O) i)
     (acc_lgen O i x)) =
to O (lgen_domain (acc_lgen O) i) x
      rewrite O_rec_beta.
O: ReflectiveSubuniverse
H: IsAccRSU O
i: lgen_indices (acc_lgen O)
ext_dom:= fst
  (inO_iff_islocal O
     (O (lgen_domain (acc_lgen O) i)))
  (O_inO (lgen_domain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_domain (acc_lgen O) i))
ext_cod:= fst
  (inO_iff_islocal O
     (O (lgen_codomain (acc_lgen O) i)))
  (O_inO (lgen_codomain (acc_lgen O) i)): IsLocal (acc_lgen O)
  (O (lgen_codomain (acc_lgen O) i))
x: lgen_domain (acc_lgen O) i
(fst (ext_dom i 1) (to O (lgen_domain (acc_lgen O) i))).1
  (acc_lgen O i x) =
to O (lgen_domain (acc_lgen O) i) x
      exact ((fst (ext_dom i 1%nat) (to O _)).2 x).
  Qed.

(** The construction of the localization reflective subuniverse for any family of maps will be in [Localization]. *)


(** ** Accessible modalities *)

(** A modality is accessible just when its underlying reflective subuniverse is accessible.  However, for modalities we have a simpler characterization in terms of families of generating connected objects rather than families of generating inverted maps.  We call an object [S]-null if it is local with respect to the maps [S i -> Unit]. *)

Record NullGenerators :=
  { ngen_indices : Type@{a} ;
    ngen_type : ngen_indices -> Type@{a}
  }.

Coercion ngen_type : NullGenerators >-> Funclass.

Definition null_to_local_generators : NullGenerators@{a1} -> LocalGenerators@{a2}
  := fun S => Build_LocalGenerators (ngen_indices S) (ngen_type S) (fun _ => Unit) (fun _ _ => tt).

(** As with [IsLocal], the real version of this notation will be defined in [Nullification]. *)
Module Import IsNull_Internal.
  Definition IsNull (S : NullGenerators@{a}) (X : Type@{i})
    := IsLocal@{i i a} (null_to_local_generators@{a a} S) X.
End IsNull_Internal.

(** A central fact: if a type [X] is null for all the fibers of a map [f], then it is [f]-local.  (NB: the converse is *not* generally true.)  TODO: Should this go in [Extensions]? *)
Definition extendable_isnull_fibers (n : nat)
           {A B} (f : A -> B) (C : B -> Type)
: (forall b, ooExtendableAlong (const_tt (hfiber f b))
                               (fun _ => C b))
  -> ExtendableAlong n f C.
n: nat
A, B: Type
f: A -> B
C: B -> Type
(forall b : B,
 ooExtendableAlong (const_tt (hfiber f b))
   (unit_name (C b))) -> ExtendableAlong n f C
Proof.
n: nat
A, B: Type
f: A -> B
C: B -> Type
(forall b : B,
 ooExtendableAlong (const_tt (hfiber f b))
   (unit_name (C b))) -> ExtendableAlong n f C
  revert C.
n: nat
A, B: Type
f: A -> B
forall C : B -> Type,
(forall b : B,
 ooExtendableAlong (const_tt (hfiber f b))
   (unit_name (C b))) -> ExtendableAlong n f C
  simple_induction n n IHn; intros C null; [exact tt | split].
A, B: Type
f: A -> B
n: nat
IHn: forall C : B -> Type,
(forall b : B, ooExtendableAlong (const_tt (hfiber f b)) (unit_name (C b))) ->
ExtendableAlong n f C
C: B -> Type
null: forall b : B,
ooExtendableAlong (const_tt (hfiber f b))
  (unit_name (C b))
forall g : forall a : A, C (f a), ExtensionAlong f C g
A, B: Type
f: A -> B
n: nat
IHn: forall C : B -> Type,
(forall b : B,
 ooExtendableAlong (const_tt (hfiber f b))
   (unit_name (C b))) -> 
ExtendableAlong n f C
C: B -> Type
null: forall b : B,
ooExtendableAlong (const_tt (hfiber f b))
  (unit_name (C b))
forall h k : forall b : B, C b,
ExtendableAlong n f (fun b : B => h b = k b)
  -
A, B: Type
f: A -> B
n: nat
IHn: forall C : B -> Type,
(forall b : B, ooExtendableAlong (const_tt (hfiber f b)) (unit_name (C b))) ->
ExtendableAlong n f C
C: B -> Type
null: forall b : B,
ooExtendableAlong (const_tt (hfiber f b))
  (unit_name (C b))
forall g : forall a : A, C (f a), ExtensionAlong f C g intros g.
A, B: Type
f: A -> B
n: nat
IHn: forall C : B -> Type,
(forall b : B, ooExtendableAlong (const_tt (hfiber f b)) (unit_name (C b))) ->
ExtendableAlong n f C
C: B -> Type
null: forall b : B,
ooExtendableAlong (const_tt (hfiber f b))
  (unit_name (C b))
g: forall a : A, C (f a)
ExtensionAlong f C g
    exists (fun b => (fst (null b 1%nat) (fun x => x.2 # g x.1)).1 tt).
A, B: Type
f: A -> B
n: nat
IHn: forall C : B -> Type,
(forall b : B, ooExtendableAlong (const_tt (hfiber f b)) (unit_name (C b))) ->
ExtendableAlong n f C
C: B -> Type
null: forall b : B,
ooExtendableAlong (const_tt (hfiber f b))
  (unit_name (C b))
g: forall a : A, C (f a)
forall x : A,
(fst (null (f x) 1)
   (fun x0 : hfiber f (f x) =>
    transport C x0.2 (g x0.1))).1 tt = g x
    intros a.
A, B: Type
f: A -> B
n: nat
IHn: forall C : B -> Type,
(forall b : B, ooExtendableAlong (const_tt (hfiber f b)) (unit_name (C b))) ->
ExtendableAlong n f C
C: B -> Type
null: forall b : B,
ooExtendableAlong (const_tt (hfiber f b))
  (unit_name (C b))
g: forall a : A, C (f a)
a: A
(fst (null (f a) 1)
   (fun x : hfiber f (f a) => transport C x.2 (g x.1))).1
  tt = g a
    rewrite (path_unit tt (const_tt _ a)).
A, B: Type
f: A -> B
n: nat
IHn: forall C : B -> Type,
(forall b : B, ooExtendableAlong (const_tt (hfiber f b)) (unit_name (C b))) ->
ExtendableAlong n f C
C: B -> Type
null: forall b : B,
ooExtendableAlong (const_tt (hfiber f b))
  (unit_name (C b))
g: forall a : A, C (f a)
a: A
(fst (null (f a) 1)
   (fun x : hfiber f (f a) => transport C x.2 (g x.1))).1
  (const_tt A a) = g a
    exact ((fst (null (f a) 1%nat) _).2 (a ; 1)).
  -
A, B: Type
f: A -> B
n: nat
IHn: forall C : B -> Type,
(forall b : B, ooExtendableAlong (const_tt (hfiber f b)) (unit_name (C b))) ->
ExtendableAlong n f C
C: B -> Type
null: forall b : B,
ooExtendableAlong (const_tt (hfiber f b))
  (unit_name (C b))
forall h k : forall b : B, C b,
ExtendableAlong n f (fun b : B => h b = k b) intros h k.
A, B: Type
f: A -> B
n: nat
IHn: forall C : B -> Type,
(forall b : B, ooExtendableAlong (const_tt (hfiber f b)) (unit_name (C b))) ->
ExtendableAlong n f C
C: B -> Type
null: forall b : B,
ooExtendableAlong (const_tt (hfiber f b))
  (unit_name (C b))
h, k: forall b : B, C b
ExtendableAlong n f (fun b : B => h b = k b)
    apply IHn; intros b.
A, B: Type
f: A -> B
n: nat
IHn: forall C : B -> Type,
(forall b : B, ooExtendableAlong (const_tt (hfiber f b)) (unit_name (C b))) ->
ExtendableAlong n f C
C: B -> Type
null: forall b : B,
ooExtendableAlong (const_tt (hfiber f b))
  (unit_name (C b))
h, k: forall b : B, C b
b: B
ooExtendableAlong (const_tt (hfiber f b))
  (unit_name (h b = k b))
    apply ooextendable_homotopy, null.
Defined.

Definition ooextendable_isnull_fibers {A B} (f : A -> B) (C : B -> Type)
: (forall b, ooExtendableAlong (const_tt (hfiber f b))
                               (fun _ => C b))
  -> ooExtendableAlong f C
:= fun null n => extendable_isnull_fibers n f C null.

(** We define a modality to be accessible if it consists of the null types for some family of generators as above. *)

Class IsAccModality@{a i} (O : Subuniverse@{i}) :=
{
  acc_ngen : NullGenerators@{a} ;
  inO_iff_isnull : forall (X : Type@{i}),
      iff@{i i i} (In O X) (IsNull acc_ngen X) ;
}.

Arguments acc_ngen O {_}.
Arguments inO_iff_isnull O {_} X.

Section AccessibleModalities.
  Context (O : Modality) {acco : IsAccModality O}.

  (** Unsurprisingly, the generators are connected. *)
  #[export] Instance isconnected_acc_ngen i : IsConnected O (acc_ngen O i).
O: Modality
acco: IsAccModality O
i: ngen_indices (acc_ngen O)
IsConnected O (acc_ngen O i)
  Proof.
O: Modality
acco: IsAccModality O
i: ngen_indices (acc_ngen O)
IsConnected O (acc_ngen O i)
    apply isconnected_from_elim_to_O.
O: Modality
acco: IsAccModality O
i: ngen_indices (acc_ngen O)
NullHomotopy (to O (acc_ngen O i))
    pose (H := fst (fst (inO_iff_isnull O (O (acc_ngen O i))) _ i 1%nat)
                   (to O ((acc_ngen O) i))).
O: Modality
acco: IsAccModality O
i: ngen_indices (acc_ngen O)
H:= fst
  (fst (inO_iff_isnull O (O (acc_ngen O i)))
     (O_inO (acc_ngen O i)) i 1)
  (to O (acc_ngen O i)): ExtensionAlong
  (null_to_local_generators (acc_ngen O) i)
  (fun
     _ : lgen_codomain
           (null_to_local_generators (acc_ngen O))
           i => O (acc_ngen O i))
  (to O (acc_ngen O i))
NullHomotopy (to O (acc_ngen O i))
    exists (H.1 tt).
O: Modality
acco: IsAccModality O
i: ngen_indices (acc_ngen O)
H:= fst
  (fst (inO_iff_isnull O (O (acc_ngen O i)))
     (O_inO (acc_ngen O i)) i 1)
  (to O (acc_ngen O i)): ExtensionAlong
  (null_to_local_generators (acc_ngen O) i)
  (fun
     _ : lgen_codomain
           (null_to_local_generators (acc_ngen O))
           i => O (acc_ngen O i))
  (to O (acc_ngen O i))
forall x : acc_ngen O i,
to O (acc_ngen O i) x = H.1 tt
    exact (fun x => (H.2 x)^).
  Defined.

  (** If all the generators are inhabited, some things become a bit simpler. *)
  Section InhabitedGenerators.

    Context (inhab : forall i, acc_ngen O i).

    (** For testing modal-ness of types, it suffices for all maps out of a generator to be constant.  Probably one could do without [Funext].  *)
    Definition inO_const_fromgen `{Funext} A
               (c : forall i (f : acc_ngen O i -> A), NullHomotopy f)
    : In O A.
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
c: forall (i : ngen_indices (acc_ngen O))
(f : acc_ngen O i -> A), 
NullHomotopy f
In O A
    Proof.
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
c: forall (i : ngen_indices (acc_ngen O))
(f : acc_ngen O i -> A), 
NullHomotopy f
In O A
      apply (snd (inO_iff_isnull O A)); intros i.
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
c: forall (i : ngen_indices (acc_ngen O))
(f : acc_ngen O i -> A), 
NullHomotopy f
i: lgen_indices
  (null_to_local_generators (acc_ngen O))
ooExtendableAlong
  (null_to_local_generators (acc_ngen O) i)
  (fun
     _ : lgen_codomain
           (null_to_local_generators (acc_ngen O)) i
   => A)
      apply ((equiv_ooextendable_isequiv _ _)^-1%equiv).
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
c: forall (i : ngen_indices (acc_ngen O))
(f : acc_ngen O i -> A), 
NullHomotopy f
i: lgen_indices
  (null_to_local_generators (acc_ngen O))
IsEquiv
  (fun
     g : lgen_codomain
           (null_to_local_generators (acc_ngen O)) i ->
         A =>
   g oD null_to_local_generators (acc_ngen O) i)
      snapply isequiv_adjointify.
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
c: forall (i : ngen_indices (acc_ngen O))
(f : acc_ngen O i -> A), 
NullHomotopy f
i: lgen_indices
  (null_to_local_generators (acc_ngen O))
(lgen_domain (null_to_local_generators (acc_ngen O)) i ->
 A) ->
lgen_codomain (null_to_local_generators (acc_ngen O))
  i -> A
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
c: forall (i : ngen_indices (acc_ngen O))
(f : acc_ngen O i -> A), 
NullHomotopy f
i: lgen_indices
  (null_to_local_generators (acc_ngen O))
(fun
   g : lgen_codomain
         (null_to_local_generators (acc_ngen O)) i ->
       A =>
 g oD null_to_local_generators (acc_ngen O) i) o 
?g == idmap
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
c: forall (i : ngen_indices (acc_ngen O))
(f : acc_ngen O i -> A), 
NullHomotopy f
i: lgen_indices
  (null_to_local_generators (acc_ngen O))
?g
o (fun
     g : lgen_codomain
           (null_to_local_generators (acc_ngen O)) i ->
         A =>
   g oD null_to_local_generators (acc_ngen O) i) ==
idmap
      -
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
c: forall (i : ngen_indices (acc_ngen O))
(f : acc_ngen O i -> A), 
NullHomotopy f
i: lgen_indices
  (null_to_local_generators (acc_ngen O))
(lgen_domain (null_to_local_generators (acc_ngen O)) i ->
 A) ->
lgen_codomain (null_to_local_generators (acc_ngen O))
  i -> A intros f []; exact (c i f).1.
      -
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
c: forall (i : ngen_indices (acc_ngen O))
(f : acc_ngen O i -> A), 
NullHomotopy f
i: lgen_indices
  (null_to_local_generators (acc_ngen O))
(fun
   g : lgen_codomain
         (null_to_local_generators (acc_ngen O)) i ->
       A =>
 g oD null_to_local_generators (acc_ngen O) i)
o (fun
     (f : lgen_domain
            (null_to_local_generators (acc_ngen O)) i ->
          A)
     (b : lgen_codomain
            (null_to_local_generators (acc_ngen O)) i)
   => match b with
      | tt => (c i f).1
      end) == idmap intros f; apply path_arrow; intros x.
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
c: forall (i : ngen_indices (acc_ngen O))
(f : acc_ngen O i -> A), 
NullHomotopy f
i: lgen_indices
  (null_to_local_generators (acc_ngen O))
f: lgen_domain
  (null_to_local_generators (acc_ngen O)) i -> A
x: lgen_domain
  (null_to_local_generators (acc_ngen O)) i
((fun
    b : lgen_codomain
          (null_to_local_generators (acc_ngen O)) i =>
  match b with
  | tt => (c i f).1
  end) oD null_to_local_generators (acc_ngen O) i) x =
f x
        simpl; unfold composeD.
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
c: forall (i : ngen_indices (acc_ngen O))
(f : acc_ngen O i -> A), 
NullHomotopy f
i: lgen_indices
  (null_to_local_generators (acc_ngen O))
f: lgen_domain
  (null_to_local_generators (acc_ngen O)) i -> A
x: lgen_domain
  (null_to_local_generators (acc_ngen O)) i
(c i f).1 = f x
        symmetry; exact ((c i f).2 x).
      -
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
c: forall (i : ngen_indices (acc_ngen O))
(f : acc_ngen O i -> A), 
NullHomotopy f
i: lgen_indices
  (null_to_local_generators (acc_ngen O))
(fun
   (f : lgen_domain
          (null_to_local_generators (acc_ngen O)) i ->
        A)
   (b : lgen_codomain
          (null_to_local_generators (acc_ngen O)) i)
 => match b with
    | tt => (c i f).1
    end)
o (fun
     g : lgen_codomain
           (null_to_local_generators (acc_ngen O)) i ->
         A =>
   g oD null_to_local_generators (acc_ngen O) i) ==
idmap intros g; apply path_arrow; intros [].
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
c: forall (i : ngen_indices (acc_ngen O))
(f : acc_ngen O i -> A), 
NullHomotopy f
i: lgen_indices
  (null_to_local_generators (acc_ngen O))
g: lgen_codomain
  (null_to_local_generators (acc_ngen O)) i -> A
(c i (g oD null_to_local_generators (acc_ngen O) i)).1 =
g tt
        pose ((c i (g oD (null_to_local_generators (acc_ngen O)) i)).2).
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
c: forall (i : ngen_indices (acc_ngen O))
(f : acc_ngen O i -> A), 
NullHomotopy f
i: lgen_indices
  (null_to_local_generators (acc_ngen O))
g: lgen_codomain
  (null_to_local_generators (acc_ngen O)) i -> A
p:= (c i (g oD null_to_local_generators (acc_ngen O) i)).2: (fun y : A =>
 forall x : acc_ngen O i,
 (g oD null_to_local_generators (acc_ngen O) i) x =
 y)
  (c i
     (g oD null_to_local_generators (acc_ngen O) i)).1
(c i (g oD null_to_local_generators (acc_ngen O) i)).1 =
g tt
        simpl in p; unfold composeD in p.
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
c: forall (i : ngen_indices (acc_ngen O))
(f : acc_ngen O i -> A), 
NullHomotopy f
i: lgen_indices
  (null_to_local_generators (acc_ngen O))
g: lgen_codomain
  (null_to_local_generators (acc_ngen O)) i -> A
p:= (c i (fun _ : acc_ngen O i => g tt)).2: acc_ngen O i ->
g tt = (c i (fun _ : acc_ngen O i => g tt)).1
(c i (g oD null_to_local_generators (acc_ngen O) i)).1 =
g tt
        symmetry; apply p, inhab.
    Defined.

    (** In particular, all hprops are modal. *)
    Definition inO_hprop_inhab_gen `{Funext} (A : Type) `{IsHProp A}
    : In O A.
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
IsHProp0: IsHProp A
In O A
    Proof.
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
IsHProp0: IsHProp A
In O A
      apply inO_const_fromgen; intros i f.
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
IsHProp0: IsHProp A
i: ngen_indices (acc_ngen O)
f: acc_ngen O i -> A
NullHomotopy f
      exists (f (inhab i)).
O: Modality
acco: IsAccModality O
inhab: forall i : ngen_indices (acc_ngen O),
acc_ngen O i
H: Funext
A: Type
IsHProp0: IsHProp A
i: ngen_indices (acc_ngen O)
f: acc_ngen O i -> A
forall x : acc_ngen O i, f x = f (inhab i)
      intros; apply path_ishprop.
    Defined.

  End InhabitedGenerators.

End AccessibleModalities.

(** We will now show that a modality is accessible in this sense if and only if its underlying reflective subuniverse is accessible in the sense previously defined.  We (almost?) never need to actually use this, though; in practice accessible modalities usually seem to be given to us with the appropriate sort of generators. *)

(** One direction of this implication is trivial. *)
Instance acc_rsu_modality (O : Modality) `{IsAccModality O}
  : IsAccRSU O
  := Build_IsAccRSU O (null_to_local_generators (acc_ngen O)) (fun X => inO_iff_isnull O X).

(** For the less trivial converse, the idea is as follows.  By [ooextendable_isnull_fibers], we can detect locality with respect to a map by nullity with respect to its fibers.  Therefore, our first thought might be to just consider all the fibers of all the maps that we are localizing at.  However, this doesn't quite work because [ooextendable_isnull_fibers] is not an if-and-only-if, so not every modal type would necessarily be null for that type family.

     We do know, however, that if [f] is an [O]-connected map, then any [O]-modal type is null for its fibers (since they are [O]-connected types).  There is no *a priori* why all the maps we localize at should end up being connected for the modality; they will always be inverted, but not every inverted map is connected (unless the modality is lex).  But if [f : A -> B] is [O]-inverted, then the [O]-connected map [to O A] is (up to equivalence) the composite of [f] with the [O]-connected map [to O B].  Thus, if [X] is null for the fibers of [to O A] and [to O B], it will be [f]-local and hence [O]-modal, while all [O]-modal types will be null for these fibers since they are connected. *)

(** We don't make this an [Instance] since it is rarely used, and would cause loops when combined with the previous one. *)
Definition acc_modality_rsu (O : Modality) `{IsAccRSU O}
  : IsAccModality O.
O: Modality
H: IsAccRSU O
IsAccModality O
Proof.
O: Modality
H: IsAccRSU O
IsAccModality O
  unshelve econstructor.
O: Modality
H: IsAccRSU O
NullGenerators
O: Modality
H: IsAccRSU O
forall X : Type, In O X <-> IsNull ?acc_ngen X
  {
O: Modality
H: IsAccRSU O
NullGenerators refine (Build_NullGenerators
              (  { i : lgen_indices@{a} (acc_lgen O)
                   & O (lgen_domain@{a} (acc_lgen O) i) }
               + { i : lgen_indices@{a} (acc_lgen O)
                   & O (lgen_codomain@{a} (acc_lgen O) i) })
              _).
O: Modality
H: IsAccRSU O
{i : lgen_indices (acc_lgen O) &
O (lgen_domain (acc_lgen O) i)} +
{i : lgen_indices (acc_lgen O) &
O (lgen_codomain (acc_lgen O) i)} -> Type
    intros [ [i x] | [i x] ]; exact (hfiber (to O _) x). }
O: Modality
H: IsAccRSU O
forall X : Type,
In O X <->
IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X0 : {i : lgen_indices (acc_lgen O) &
             O (lgen_domain (acc_lgen O) i)} +
             {i : lgen_indices (acc_lgen O) &
             O (lgen_codomain (acc_lgen O) i)} =>
      match X0 with
      | inl s =>
          (fun
             s0 : {i : lgen_indices (acc_lgen O) &
                  O (lgen_domain (acc_lgen O) i)} =>
           (fun (i : lgen_indices (acc_lgen O))
              (x : O (lgen_domain (acc_lgen O) i)) =>
            hfiber (to O (lgen_domain (acc_lgen O) i))
              x) s0.1 s0.2) s
      | inr s =>
          (fun
             s0 : {i : lgen_indices (acc_lgen O) &
                  O (lgen_codomain (acc_lgen O) i)} =>
           (fun (i : lgen_indices (acc_lgen O))
              (x : O (lgen_codomain (acc_lgen O) i))
            =>
            hfiber
              (to O (lgen_codomain (acc_lgen O) i)) x)
             s0.1 s0.2) s
      end
  |} X
  {
O: Modality
H: IsAccRSU O
forall X : Type,
In O X <->
IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X0 : {i : lgen_indices (acc_lgen O) &
             O (lgen_domain (acc_lgen O) i)} +
             {i : lgen_indices (acc_lgen O) &
             O (lgen_codomain (acc_lgen O) i)} =>
      match X0 with
      | inl s =>
          (fun
             s0 : {i : lgen_indices (acc_lgen O) &
                  O (lgen_domain (acc_lgen O) i)} =>
           (fun (i : lgen_indices (acc_lgen O))
              (x : O (lgen_domain (acc_lgen O) i)) =>
            hfiber (to O (lgen_domain (acc_lgen O) i))
              x) s0.1 s0.2) s
      | inr s =>
          (fun
             s0 : {i : lgen_indices (acc_lgen O) &
                  O (lgen_codomain (acc_lgen O) i)} =>
           (fun (i : lgen_indices (acc_lgen O))
              (x : O (lgen_codomain (acc_lgen O) i))
            =>
            hfiber
              (to O (lgen_codomain (acc_lgen O) i)) x)
             s0.1 s0.2) s
      end
  |} X assert (cm := @conn_map_to_O O).
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
forall X : Type,
In O X <->
IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X0 : {i : lgen_indices (acc_lgen O) &
             O (lgen_domain (acc_lgen O) i)} +
             {i : lgen_indices (acc_lgen O) &
             O (lgen_codomain (acc_lgen O) i)} =>
      match X0 with
      | inl s =>
          (fun
             s0 : {i : lgen_indices (acc_lgen O) &
                  O (lgen_domain (acc_lgen O) i)} =>
           (fun (i : lgen_indices (acc_lgen O))
              (x : O (lgen_domain (acc_lgen O) i)) =>
            hfiber (to O (lgen_domain (acc_lgen O) i))
              x) s0.1 s0.2) s
      | inr s =>
          (fun
             s0 : {i : lgen_indices (acc_lgen O) &
                  O (lgen_codomain (acc_lgen O) i)} =>
           (fun (i : lgen_indices (acc_lgen O))
              (x : O (lgen_codomain (acc_lgen O) i))
            =>
            hfiber
              (to O (lgen_codomain (acc_lgen O) i)) x)
             s0.1 s0.2) s
      end
  |} X
    split.
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
In O X ->
IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)} =>
      match X with
      | inl s =>
          hfiber (to O (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)} =>
      match X with
      | inl s =>
          hfiber (to O (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X -> In O X
    -
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
In O X ->
IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)} =>
      match X with
      | inl s =>
          hfiber (to O (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X intros X_inO [ [i x] | [i x] ];
        exact (ooextendable_const_isconnected_inO O _ _).
    -
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)} =>
      match X with
      | inl s =>
          hfiber (to O (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X -> In O X intros Xnull.
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
Xnull: IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)}
      =>
      match X with
      | inl s =>
          hfiber
            (to O
               (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O
               (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X
In O X
      apply (snd (inO_iff_islocal O X)); intros i.
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
Xnull: IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)}
      =>
      match X with
      | inl s =>
          hfiber
            (to O
               (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O
               (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X
i: lgen_indices (acc_lgen O)
ooExtendableAlong (acc_lgen O i)
  (fun _ : lgen_codomain (acc_lgen O) i => X)
      refine (cancelL_ooextendable (fun _ => X) (acc_lgen O i)
                                   (to O (lgen_codomain (acc_lgen O) i)) _ _).
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
Xnull: IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)}
      =>
      match X with
      | inl s =>
          hfiber
            (to O
               (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O
               (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X
i: lgen_indices (acc_lgen O)
ooExtendableAlong
  (to O (lgen_codomain (acc_lgen O) i))
  (fun
     _ : O_reflector O (lgen_codomain (acc_lgen O) i)
   => X)
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
Xnull: IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)}
      =>
      match X with
      | inl s =>
          hfiber
            (to O
               (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O
               (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X
i: lgen_indices (acc_lgen O)
ooExtendableAlong
  (fun x : lgen_domain (acc_lgen O) i =>
   to O (lgen_codomain (acc_lgen O) i)
     (acc_lgen O i x))
  (fun
     _ : O_reflector O (lgen_codomain (acc_lgen O) i)
   => X)
      +
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
Xnull: IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)}
      =>
      match X with
      | inl s =>
          hfiber
            (to O
               (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O
               (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X
i: lgen_indices (acc_lgen O)
ooExtendableAlong
  (to O (lgen_codomain (acc_lgen O) i))
  (fun
     _ : O_reflector O (lgen_codomain (acc_lgen O) i)
   => X) apply ooextendable_isnull_fibers; intros x.
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
Xnull: IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)}
      =>
      match X with
      | inl s =>
          hfiber
            (to O
               (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O
               (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X
i: lgen_indices (acc_lgen O)
x: O_reflector O (lgen_codomain (acc_lgen O) i)
ooExtendableAlong
  (const_tt
     (hfiber (to O (lgen_codomain (acc_lgen O) i)) x))
  (unit_name X)
        exact (Xnull (inr (i;x))).
      +
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
Xnull: IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)}
      =>
      match X with
      | inl s =>
          hfiber
            (to O
               (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O
               (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X
i: lgen_indices (acc_lgen O)
ooExtendableAlong
  (fun x : lgen_domain (acc_lgen O) i =>
   to O (lgen_codomain (acc_lgen O) i)
     (acc_lgen O i x))
  (fun
     _ : O_reflector O (lgen_codomain (acc_lgen O) i)
   => X) refine (ooextendable_homotopic _
                                       (O_functor O (acc_lgen O i)
                                                  o to O (lgen_domain (acc_lgen O) i)) _ _).
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
Xnull: IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)}
      =>
      match X with
      | inl s =>
          hfiber
            (to O
               (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O
               (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X
i: lgen_indices (acc_lgen O)
(fun x : lgen_domain (acc_lgen O) i =>
 O_functor O (acc_lgen O i)
   (to O (lgen_domain (acc_lgen O) i) x)) ==
(fun x : lgen_domain (acc_lgen O) i =>
 to O (lgen_codomain (acc_lgen O) i) (acc_lgen O i x))
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
Xnull: IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)}
      =>
      match X with
      | inl s =>
          hfiber
            (to O
               (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O
               (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X
i: lgen_indices (acc_lgen O)
ooExtendableAlong
  (fun x : lgen_domain (acc_lgen O) i =>
   O_functor O (acc_lgen O i)
     (to O (lgen_domain (acc_lgen O) i) x))
  (fun
     _ : O_reflector O (lgen_codomain (acc_lgen O) i)
   => X)
        1:apply to_O_natural.
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
Xnull: IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)}
      =>
      match X with
      | inl s =>
          hfiber
            (to O
               (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O
               (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X
i: lgen_indices (acc_lgen O)
ooExtendableAlong
  (fun x : lgen_domain (acc_lgen O) i =>
   O_functor O (acc_lgen O i)
     (to O (lgen_domain (acc_lgen O) i) x))
  (fun
     _ : O_reflector O (lgen_codomain (acc_lgen O) i)
   => X)
        apply ooextendable_compose.
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
Xnull: IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)}
      =>
      match X with
      | inl s =>
          hfiber
            (to O
               (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O
               (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X
i: lgen_indices (acc_lgen O)
ooExtendableAlong (O_functor O (acc_lgen O i))
  (fun
     _ : O_reflector O (lgen_codomain (acc_lgen O) i)
   => X)
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
Xnull: IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)}
      =>
      match X with
      | inl s =>
          hfiber
            (to O
               (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O
               (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X
i: lgen_indices (acc_lgen O)
ooExtendableAlong (to O (lgen_domain (acc_lgen O) i))
  (fun _ : O (lgen_domain (acc_lgen O) i) => X)
        *
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
Xnull: IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)}
      =>
      match X with
      | inl s =>
          hfiber
            (to O
               (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O
               (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X
i: lgen_indices (acc_lgen O)
ooExtendableAlong (O_functor O (acc_lgen O i))
  (fun
     _ : O_reflector O (lgen_codomain (acc_lgen O) i)
   => X) apply ooextendable_equiv, O_inverts_generators.
        *
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
Xnull: IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)}
      =>
      match X with
      | inl s =>
          hfiber
            (to O
               (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O
               (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X
i: lgen_indices (acc_lgen O)
ooExtendableAlong (to O (lgen_domain (acc_lgen O) i))
  (fun _ : O (lgen_domain (acc_lgen O) i) => X) apply ooextendable_isnull_fibers; intros x.
O: Modality
H: IsAccRSU O
cm: forall A : Type, IsConnMap O (to O A)
X: Type
Xnull: IsNull
  {|
    ngen_indices :=
      {i : lgen_indices (acc_lgen O) &
      O (lgen_domain (acc_lgen O) i)} +
      {i : lgen_indices (acc_lgen O) &
      O (lgen_codomain (acc_lgen O) i)};
    ngen_type :=
      fun
        X : {i : lgen_indices (acc_lgen O) &
            O (lgen_domain (acc_lgen O) i)} +
            {i : lgen_indices (acc_lgen O) &
            O (lgen_codomain (acc_lgen O) i)}
      =>
      match X with
      | inl s =>
          hfiber
            (to O
               (lgen_domain (acc_lgen O) s.1))
            s.2
      | inr s =>
          hfiber
            (to O
               (lgen_codomain (acc_lgen O) s.1))
            s.2
      end
  |} X
i: lgen_indices (acc_lgen O)
x: O (lgen_domain (acc_lgen O) i)
ooExtendableAlong
  (const_tt
     (hfiber (to O (lgen_domain (acc_lgen O) i)) x))
  (unit_name X)
          exact (Xnull (inl (i;x))). }
Defined.

(** The construction of the nullification modality for any family of types will be in [Nullification]. *)