diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2021-04-06 15:08:08 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2021-04-06 15:12:09 +0100 |
| commit | e890218fab378f8e427d2d3c046875128a23d50b (patch) | |
| tree | 408cfe8c94603defdf5a28e524a8532404183f23 /src/Cfe/Language/Properties.agda | |
| parent | 49a2df1e3a210cd8be69afb33f8a3b5e20e41129 (diff) | |
Add lexicographic expression ordering.
Diffstat (limited to 'src/Cfe/Language/Properties.agda')
| -rw-r--r-- | src/Cfe/Language/Properties.agda | 7 |
1 files changed, 7 insertions, 0 deletions
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 |