(* Basic inversions *********************************************************)
lemma list_length_inv_zero_dx (A:Type[0]) (l:list A):
- |l| = ð\9d\9f\8e â\86\92 l = â\92º.
+ |l| = ð\9d\9f\8e â\86\92 l = â\93\94.
#A * // #a #l >list_length_lcons #H
elim (eq_inv_nsucc_zero … H)
qed-.
lemma list_length_inv_zero_sn (A:Type[0]) (l:list A):
- (ð\9d\9f\8e) = |l| â\86\92 l = â\92º.
+ (ð\9d\9f\8e) = |l| â\86\92 l = â\93\94.
/2 width=1 by list_length_inv_zero_dx/ qed-.
lemma list_length_inv_succ_dx (A:Type[0]) (l:list A) (x):