(h : binnat -> R) `{!IsSemiRingPreserving h} : forall x, toR x = h x. Proof. equiv_intro binary n. rewrite f_nat; unfold Compose. rewrite eissect. refine (toR_unique (h ∘ binary) n). Qed.
Require Import Require Import Require Import