proposition: Lemma icor_involutive: {when correspondence, involutive inverse_fun}.
proof: Proof. move=> m cm; rewrite /inverse_fun; aw; rewrite igraph_involutive;fprops. by apply: corresp_recov1. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)