Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
I
iris-coq
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Joshua Yanovski
iris-coq
Commits
fbedbd17
Commit
fbedbd17
authored
Feb 10, 2016
by
Ralf Jung
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
remove some unused typeclasses and notation: EquivE and SubsetEqE
parent
5f393110
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
0 additions
and
42 deletions
+0
-42
prelude/base.v
prelude/base.v
+0
-42
No files found.
prelude/base.v
View file @
fbedbd17
...
...
@@ -163,17 +163,6 @@ Notation "X ≢ Y":= (¬X ≡ Y) (at level 70, no associativity) : C_scope.
Notation
"( X ≢)"
:=
(
λ
Y
,
X
≢
Y
)
(
only
parsing
)
:
C_scope
.
Notation
"(≢ X )"
:=
(
λ
Y
,
Y
≢
X
)
(
only
parsing
)
:
C_scope
.
Class
EquivE
E
A
:=
equivE
:
E
→
relation
A
.
Instance:
Params
(
@
equivE
)
4.
Notation
"X ≡{ Γ } Y"
:=
(
equivE
Γ
X
Y
)
(
at
level
70
,
format
"X ≡{ Γ } Y"
)
:
C_scope
.
Notation
"(≡{ Γ } )"
:=
(
equivE
Γ
)
(
only
parsing
,
Γ
at
level
1
)
:
C_scope
.
Notation
"X ≡{ Γ1 , Γ2 , .. , Γ3 } Y"
:=
(
equivE
(
pair
..
(
Γ
1
,
Γ
2
)
..
Γ
3
)
X
Y
)
(
at
level
70
,
format
"'[' X ≡{ Γ1 , Γ2 , .. , Γ3 } '/' Y ']'"
)
:
C_scope
.
Notation
"(≡{ Γ1 , Γ2 , .. , Γ3 } )"
:=
(
equivE
(
pair
..
(
Γ
1
,
Γ
2
)
..
Γ
3
))
(
only
parsing
,
Γ
1
at
level
1
)
:
C_scope
.
(
**
The
type
class
[
LeibnizEquiv
]
collects
setoid
equalities
that
coincide
with
Leibniz
equality
.
We
provide
the
tactic
[
fold_leibniz
]
to
transform
such
setoid
equalities
into
Leibniz
equalities
,
and
[
unfold_leibniz
]
for
the
...
...
@@ -211,8 +200,6 @@ equality. *)
Instance
equiv_default_relation
`
{
Equiv
A
}
:
DefaultRelation
(
≡
)
|
3.
Hint
Extern
0
(
?
x
≡
?
y
)
=>
reflexivity
.
Hint
Extern
0
(
_
≡
_
)
=>
symmetry
;
assumption
.
Hint
Extern
0
(
?
x
≡
{
_
}
?
y
)
=>
reflexivity
.
Hint
Extern
0
(
_
≡
{
_
}
_
)
=>
symmetry
;
assumption
.
(
**
**
Operations
on
collections
*
)
(
**
We
define
operational
type
classes
for
the
traditional
operations
and
...
...
@@ -292,35 +279,6 @@ Hint Extern 0 (_ ⊆ _) => reflexivity.
Hint
Extern
0
(
_
⊆
*
_
)
=>
reflexivity
.
Hint
Extern
0
(
_
⊆
**
_
)
=>
reflexivity
.
Class
SubsetEqE
E
A
:=
subseteqE
:
E
→
relation
A
.
Instance:
Params
(
@
subseteqE
)
4.
Notation
"X ⊆{ Γ } Y"
:=
(
subseteqE
Γ
X
Y
)
(
at
level
70
,
format
"X ⊆{ Γ } Y"
)
:
C_scope
.
Notation
"(⊆{ Γ } )"
:=
(
subseteqE
Γ
)
(
only
parsing
,
Γ
at
level
1
)
:
C_scope
.
Notation
"X ⊈{ Γ } Y"
:=
(
¬
X
⊆
{
Γ
}
Y
)
(
at
level
70
,
format
"X ⊈{ Γ } Y"
)
:
C_scope
.
Notation
"(⊈{ Γ } )"
:=
(
λ
X
Y
,
X
⊈
{
Γ
}
Y
)
(
only
parsing
,
Γ
at
level
1
)
:
C_scope
.
Notation
"Xs ⊆{ Γ }* Ys"
:=
(
Forall2
(
⊆
{
Γ
}
)
Xs
Ys
)
(
at
level
70
,
format
"Xs ⊆{ Γ }* Ys"
)
:
C_scope
.
Notation
"(⊆{ Γ }* )"
:=
(
Forall2
(
⊆
{
Γ
}
))
(
only
parsing
,
Γ
at
level
1
)
:
C_scope
.
Notation
"X ⊆{ Γ1 , Γ2 , .. , Γ3 } Y"
:=
(
subseteqE
(
pair
..
(
Γ
1
,
Γ
2
)
..
Γ
3
)
X
Y
)
(
at
level
70
,
format
"'[' X ⊆{ Γ1 , Γ2 , .. , Γ3 } '/' Y ']'"
)
:
C_scope
.
Notation
"(⊆{ Γ1 , Γ2 , .. , Γ3 } )"
:=
(
subseteqE
(
pair
..
(
Γ
1
,
Γ
2
)
..
Γ
3
))
(
only
parsing
,
Γ
1
at
level
1
)
:
C_scope
.
Notation
"X ⊈{ Γ1 , Γ2 , .. , Γ3 } Y"
:=
(
¬
X
⊆
{
pair
..
(
Γ
1
,
Γ
2
)
..
Γ
3
}
Y
)
(
at
level
70
,
format
"X ⊈{ Γ1 , Γ2 , .. , Γ3 } Y"
)
:
C_scope
.
Notation
"(⊈{ Γ1 , Γ2 , .. , Γ3 } )"
:=
(
λ
X
Y
,
X
⊈
{
pair
..
(
Γ
1
,
Γ
2
)
..
Γ
3
}
Y
)
(
only
parsing
)
:
C_scope
.
Notation
"Xs ⊆{ Γ1 , Γ2 , .. , Γ3 }* Ys"
:=
(
Forall2
(
⊆
{
pair
..
(
Γ
1
,
Γ
2
)
..
Γ
3
}
)
Xs
Ys
)
(
at
level
70
,
format
"Xs ⊆{ Γ1 , Γ2 , .. , Γ3 }* Ys"
)
:
C_scope
.
Notation
"(⊆{ Γ1 , Γ2 , .. , Γ3 }* )"
:=
(
Forall2
(
⊆
{
pair
..
(
Γ
1
,
Γ
2
)
..
Γ
3
}
))
(
only
parsing
,
Γ
1
at
level
1
)
:
C_scope
.
Hint
Extern
0
(
_
⊆
{
_
}
_
)
=>
reflexivity
.
Definition
strict
{
A
}
(
R
:
relation
A
)
:
relation
A
:=
λ
X
Y
,
R
X
Y
∧
¬
R
Y
X
.
Instance:
Params
(
@
strict
)
2.
Infix
"⊂"
:=
(
strict
(
⊆
))
(
at
level
70
)
:
C_scope
.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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