Start working on proofs of Graph-related things

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2024-04-04 20:34:08 -07:00
parent 844c99336a
commit b505063771
2 changed files with 97 additions and 5 deletions
--- a/Utils.agda
+++ b/Utils.agda
@@ -68,3 +68,6 @@ data Pairwise {a} {b} {c} {A : Set a} {B : Set b} (P : A → B → Set c) : List
    _∷_ : ∀ {x : A} {y : B} {xs : List A} {ys : List B} →
          P x y → Pairwise P xs ys →
          Pairwise P (x ∷ xs) (y ∷ ys)
+
+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