Exercise (Trivial) Should the reader be feeling industrious, they
are encouraged to prove that Sandbox-Relations.Unrelated and
Sandbox-Relations.Related are also preorders.
the provided solution does not include the proof for Sandbox-Relations.Unrelated:
Solution
open Sandbox-Relations using (Related; related)
Related-preorder : IsPreorder (Related {A = A})
IsPreorder.refl Related-preorder = related
IsPreorder.trans Related-preorder _ _ = related
In the last exercise of section 4.12:
the provided solution does not include the proof for
Sandbox-Relations.Unrelated
: