------------------------------------------------------------------------
-- The Agda standard library
--
-- Predicate lifting for refinement types
------------------------------------------------------------------------
{-# OPTIONS --cubical-compatible --safe #-}
module Data.Refinement.Relation.Unary.All where
open import Data.Refinement using (Refinement; _,_)
open import Level using (Level; _⊔_)
open import Function.Base using (const)
private
variable
a b p q : Level
A : Set a
B : Set b
module _ {P : A → Set p} where
All : (A → Set q) → Refinement A P → Set q
All P (a , _) = P a
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4