Let eq_rf := eq_frel eq_f.

(* Specifications: *)
Lemma eq_fconnect : fconnect f =2 fconnect f'.
Lemma eq_froot : froot f =1 froot f'.
Lemma strict_adjunction :
injective h -> a \subset codom h -> rel_base h e e' [predC a] ->
rel_adjunction.