File tree Expand file tree Collapse file tree 3 files changed +7
-0
lines changed
Expand file tree Collapse file tree 3 files changed +7
-0
lines changed Original file line number Diff line number Diff 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
Original file line number Diff line number Diff 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
117118module _ {A V : Set} ⦃ mon : CommutativeMonoid 0ℓ 0ℓ V ⦄ ⦃ dA : DecEq A ⦄ {m m' : A ⇀ V} where
118119 open import Function.Reasoning
119120
Original file line number Diff line number Diff 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' ᶠᵐ))
You can’t perform that action at this time.
0 commit comments