public static typeTo H**o <typeFrom, typeTo, left, right>(this typeFrom From, SProdProj <typeFrom, left, right> Alg, SProdInj <typeTo, left, right> CoAlg) => CoAlg.Inject(From, Alg.ProjectLeft, Alg.ProjectRight);
public static typeTo BiMap <typeFrom, typeTo, left, right, leftˈ, rightˈ>(this typeFrom From, SProdProj <typeFrom, left, right> Alg, Func <left, leftˈ> Left, Func <right, rightˈ> Right, SProdInj <typeTo, leftˈ, rightˈ> CoAlg) => CoAlg.Inject(From, x => Left(Alg.ProjectLeft(x)), x => Right(Alg.ProjectRight(x)));
public static right ProjectRight <type, left, right>(this SProdProj <type, left, right> Alg, type Value) => Alg.Project(Value, Either <Func <left, right> > .Right <Func <right, right> >(x => x));