Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Nicola Botta
IdrisLibs2
Commits
9b914900
Commit
9b914900
authored
Oct 08, 2019
by
Nicola Botta
Browse files
Cleanup.
parent
11a74b67
Changes
4
Hide whitespace changes
Inline
Side-by-side
DoubleExtensions/Constants.idr
View file @
9b914900
...
...
@@ -6,6 +6,7 @@ import DoubleExtensions.Predicates
|||
public
export
eps :
Double
eps
=
prim__floatEPSILON
|||
...
...
DoubleExtensions/Postulates.idr
View file @
9b914900
...
...
@@ -5,6 +5,10 @@ import Data.So
import
DoubleExtensions.Predicates
{- The idea is to postulate properties that are granted by the IEEE
standard but that cannot be implemented.
-}
-- Arithmetic
|||
...
...
@@ -17,6 +21,8 @@ public export
total
plusZeroRightNeutral :
{
x
:
Double
}
->
x
+
0.0
=
x
{- What if x = infinity?
|||
public export
total
...
...
@@ -27,17 +33,22 @@ public export
total
multZeroRightZero : {x : Double} -> x * 0.0 = 0.0
-}
|||
public
export
total
minusSelfZero :
{
x
:
Double
}
->
x
-
x
=
0.0
{- Does not hold
|||
public export
total
plusAssociative : (x : Double) -> (y : Double) -> (z : Double) ->
x + (y + z) = (x + y) + z
-}
-- |LTE|:
...
...
Set/Set.idr
View file @
9b914900
...
...
@@ -36,7 +36,7 @@ implementation Set t (Identity t) where
Elem
x
(
Id
y
)
=
x
=
y
a1
x
=
?
kika
--
MkSigma (Id x) Refl
a1
x
=
MkSigma
(
Id
x
)
Refl
{-
...
...
Sigma/Sigma.idr
View file @
9b914900
module
Sigma.Sigma
{-
public export
data Sigma : (A : Type) -> (P : A -> Type) -> Type where
MkSigma : {A : Type} -> {P : A -> Type} -> (x : A) -> (pf : P x) -> Sigma A P
---}
namespace
Sigma
public
export
record
Sigma
a
(
p
:
a
->
Type
)
where
constructor
MkSigma
fst
:
a
snd
:
p
fst
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment