Skip to content

Commit 77cd3cf

Browse files
committed
chore: remove stale comment
1 parent b194b08 commit 77cd3cf

1 file changed

Lines changed: 3 additions & 7 deletions

File tree

src/Data/Rational/Base.lagda.md

Lines changed: 3 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -557,13 +557,9 @@ reduceℚ : Ratio → Fraction
557557
reduceℚ (inc x) = split.choose x
558558
559559
splitℚ : (x : Ratio) → fibre toℚ x
560-
splitℚ (inc x) = record
561-
{ fst = split.choose x
562-
-- The use of 'recover' here replaces the calculated proof that
563-
-- is-split-congruence returns by an invocation of Discrete-ℚ. This
564-
-- has much shorter normal forms when applied to concrete values.
565-
; snd = ap inc (split.splitting x .snd)
566-
}
560+
splitℚ (inc x) = record where
561+
fst = split.choose x
562+
snd = ap inc (split.splitting x .snd)
567563
568564
abstract
569565
reduce-injective : ∀ x y → reduceℚ x ≡ reduceℚ y → x ≡ y

0 commit comments

Comments
 (0)