blob: 98e017f9d6ceb5fac43803890adeb445a917ba5f (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
Require Import Relations.
Record Poset{A:Type}(Le : relation A) : Type :=
Build_Poset
{
Le_refl : forall x : A, Le x x;
Le_trans : forall x y z : A, Le x y -> Le y z -> Le x z;
Le_antisym : forall x y : A, Le x y -> Le y x -> x = y }.
Definition nat_Poset : Poset Peano.le.
Admitted.
|
