------------------------------------------------------------------------
-- The Agda standard library
--
-- Conat Literals
------------------------------------------------------------------------
{-# OPTIONS --cubical-compatible --sized-types #-}
module Codata.Sized.Cofin.Literals where
open import Agda.Builtin.FromNat using (Number)
open import Data.Nat.Base using (ℕ; suc)
open import Codata.Sized.Conat using (Conat)
open import Codata.Sized.Conat.Properties using (_ℕ≤?_)
open import Codata.Sized.Cofin using (Cofin; fromℕ<)
open import Relation.Nullary.Decidable using (True; toWitness)
number : ∀ n → Number (Cofin n)
number n = record
{ Constraint = λ k → True (suc k ℕ≤? n)
; fromNat = λ n {{p}} → fromℕ< (toWitness p)
}
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