(N':Type@{U}) `{Naturals@{U U U U U U U U} N'} : forall (P : SemiRings.Operations -> Type), P (SemiRings.BuildOperations N') -> P (SemiRings.BuildOperations N). Proof. apply SemiRings.iso_leibnitz with (naturals_to_semiring N' N);apply _. Qed.
Require Import Require Import Import SemiRings.