Admitted. (* QuickChick fst_swap_is_snd. *)
Inductive natlist : Type :=
| nil  : natlist
| cons : nat -> natlist -> natlist.
Instance dec_natlist (p q : natlist) : Dec (p = q).

(* Specifications: *)
Theorem tl_length_pred : forall l:natlist,
pred (length l) = length (tl l).