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

Lemma fmap_comp : forall A B C (f:B -> C) (g:A -> B),
fmap f oo fmap g = fmap (f oo g).