Notation fun_of_fin := FunFinfun.fun_of_fin.Notation finfun := FunFinfun.finfun.Canonical fun_of_fin_unlock := Unlockable FunFinfun.fun_of_finE.Canonical finfun_unlock := Unlockable FunFinfun.finfunE.Notation "y .-support" := (support_for y)
  (at level 2, format "y .-support") : fun_scope.Notation fT := {ffun aT -> rT}.Implicit Types (f : fT) (R : pred rT).

(* Specifications: *)
Lemma tnth_fgraph f i : tnth (fgraph f) i = f (enum_val i).
Lemma ffunE (g : aT -> rT) : finfun g =1 g.
Lemma fgraph_codom f : fgraph f = codom_tuple f.
Lemma codom_ffun f : codom f = val f.
Lemma ffunP f1 f2 : f1 =1 f2 <-> f1 = f2.
Lemma ffunK : cancel (@fun_of_fin aT rT) (@finfun aT rT).