summaryrefslogtreecommitdiff
path: root/src/Cfe/Language/Indexed/Homogeneous.agda
diff options
context:
space:
mode:
authorChloe Brown <chloe.brown.00@outlook.com>2021-03-05 00:00:04 +0000
committerChloe Brown <chloe.brown.00@outlook.com>2021-03-05 00:04:46 +0000
commit5302e4a27a64cb2a97120517df4b6998da7b3168 (patch)
treeebe15b37e27e8ec7e4920200e15a40ae586bedbc /src/Cfe/Language/Indexed/Homogeneous.agda
parentff3600687249a19ae63353f7791b137094f5a5a1 (diff)
Complete proofs up to Proposition 3.2 (excluding unrolling)
Diffstat (limited to 'src/Cfe/Language/Indexed/Homogeneous.agda')
-rw-r--r--src/Cfe/Language/Indexed/Homogeneous.agda14
1 files changed, 0 insertions, 14 deletions
diff --git a/src/Cfe/Language/Indexed/Homogeneous.agda b/src/Cfe/Language/Indexed/Homogeneous.agda
index c032978..a1e284a 100644
--- a/src/Cfe/Language/Indexed/Homogeneous.agda
+++ b/src/Cfe/Language/Indexed/Homogeneous.agda
@@ -31,17 +31,3 @@ record IndexedLanguage i iℓ a aℓ : Set (ℓ ⊔ suc (c ⊔ i ⊔ iℓ ⊔ a
_≈ᵗ_ : IRel Tagged (iℓ ⊔ aℓ)
_≈ᵗ_ (i , l∈Fi) (j , m∈Fj) = Σ (i ≈ᵢ j) λ i≈j → ≈ᴸ (F j) (f (cong i≈j) l∈Fi) m∈Fj
-
- -- ≈ᵗ-refl : Reflexive Tagged _≈ᵗ_
- -- ≈ᵗ-refl {l} {i , l∈Fi} = reflᵢ , {!≈ᴸ-refl!}
-
- -- ⋃ : Language (i ⊔ a) (iℓ ⊔ aℓ)
- -- ⋃ = record
- -- { Carrier = Tagged
- -- ; _≈_ = _≈ᵗ_
- -- ; isEquivalence = record
- -- { refl = λ i≈j → {!!}
- -- ; sym = {!!}
- -- ; trans = {!!}
- -- }
- -- }