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

Lemma forall_nonexpansive {A} `{ageable A} : forall B (X : pred A -> B -> pred A),
(forall x, (nonexpansive (fun y => X y x))) ->
nonexpansive (fun x => (allp (X x))).