dan
/
HITs-Examples
mirror of https://github.com/nmvdw/HITs-Examples
1
0
Fork 0
Code Issues Releases Wiki Activity

Added subobjects

This commit is contained in:
Niels 2017-08-03 12:27:43 +02:00
parent fec00177ad
commit 241f5ea377
2 changed files with 23 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
FiniteSets/Sub.v Normal file
View File

@ -0,0 +1,23 @@
Require Import HoTT.
Require Import disjunction lattice.
Section subobjects.
Variable A : Type.
Definition Sub := A -> hProp.
End subobjects.
Section blah.
Variable A : Type.
Variable C : (A -> hProp) -> hProp.
Context `{Univalence}.
Instance blah : Lattice (Sub A).
Proof.
unfold Sub.
apply _.
Defined.
Definition hasUnion := forall X Y, C X -> C Y -> C (max_fun X Y).
Definition hasIntersection := forall X Y, C X -> C Y -> C (min_fun X Y).
End blah.

17
FiniteSets/fsets/properties_decidable.v
View File

@ -166,23 +166,6 @@ Section SetLattice.
split ; toBool. split ; toBool.
Defined. Defined.
<<<<<<< HEAD
=======
Instance lattice_fset : Lattice intersection (@U A) (@E A) :=
{
commutative_min := _ ;
commutative_max := _ ;
associative_min := _ ;
associative_max := _ ;
idempotent_min := _ ;
idempotent_max := _ ;
neutralL_max := _ ;
neutralR_max := _ ;
absorption_min_max := _ ;
absorption_max_min := _
}.
>>>>>>> 8a65852d1b39137898bddbaf7cf949bceeb4a574
End SetLattice. End SetLattice.
(* Comprehension properties *) (* Comprehension properties *)