File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -32,6 +32,22 @@ class t_PartialOrd (v_Self: Type) (v_Rhs:Type) = {
3232 f_partial_cmp_pre : v_Self -> v_Rhs -> Type0;
3333 f_partial_cmp_post : v_Self -> v_Rhs -> Core.Option. t_Option t_Ordering -> Type0;
3434 f_partial_cmp : v_Self -> v_Rhs -> Core.Option. t_Option t_Ordering ;
35+
36+ f_ge_pre : v_Self -> v_Rhs -> Type0;
37+ f_ge_post : v_Self -> v_Rhs -> Type0;
38+ f_ge : v_Self -> v_Rhs -> bool;
39+
40+ f_gt_pre : v_Self -> v_Rhs -> Type0;
41+ f_gt_post : v_Self -> v_Rhs -> Type0;
42+ f_gt : v_Self -> v_Rhs -> bool;
43+
44+ f_le_pre : v_Self -> v_Rhs -> Type0;
45+ f_le_post : v_Self -> v_Rhs -> Type0;
46+ f_le : v_Self -> v_Rhs -> bool;
47+
48+ f_lt_pre : v_Self -> v_Rhs -> Type0;
49+ f_lt_post : v_Self -> v_Rhs -> Type0;
50+ f_lt : v_Self -> v_Rhs -> bool;
3551}
3652
3753class t_Ord ( v_Self : Type) = {
@@ -60,3 +76,6 @@ val ord_int t: t_Ord (int_t t)
6076
6177[ @FStar.Tactics.Typeclasses. tcinstance ]
6278val ord_reverse t {| t_Ord t |}: t_Ord ( t_Reverse t )
79+
80+ [ @FStar.Tactics.Typeclasses. tcinstance ]
81+ val partialOrdFloat : t_PartialOrd float float
You can’t perform that action at this time.
0 commit comments