Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Contribute to GitLab
Sign in
Toggle navigation
C
cpdt
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
research
cpdt
Commits
88cbb6b8
Commit
88cbb6b8
authored
Apr 07, 2015
by
Clément Pit--Claudel
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Use TeX magic to prevent -- from being displayed as an en dash
parent
00cbd4c1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
0 deletions
+3
-0
Subset.v
src/Subset.v
+3
-0
No files found.
src/Subset.v
View file @
88cbb6b8
...
...
@@ -671,12 +671,15 @@ Defined.
(
**
We
can
build
a
[
sumor
]
version
of
the
"bind"
notation
and
use
it
to
write
a
similarly
straightforward
version
of
this
function
.
%
Again
,
the
notation
definition
exposes
the
ASCII
syntax
with
an
operator
\
texttt
{<-{}-},
while
the
later
code
uses
a
nicer
long
left
arrow
$
\
longleftarrow
$
.%
*
)
(
**
%
\
def
\
indash
{-}
\
catcode
`
-=
13
\
def
-{
\
indash
\
kern0pt
}%
*
)
Notation
"x <-- e1 ; e2"
:=
(
match
e1
with
|
inright
_
=>
!!
|
inleft
(
exist
x
_
)
=>
e2
end
)
(
right
associativity
,
at
level
60
)
.
(
**
%
\
catcode
`
-=
12
%
*
)(
*
*
)
(
**
printing
*
$
\
times
$
*
)
(
*
EX
:
Write
a
more
expressively
typed
version
of
the
last
exercise
.
*
)
...
...
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