File tree Expand file tree Collapse file tree 2 files changed +1
-23
lines changed Expand file tree Collapse file tree 2 files changed +1
-23
lines changed Original file line number Diff line number Diff line change @@ -1268,13 +1268,6 @@ by combining evidence for \idr{Not p} with the \idr{ReflectF} constructor.
1268
1268
It is easy to formalize this intuition and show that the two statements are
1269
1269
indeed equivalent :
1270
1270
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
-
1278
1271
> iff_reflect : (p <-> (b = True)) -> Reflect p b
1279
1272
> iff_reflect {b = False} (pb, _) = ReflectF (uninhabited . pb) Refl
1280
1273
> iff_reflect {b = True} (_, bp) = ReflectT (bp Refl ) Refl
Original file line number Diff line number Diff line change @@ -79,28 +79,13 @@ present purposes you can think of it as just a fancy \idr{Bool}.)
79
79
The following useful property of \ idr{beq_id} follows from an analogous lemma
80
80
about strings :
81
81
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
-
97
82
> beq_id_true_iff : (beq_id x y = True) <-> x = y
98
83
> beq_id_true_iff = (bto, bfro)
99
84
> where
100
85
> bto : (beq_id x y = True) -> x = y
101
86
> bto {x= MkId n1} {y= MkId n2} prf with (decEq n1 n2)
102
87
> bto Refl | Yes eq = cong {f= MkId } eq
103
- > bto prf | No _ = absurd prf
88
+ > bto Refl | No _ impossible
104
89
>
105
90
> idInj : MkId x = MkId y -> x = y
106
91
> idInj Refl = Refl
You can’t perform that action at this time.
0 commit comments