Skip to content
Snippets Groups Projects
Commit 4345aec5 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Name some intro-ed stuff.

parent d6389a35
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
algebra/frac.v
+ 1
− 1
View file @ 4345aec5
...@@ -14,7 +14,7 @@ Instance frac_op : Op frac := λ x y, (x + y)%Qp. ...@@ -14,7 +14,7 @@ Instance frac_op : Op frac := λ x y, (x + y)%Qp.
Definition frac_ra_mixin : RAMixin frac. Definition frac_ra_mixin : RAMixin frac.
Proof. Proof.
split; try apply _; try done. split; try apply _; try done.
unfold valid, op, frac_op, frac_valid. intros. trans (x+y)%Qp. 2:done. unfold valid, op, frac_op, frac_valid. intros x y. trans (x+y)%Qp; last done.
rewrite -{1}(Qcplus_0_r x) -Qcplus_le_mono_l; auto using Qclt_le_weak. rewrite -{1}(Qcplus_0_r x) -Qcplus_le_mono_l; auto using Qclt_le_weak.
Qed. Qed.
Canonical Structure fracR := discreteR frac frac_ra_mixin. Canonical Structure fracR := discreteR frac frac_ra_mixin.
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment