(* * Copyright (c) 2009-2010, Andrew Appel, Robert Dockins and Aquinas Hobor. * *)
Local Open Scope pred.

Lemma conj_nonexpansive {A} `{ageable A} : forall (F G:pred A -> pred A),
nonexpansive F ->
nonexpansive G ->
nonexpansive (fun x:pred A => F x && G x).