Skip to content

Commit 36cb187

Browse files
Rename Set to Type in examples
1 parent 8ed77ed commit 36cb187

File tree

4 files changed

+4
-4
lines changed

4 files changed

+4
-4
lines changed

tutorials/example-basics/HelloWorld.agda

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@ Entry = Int × List String
77

88

99
--defining a datatype
10-
data Tree (a : Set) : Set where
10+
data Tree (a : Type) : Type where
1111
Leaf : a Tree a
1212
Branch : a Tree a Tree a Tree a
1313

tutorials/example-proofs/Ascending.agda

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -14,7 +14,7 @@ isAscending (x ∷ y ∷ xs) = if x <= y then isAscending (y ∷ xs) else False
1414
{-# COMPILE AGDA2HS isAscending #-}
1515

1616
-- data type defining a postulate of ascending order on lists
17-
data IsAscending₂ {a : Set} ⦃ iOrdA : Ord a ⦄ : List a Set where
17+
data IsAscending₂ {a : Type} ⦃ iOrdA : Ord a ⦄ : List a Type where
1818
Empty : IsAscending₂ []
1919
OneElem : (x : a) IsAscending₂ (x ∷ [])
2020
ManyElem : (x y : a) (xs : List a)

tutorials/example-proofs/Triangle.agda

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@ countBiggerThan xs b = length (filter (λ x → (x >= b)) xs)
1010
{-# COMPILE AGDA2HS countBiggerThan #-}
1111

1212
-- Triangle data type deinfition
13-
data Triangle : Set where
13+
data Triangle : Type where
1414
MkTriangle : (alpha beta gamma : Nat)
1515
⦃ @0 h₁ : (((alpha + beta + gamma) == 180) ≡ True ) ⦄
1616
@0 ⦃ ((countBiggerThan

tutorials/example-structure/src/agda/Definition.agda

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@ module Definition where
22

33
open import Haskell.Prelude
44

5-
data CountDown : Set where
5+
data CountDown : Type where
66
MkCountdown : (start : Int)
77
{{ @0 h : ((start > 0) ≡ True) }}
88
CountDown

0 commit comments

Comments
 (0)