Module KnotInput <: KNOT_INPUT__HERED_PROP_OTH_REL.
Definition F := program.
Definition fmap A B (f:A->B) := map_fmap _ _ (fmap_instr f).
Implicit Arguments fmap [A B].
Definition Rel A (x y:F A) : Prop := x = y.

Lemma Rel_fmap : forall A B (f:A->B) x y,
Rel A x y -> Rel B (fmap f x) (fmap f y).