From ee1b20ca53363eee0362f5a2bbd61b5951098156 Mon Sep 17 00:00:00 2001 From: Chloe Brown Date: Wed, 24 Mar 2021 15:24:34 +0000 Subject: Make progress on lemma 3.5 (4). --- src/Cfe/Language/Construct/Concatenate.agda | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/Cfe/Language') diff --git a/src/Cfe/Language/Construct/Concatenate.agda b/src/Cfe/Language/Construct/Concatenate.agda index ef45432..428e8a4 100644 --- a/src/Cfe/Language/Construct/Concatenate.agda +++ b/src/Cfe/Language/Construct/Concatenate.agda @@ -26,10 +26,11 @@ module _ (B : Language b) where - module A = Language A - module B = Language B + private + module A = Language A + module B = Language B - infix 4 _∙_ + infix 7 _∙_ Concat : List C → Set (c ⊔ ℓ ⊔ a ⊔ b) Concat l = ∃[ l₁ ] l₁ ∈ A × ∃[ l₂ ] l₂ ∈ B × l₁ ++ l₂ ≋ l -- cgit v1.2.3