Hint Rewrite @eval_make_args_same : norm2.
Hint Rewrite @eval_make_args_other using (solve [clear; intro Hx; inversion Hx]) : norm.
Infix "oo" := Basics.compose (at level 54, right associativity).
Arguments Basics.compose {A B C} g f x / .

Lemma compose_backtick:
forall A B C (F: B -> C) (G: A -> B) (J: environ -> A),
`F (`G  J) = `(Basics.compose F G) J.