fact: Definition Exercise1_10_counterexample r r' f:= [/\ lattice r, lattice r', function_prop f (substrate r)(substrate r'), (increasing_fun f r r') & exists x y, [/\ inc x (substrate r), inc y (substrate r) & (Vf f (inf r x y)) <> (inf r' (Vf f x) (Vf f y))]].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)