Skip to content

Commit

Permalink
adapt to MC#1256
Browse files Browse the repository at this point in the history
  • Loading branch information
Tragicus committed Aug 9, 2024
1 parent 3ea1c2d commit fc340bc
Showing 1 changed file with 4 additions and 1 deletion.
5 changes: 4 additions & 1 deletion theories/zify_algebra.v
Original file line number Diff line number Diff line change
Expand Up @@ -341,7 +341,10 @@ Instance Op_Z_mulr : BinOp ( *%R : Z -> Z -> Z) :=
Add Zify BinOp Op_Z_mulr.

Fact Op_Z_natmul_subproof (n : Z) (m : nat) : (n *+ m)%R = (n * Z.of_nat m)%Z.
Proof. elim: m => [|m]; rewrite (mulr0n, mulrS); lia. Qed.
Proof.
elim: m => [|m]; rewrite (mulr0n, mulrS); first by lia.
by move=> ->; lia.
Qed.

#[global]
Instance Op_Z_natmul : BinOp (@GRing.natmul _ : Z -> nat -> Z) :=
Expand Down

0 comments on commit fc340bc

Please sign in to comment.