minor update to Naturals

This commit is contained in:
wadler 2018-05-26 12:22:30 -03:00
parent 83a62f55d9
commit adc4d3abb2
2 changed files with 6 additions and 5 deletions

View file

@ -770,11 +770,12 @@ embedding, revealing a sense in which one of these laws is "more
true" than the other.
### Exercise (`×⊎-implies-⊎×`)
### Exercise (`⊎×-implies-×⊎`)
Show that a conjunct of disjuncts implies a disjunct of conjuncts.
Show that a disjunct of conjuncts implies a conjunct of disjuncts.
\begin{code}
×⊎-Implies-⊎× = ∀ {A B C D : Set} → (A ⊎ B) × (C ⊎ D) → (A × C) ⊎ (B × D)
postulate
⊎×-implies-×⊎ : ∀ {A B C D : Set} → (A × B) ⊎ (C × D) → (A ⊎ C) × (B ⊎ D)
\end{code}
Does the converse hold? If so, prove; if not, explain why.

View file

@ -82,8 +82,8 @@ zero or more *judgments* written above a horizontal line, called the
*conclusion*. The first rule is the base case. It has no hypotheses,
and the conclusion asserts that `zero` is a natural. The second rule
is the inductive case. It has one hypothesis, which assumes that `m`
is a natural, and the conclusion asserts that `suc n` is a also a
natural.
is a natural, and in that case the conclusion asserts that `suc n`
is a also a natural.
## Unpacking the Agda definition