We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent b9a6c87 commit 5851516Copy full SHA for 5851516
src/Relation/Nullary/Decidable.agda
@@ -85,7 +85,7 @@ dec-no a? ¬a with no _ ← a? | refl ← dec-false a? ¬a = refl
85
86
dec-yes-irr : (a? : Dec A) → Irrelevant A → (a : A) → a? ≡ yes a
87
dec-yes-irr a? irr a =
88
- trans (dec-yes-recompute a? a) (≡.cong yes (recompute-irr≗id a? irr a))
+ trans (dec-yes-recompute a? a) (≡.cong yes (recompute-irrelevant-id a? irr a))
89
90
⌊⌋-map′ : ∀ t f (a? : Dec A) → ⌊ map′ {B = B} t f a? ⌋ ≡ ⌊ a? ⌋
91
⌊⌋-map′ t f a? = trans (isYes≗does (map′ t f a?)) (sym (isYes≗does a?))
0 commit comments