Skip to content

Commit c609a13

Browse files
committed
Merge branch 'develop' into first_part_cleanup
2 parents 538b0f0 + 67310bd commit c609a13

File tree

8 files changed

+994
-2
lines changed

8 files changed

+994
-2
lines changed

software_foundations.ipkg

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -7,6 +7,9 @@ modules = Basics
77
, Tactics
88
, Logic
99
, IndProp
10+
, Maps
11+
, ProofObjects
12+
, Rel
1013

1114
brief = "Software Foundations in Idris"
1215
version = 0.0.1.0

src/IndProp.lidr

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1268,6 +1268,13 @@ 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+
12711278
> iff_reflect : (p <-> (b = True)) -> Reflect p b
12721279
> iff_reflect {b = False} (pb, _) = ReflectF (uninhabited . pb) Refl
12731280
> iff_reflect {b = True} (_, bp) = ReflectT (bp Refl) Refl

src/Makefile

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -18,7 +18,10 @@ LIDR_FILES := Preface.lidr \
1818
Poly.lidr \
1919
Tactics.lidr \
2020
Logic.lidr \
21-
IndProp.lidr
21+
IndProp.lidr \
22+
Maps.lidr \
23+
ProofObjects.lidr \
24+
Rel.lidr
2225
# TODO: Add more chapters, in order, here.
2326

2427

src/Maps.lidr

Lines changed: 15 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -79,6 +79,21 @@ 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+
8297
> beq_id_true_iff : (beq_id x y = True) <-> x = y
8398
> beq_id_true_iff = (bto, bfro)
8499
> where

0 commit comments

Comments
 (0)