Intermediate commit. Switch to *-based definition of <=.

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2024-04-07 19:51:59 -07:00
parent b505063771
commit d4b0796715
2 changed files with 81 additions and 47 deletions
--- a/Utils.agda
+++ b/Utils.agda
@@ -69,5 +69,6 @@ data Pairwise {a} {b} {c} {A : Set a} {B : Set b} (P : A → B → Set c) : List
          P x y → Pairwise P xs ys →
          Pairwise P (x ∷ xs) (y ∷ ys)

+infixr 2 _⊗_
 data _⊗_ {a p q} {A : Set a} (P : A → Set p) (Q : A → Set q) : A → Set (a ⊔ℓ p ⊔ℓ q) where
    _,_ : ∀ {val : A} → P val → Q val → (P ⊗ Q) val