------------------------------------------------------------------------
-- The Agda standard library
--
-- Lifting of two predicates
------------------------------------------------------------------------
 
{-# OPTIONS --cubical-compatible --safe #-}
 
module Data.Product.Relation.Unary.All where
 
open import Level using (Level; _⊔_)
open import Data.Product.Base using (_×_; _,_)
 
private
  variable
    a b p q : Level
    A : Set a
    B : Set b
 
All : (A → Set p) → (B → Set q) → (A × B → Set (p ⊔ q))
All P Q (a , b) = P a × Q b