mirror of
				https://github.com/nmvdw/HITs-Examples
				synced 2025-11-04 07:33: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