mirror of
https://github.com/Smaug123/agdaproofs
synced 2025-10-13 15:48:39 +00:00
21 lines
704 B
Agda
21 lines
704 B
Agda
{-# OPTIONS --safe --warning=error --without-K #-}
|
|
|
|
open import Agda.Primitive using (Level; lzero; lsuc; _⊔_)
|
|
|
|
open import LogicalFormulae
|
|
open import Functions
|
|
open import Numbers.Naturals.Naturals
|
|
open import Sets.FinSet
|
|
open import Semirings.Definition
|
|
open import Orders
|
|
open import WellFoundedInduction
|
|
open import Sets.CantorBijection.Proofs
|
|
|
|
module Sets.CantorBijection.CantorBijection where
|
|
|
|
open Sets.CantorBijection.Proofs using (cantorInverse ; cantorInverseLemma) public
|
|
|
|
cantorBijection : Bijection cantorInverse
|
|
Injection.property (Bijection.inj cantorBijection) {x} {y} = cantorInverseInjective x y
|
|
Surjection.property (Bijection.surj cantorBijection) = cantorInverseSurjective
|