@@ -1177,7 +1177,7 @@ require about 1.6 times as much code as intrinsically-typed.
11771177This chapter uses the following unicode:
11781178
11791179 σ U+03C3 GREEK SMALL LETTER SIGMA (\Gs or \sigma)
1180- ₀ U+2080 SUBSCRIPT ZERO (\_0)
1180+ ₀ U+20R0 SUBSCRIPT ZERO (\_0)
11811181 ₁ U+2081 SUBSCRIPT ONE (\_1)
11821182 ₂ U+2082 SUBSCRIPT TWO (\_2)
11831183 ₃ U+2083 SUBSCRIPT THREE (\_3)
@@ -1188,20 +1188,23 @@ This chapter uses the following unicode:
11881188 ≠ U+2260 NOT EQUAL TO (\=n)
11891189
11901190
1191- -- Following omitted as for some reason they vastly increase
1192- -- time for Agda to check the file.
1191+ <!--
1192+ Following omitted as for some reason they vastly increase
1193+ time for Agda to check the file.
11931194
1194- -- ## Examples
1195+ ## Examples
11951196
1196- -- We reiterate each of our previous examples. We re-define the term
1197- -- ` sucμ ` that loops forever:
1198- -- ```agda
1197+ We reiterate each of our previous examples. We re-define the term
1198+ `sucμ` that loops forever:
1199+ ```agda
11991200-- sucμ : ∅ ⊢ `ℕ
12001201-- sucμ = μ (`suc (# 0))
1201- -- ```
1202- -- To compute the first three steps of the infinite reduction sequence,
1203- -- we evaluate with three steps worth of gas:
1204- -- ```agda
1202+ ```
1203+
1204+ To compute the first three steps of the infinite reduction sequence,
1205+ we evaluate with three steps worth of gas:
1206+
1207+ ```agda
12051208-- _ : eval 3 sucμ ≡
12061209-- out-of-gas
12071210-- (μ `suc ` Z
@@ -1214,10 +1217,11 @@ This chapter uses the following unicode:
12141217-- ∎)
12151218-- refl
12161219-- _ = refl
1217- -- ```
1220+ ```
1221+
1222+ The Church numeral two applied to successor and zero:
12181223
1219- -- The Church numeral two applied to successor and zero:
1220- -- ```agda
1224+ ```agda
12211225-- _ : eval 100 (twoᶜ · sucᶜ · `zero) ≡
12221226-- terminates
12231227-- ((ƛ (ƛ ` (S Z) · (` (S Z) · ` Z))) · (ƛ `suc ` Z) · `zero
@@ -1233,14 +1237,14 @@ This chapter uses the following unicode:
12331237-- (s≤s (s≤s (s≤s (s≤s (s≤s z≤n)))))
12341238-- (V-suc (V-suc V-zero))
12351239-- _ = refl
1236- -- ```
1240+ ```
12371241
1238- -- We omit the proof that reduction is deterministic, since it is
1239- -- tedious and almost identical to the previous proof.
1242+ We omit the proof that reduction is deterministic, since it is
1243+ tedious and almost identical to the previous proof.
12401244
1245+ Two plus two is four:
12411246
1242- -- Two plus two is four:
1243- -- ```agda
1247+ ```agda
12441248-- _ : eval 100 (plus · two · two) ≡
12451249-- terminates
12461250-- ((μ
@@ -1383,10 +1387,11 @@ This chapter uses the following unicode:
13831387-- (s≤s (s≤s (s≤s (s≤s (s≤s (s≤s (s≤s (s≤s (s≤s (s≤s z≤n)))))))))))))
13841388-- (V-suc (V-suc (V-suc (V-suc V-zero))))
13851389-- _ = refl
1386- -- ```
1390+ ```
13871391
1388- -- And the corresponding term for Church numerals:
1389- -- ```agda
1392+ And the corresponding term for Church numerals:
1393+
1394+ ```agda
13901395-- _ : eval 100 (plusᶜ · twoᶜ · twoᶜ · sucᶜ · `zero) ≡
13911396-- terminates
13921397-- ((ƛ
@@ -1447,4 +1452,5 @@ This chapter uses the following unicode:
14471452-- (s≤s (s≤s (s≤s (s≤s (s≤s (s≤s (s≤s (s≤s (s≤s (s≤s z≤n)))))))))))))
14481453-- (done (V-suc (V-suc (V-suc (V-suc V-zero)))))
14491454-- _ = refl
1450- -- ```
1455+ ```
1456+ -->
0 commit comments