mirror of
https://github.com/nmvdw/HITs-Examples
synced 2026-01-09 00:13:51 +01:00
Completely fixed notation
This commit is contained in:
@@ -12,9 +12,9 @@ Module Export FSet.
|
||||
| L : A -> FSet A
|
||||
| U : FSet A -> FSet A -> FSet A.
|
||||
|
||||
Global Instance fset_empty : hasEmpty FSet := E.
|
||||
Global Instance fset_singleton : hasSingleton FSet := L.
|
||||
Global Instance fset_union : hasUnion FSet := U.
|
||||
Global Instance fset_empty : forall A, hasEmpty (FSet A) := E.
|
||||
Global Instance fset_singleton : forall A, hasSingleton (FSet A) A := L.
|
||||
Global Instance fset_union : forall A, hasUnion (FSet A) := U.
|
||||
|
||||
Variable A : Type.
|
||||
|
||||
|
||||
@@ -9,7 +9,7 @@ Module Export FSetC.
|
||||
| Nil : FSetC A
|
||||
| Cns : A -> FSetC A -> FSetC A.
|
||||
|
||||
Global Instance fset_empty : hasEmpty FSetC := Nil.
|
||||
Global Instance fset_empty : forall A,hasEmpty (FSetC A) := Nil.
|
||||
|
||||
Variable A : Type.
|
||||
Arguments Cns {_} _ _.
|
||||
|
||||
@@ -9,9 +9,9 @@ Module Export FSet.
|
||||
| L : A -> FSet A
|
||||
| U : FSet A -> FSet A -> FSet A.
|
||||
|
||||
Global Instance fset_empty : hasEmpty FSet := E.
|
||||
Global Instance fset_singleton : hasSingleton FSet := L.
|
||||
Global Instance fset_union : hasUnion FSet := U.
|
||||
Global Instance fset_empty : forall A, hasEmpty (FSet A) := E.
|
||||
Global Instance fset_singleton : forall A, hasSingleton (FSet A) A := L.
|
||||
Global Instance fset_union : forall A, hasUnion (FSet A) := U.
|
||||
|
||||
Variable A : Type.
|
||||
|
||||
|
||||
Reference in New Issue
Block a user