mirror of
https://github.com/Smaug123/agdaproofs
synced 2025-10-14 16:08:39 +00:00
15 lines
438 B
Agda
15 lines
438 B
Agda
{-# OPTIONS --safe --warning=error --without-K #-}
|
|
|
|
open import LogicalFormulae
|
|
open import Agda.Primitive using (Level; lzero; lsuc; _⊔_)
|
|
open import Functions
|
|
|
|
module Orders.WellFounded.Definition {a b : _} {A : Set a} (_<_ : Rel {a} {b} A) where
|
|
|
|
data Accessible (x : A) : Set (lsuc a ⊔ b) where
|
|
access : (∀ y → y < x → Accessible y) → Accessible x
|
|
|
|
WellFounded : Set (lsuc a ⊔ b)
|
|
WellFounded = ∀ x → Accessible x
|
|
|