refactor: move around files, update index

the1lab · May 30, 2023 · cb0e189 · cb0e189
1 parent 754e435
commit cb0e189
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 8 deletions.
diff --git a/src/Cat/Displayed/Adjoint.lagda.md b/src/Cat/Displayed/Adjoint.lagda.md
@@ -13,7 +13,7 @@ open import Cat.Prelude
 
 import Cat.Reasoning
 import Cat.Displayed.Reasoning
-import Cat.Displayed.Functor.VerticalReasoning
+import Cat.Displayed.Functor.Vertical.Reasoning
 ```
 -->
 
@@ -158,8 +158,8 @@ allows us to keep morphisms displayed over the same base.
 ```agda
   module _ {L : Vertical-functor ℰ ℱ} {R : Vertical-functor ℱ ℰ} (adj : L ⊣↓ R) where
     private
-      module L = Cat.Displayed.Functor.VerticalReasoning L
-      module R = Cat.Displayed.Functor.VerticalReasoning R
+      module L = Cat.Displayed.Functor.Vertical.Reasoning L
+      module R = Cat.Displayed.Functor.Vertical.Reasoning R
       open _⊣↓_ adj
 ```
 -->
@@ -258,8 +258,8 @@ If $L \dashv R$ is a vertical adjunction, then $R$ is a fibred functor.
     → is-vertical-fibred R
   Vert-right-adjoint-fibred {L = L} {R = R} adj {f = f} f′ cart = R-cart where 
     open is-cartesian
-    module L = Cat.Displayed.Functor.VerticalReasoning L
-    module R = Cat.Displayed.Functor.VerticalReasoning R 
+    module L = Cat.Displayed.Functor.Vertical.Reasoning L
+    module R = Cat.Displayed.Functor.Vertical.Reasoning R 
 ```
 
 Let $f : \cC(x,y)$ and $f' : \cF(x', y')_{f}$ be a cartesian morphism.
@@ -333,8 +333,8 @@ Dually, vertical left adjoints are opfibred.
 ```agda
   Vert-left-adjoint-opfibred {L = L} {R = R} adj {f = f} f′ cocart = L-cocart where
     open is-cocartesian
-    module L = Cat.Displayed.Functor.VerticalReasoning L
-    module R = Cat.Displayed.Functor.VerticalReasoning R
+    module L = Cat.Displayed.Functor.Vertical.Reasoning L
+    module R = Cat.Displayed.Functor.Vertical.Reasoning R
 
     L-cocart : is-cocartesian ℱ f (L.F₁′ f′)
     L-cocart .universal m h′ =

diff --git a/...played/Functor/VerticalReasoning.lagda.md → ...layed/Functor/Vertical/Reasoning.lagda.md b/...played/Functor/VerticalReasoning.lagda.md → ...layed/Functor/Vertical/Reasoning.lagda.md
@@ -10,7 +10,7 @@ import Cat.Displayed.Reasoning
 -->
 
 ```agda
-module Cat.Displayed.Functor.VerticalReasoning
+module Cat.Displayed.Functor.Vertical.Reasoning
   {ob ℓb oe ℓe of ℓf}
   {B : Precategory ob ℓb}
   {ℰ : Displayed B oe ℓe} {ℱ : Displayed B of ℓf}

diff --git a/src/index.lagda.md b/src/index.lagda.md
@@ -657,6 +657,9 @@ their higher groupoid structure:
 open import Cat.Displayed.Path
 open import Cat.Displayed.Functor
 open import Cat.Displayed.Adjoint
+
+open import Cat.Displayed.Functor.Vertical.Reasoning
+-- Reasoning Combinators for vertical functors.
 ```
 
 ### Cartesian fibrations