From e890218fab378f8e427d2d3c046875128a23d50b Mon Sep 17 00:00:00 2001 From: Chloe Brown Date: Tue, 6 Apr 2021 15:08:08 +0100 Subject: Add lexicographic expression ordering. --- src/Cfe/Language/Properties.agda | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/Cfe/Language/Properties.agda') diff --git a/src/Cfe/Language/Properties.agda b/src/Cfe/Language/Properties.agda index 61a11b2..6248e76 100644 --- a/src/Cfe/Language/Properties.agda +++ b/src/Cfe/Language/Properties.agda @@ -833,3 +833,10 @@ Fⁿ⊆⋃F = FⁿA⊆SupFA ⋃-inverseʳ : ∀ (A : Language a) → ⋃ (const A) ≈ A ⋃-inverseʳ _ = ⊆-antisym (sub λ {(ℕ.suc _ , w∈A) → w∈A}) (Fⁿ⊆⋃F 1) + +------------------------------------------------------------------------ +-- Other properties of Null +------------------------------------------------------------------------ + +∣w∣≡0+w∈A⇒ε∈A : ∀ {w} → length w ≡ 0 → w ∈ A → Null A +∣w∣≡0+w∈A⇒ε∈A {w = []} _ ε∈A = ε∈A -- cgit v1.2.3