Proving Reliability of Image Processing Techniques in Digital Forensics Applications

Listing 22

Run-length and area.

	Lemma runlenblack_eq_area_all: forall img:image
	sumrunlen (runlenblack img nil) = areasize img.
	Proof.
	intro.
	induction img as [ |p pl].
	+ simpl. auto.
	+ destruct p.
	destruct col.
	−simpl.
	rewrite < −IHpl.
	rewrite runlen_0_nil.
	auto.
	−simpl.
	rewrite < −IHpl.
	simpl.
	rewrite sumrunlen_l.
	simpl.
	auto.
	Qed.