Skip to content

Commit 5f87d42

Browse files
Link TODOs to PRs in agda-sets
1 parent b9e25e8 commit 5f87d42

File tree

3 files changed

+7
-0
lines changed

3 files changed

+7
-0
lines changed

src/Ledger/Conway/Conformance/Equivalence/Map.agda

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -614,6 +614,8 @@ module _ {A B : Type}
614614
filterᵐ-singleton-true p .proj₁ = proj₂ ∘ (from ∈-filter)
615615
filterᵐ-singleton-true {k}{v} p .proj₂ {a} x = to ∈-filter (subst P′ (sym (from ∈-singleton x)) p , x)
616616

617+
-- TODO: move to agda-sets
618+
-- https://github.com/input-output-hk/agda-sets/pull/19
617619
filterᵐ-singleton-false : ¬ P k filterᵐ P′ ❴ k , v ❵ ≡ᵐ ∅
618620
filterᵐ-singleton-false ¬p .proj₁ x =
619621
⊥-elim $ ¬p $ subst P′ (from ∈-singleton $ proj₂ (from ∈-filter x)) (proj₁ $ from ∈-filter x)
@@ -656,6 +658,8 @@ module _ {A B : Type}
656658
lem-add-excluded p =
657659
filterᵐ-∪⁺-distr _ _ ⟨≈⟩ ∪⁺-cong-l (filterᵐ-singleton-false p) ⟨≈⟩ ∪⁺-id-r _
658660

661+
-- TODO: move to agda-sets
662+
-- https://github.com/input-output-hk/agda-sets/pull/19
659663
lem-add-excluded-∪ˡ
660664
: (m : A ⇀ B)
661665
¬ P k

src/Ledger/Conway/Specification/Ledger/Properties/Base.lagda.md

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -114,6 +114,7 @@ module LEDGER-PROPS (tx : Tx) (Γ : LEnv) (s : LState) where
114114
dpMap-rmOrphanDRepVotes certState govSt = sym (fmap-∘ govSt) -- map proj₁ ∘ map (map₂ _) ≡ map (proj₁ ∘ map₂ _) ≡ map proj₁
115115
116116
-- TODO: Move these proofs to agda-sets
117+
-- https://github.com/input-output-hk/agda-sets/pull/18
117118
module _ {A V : Set} ⦃ mon : CommutativeMonoid 0ℓ 0ℓ V ⦄ ⦃ dA : DecEq A ⦄ {m m' : A ⇀ V} where
118119
open import Function.Reasoning
119120

src/Ledger/Conway/Specification/Utxo/Properties/GenMinSpend.lagda.md

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -141,6 +141,8 @@ module _ -- ASSUMPTION --
141141
disjoint-sing dp∉d a∈d a∈sing
142142
rewrite from ∈-dom-singleton-pair a∈sing = dp∉d a∈d
143143
144+
-- TODO: remove after adopting
145+
-- https://github.com/input-output-hk/agda-sets/pull/17
144146
indexedSumᵐ-∪ˡ-∪ˡᶠ
145147
: ∀ m m'
146148
→ indexedSumᵐ proj₂ ((m ∪ˡ m') ᶠᵐ) ≡ indexedSumᵐ proj₂ ((m ᶠᵐ) ∪ˡᶠ (m' ᶠᵐ))

0 commit comments

Comments
 (0)