(* QuickChick Prelude *)
Set Warnings "-extraction-opaque-accessed,-extraction".
Set Warnings "-notation-overridden,-parsing".
Set Bullet Behavior "Strict Subproofs".
(* End prelude *)

Lemma canonical_forms_bool : forall t,
empty |- t \typ TBool ->
value t ->
(t = ttrue) \/ (t = tfalse).