mirror of
https://github.com/Smaug123/agdaproofs
synced 2025-12-14 19:15:41 +00:00
19 lines
814 B
Agda
19 lines
814 B
Agda
{-# OPTIONS --safe --warning=error --without-K #-}
|
|
|
|
open import Agda.Primitive using (Level; lzero; lsuc; _⊔_)
|
|
open import LogicalFormulae
|
|
open import Sets.EquivalenceRelations
|
|
open import Setoids.Setoids
|
|
|
|
module Setoids.Intersection.Definition {a b : _} {A : Set a} (S : Setoid {a} {b} A) where
|
|
|
|
open Setoid S
|
|
open Equivalence eq
|
|
open import Setoids.Subset S
|
|
|
|
intersectionPredicate : {c d : _} {pred1 : A → Set c} {pred2 : A → Set d} (s1 : subset pred1) (s2 : subset pred2) → A → Set (c ⊔ d)
|
|
intersectionPredicate {pred1 = pred1} {pred2} s1 s2 a = pred1 a && pred2 a
|
|
|
|
intersection : {c d : _} {pred1 : A → Set c} {pred2 : A → Set d} (s1 : subset pred1) (s2 : subset pred2) → subset (intersectionPredicate s1 s2)
|
|
intersection s1 s2 {x1} {x2} x1=x2 (inS1 ,, inS2) = s1 x1=x2 inS1 ,, s2 x1=x2 inS2
|