diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2021-04-24 15:30:30 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2021-04-24 15:30:30 +0100 |
| commit | 0708355c7988345c98961cad087dc56eeb16ea7f (patch) | |
| tree | 76f4e4ef3f7a0eb0cf3f40d3d58e3563287044c4 /src/Cfe/Language | |
| parent | c58866bea6ee251868d98a3da11f64030bb00aa7 (diff) | |
Cleanup Derivation.cleanup
Diffstat (limited to 'src/Cfe/Language')
| -rw-r--r-- | src/Cfe/Language/Properties.agda | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Cfe/Language/Properties.agda b/src/Cfe/Language/Properties.agda index 13e5ab1..fe153b1 100644 --- a/src/Cfe/Language/Properties.agda +++ b/src/Cfe/Language/Properties.agda @@ -850,6 +850,12 @@ Fⁿ⊆⋃F = FⁿA⊆SupFA ⋃-inverseʳ : ∀ (A : Language a) → ⋃ (const A) ≈ A ⋃-inverseʳ _ = ⊆-antisym (sub λ {(ℕ.suc _ , w∈A) → w∈A}) (Fⁿ⊆⋃F 1) +⋃-unroll : (∀ {A B} → A ⊆ B → F A ⊆ F B) → ⋃ F ⊆ F (⋃ F) +⋃-unroll {F = F} mono-ext = ∀[Fⁿ⊆B]⇒⋃F⊆B λ + { ℕ.zero → ⊆-min (F (⋃ F)) + ; (ℕ.suc n) → mono-ext (Fⁿ⊆⋃F n) + } + ------------------------------------------------------------------------ -- Other properties of Null ------------------------------------------------------------------------ |