From 0708355c7988345c98961cad087dc56eeb16ea7f Mon Sep 17 00:00:00 2001 From: Chloe Brown Date: Sat, 24 Apr 2021 15:30:30 +0100 Subject: Cleanup Derivation. --- src/Cfe/Language/Properties.agda | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/Cfe/Language') 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 ------------------------------------------------------------------------ -- cgit v1.2.3