Skip to content

Commit 3ba0d15

Browse files
committed
IndProp,Maps: fix type issues and regressions
1 parent c609a13 commit 3ba0d15

File tree

2 files changed

+1
-23
lines changed

2 files changed

+1
-23
lines changed

src/IndProp.lidr

Lines changed: 0 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -1268,13 +1268,6 @@ by combining evidence for \idr{Not p} with the \idr{ReflectF} constructor.
12681268
It is easy to formalize this intuition and show that the two statements are
12691269
indeed equivalent:
12701270

1271-
\todo[inline]{Remove when a release with
1272-
https://github.com/idris-lang/Idris-dev/pull/3925 happens}
1273-
1274-
> implementation Uninhabited (False = True) where
1275-
> uninhabited Refl impossible
1276-
>
1277-
12781271
> iff_reflect : (p <-> (b = True)) -> Reflect p b
12791272
> iff_reflect {b = False} (pb, _) = ReflectF (uninhabited . pb) Refl
12801273
> iff_reflect {b = True} (_, bp) = ReflectT (bp Refl) Refl

src/Maps.lidr

Lines changed: 1 addition & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -79,28 +79,13 @@ present purposes you can think of it as just a fancy \idr{Bool}.)
7979
The following useful property of \idr{beq_id} follows from an analogous lemma
8080
about strings:
8181

82-
\todo[inline]{Copied \idr{<->} for now}
83-
84-
> iff : {p,q : Type} -> Type
85-
> iff {p} {q} = (p -> q, q -> p)
86-
>
87-
> syntax [p] "<->" [q] = iff {p} {q}
88-
>
89-
90-
\todo[inline]{Remove when a release with
91-
https://github.com/idris-lang/Idris-dev/pull/3925 happens}
92-
93-
> implementation Uninhabited (False = True) where
94-
> uninhabited Refl impossible
95-
>
96-
9782
> beq_id_true_iff : (beq_id x y = True) <-> x = y
9883
> beq_id_true_iff = (bto, bfro)
9984
> where
10085
> bto : (beq_id x y = True) -> x = y
10186
> bto {x=MkId n1} {y=MkId n2} prf with (decEq n1 n2)
10287
> bto Refl | Yes eq = cong {f=MkId} eq
103-
> bto prf | No _ = absurd prf
88+
> bto Refl | No _ impossible
10489
>
10590
> idInj : MkId x = MkId y -> x = y
10691
> idInj Refl = Refl

0 commit comments

Comments
 (0)