57985d9...master · Idris-dev

.travis.yml+54−35

since splitsnapshots

unifiedsplit

@@ -1,5 +1,4 @@

1−dist: trusty

1+dist: xenial

2−sudo: false

3

2

4language: c

3language: c

5

4

@@ -9,34 +8,37 @@ env:

9

8

10matrix:

9matrix:

11 include:

10 include:

12− - env: CABALVER="2.2" GHCVER="8.4.1" STACKVER="7.14" STYLISH=YES

11+ - env: CABALVER="2.4" GHCVER="8.6.5" STACKVER="15.4" STYLISH=YES

13− addons: {apt: {packages: [cabal-install-2.2,ghc-8.4.1,hscolour], sources: [hvr-ghc]}}

12+ addons: {apt: {packages: [cabal-install-2.4,ghc-8.6.5,hscolour], sources: [hvr-ghc]}}

14− - env: CABALVER="2.2" GHCVER="7.10.3" TESTS="test_c"

15− compiler: ": #GHC 7.10.3"

16− addons: {apt: {packages: [cabal-install-2.2,ghc-7.10.3,cppcheck,hscolour], sources: [hvr-ghc]}}

17− - env: CABALVER="1.24" GHCVER="8.0.1" TESTS="test_c"

18− compiler: ": #GHC 8.0.1"

19− addons: {apt: {packages: [cabal-install-1.24,ghc-8.0.1,cppcheck,hscolour], sources: [hvr-ghc]}}

20− - env: CABALVER="2.0" GHCVER="8.2.2" TESTS="lib_doc doc"

13+ - env: CABALVER="2.4" GHCVER="8.2.2" TESTS="lib_doc doc"

21 compiler: ": #GHC 8.2.2"

14 compiler: ": #GHC 8.2.2"

22− addons: {apt: {packages: [cabal-install-2.0,ghc-8.2.2,cppcheck,hscolour], sources: [hvr-ghc]}}

15+ addons: {apt: {packages: [cabal-install-2.4,ghc-8.2.2,cppcheck,hscolour], sources: [hvr-ghc]}}

23− - env: CABALVER="2.0" GHCVER="8.2.2" TESTS="test_js"

16+ - env: CABALVER="2.4" GHCVER="8.2.2" TESTS="test_js"

24 compiler: ": #GHC 8.2.2"

17 compiler: ": #GHC 8.2.2"

25− addons: {apt: {packages: [cabal-install-2.0,ghc-8.2.2,cppcheck,hscolour], sources: [hvr-ghc]}}

18+ addons: {apt: {packages: [cabal-install-2.4,ghc-8.2.2,cppcheck,hscolour], sources: [hvr-ghc]}}

26− - env: CABALVER="2.0" GHCVER="8.2.2" TESTS="test_c"

19+ - env: CABALVER="2.4" GHCVER="8.2.2" TESTS="test_c"

27 compiler: ": #GHC 8.2.2"

20 compiler: ": #GHC 8.2.2"

28− addons: {apt: {packages: [cabal-install-2.0,ghc-8.2.2,cppcheck,hscolour], sources: [hvr-ghc]}}

21+ addons: {apt: {packages: [cabal-install-2.4,ghc-8.2.2,cppcheck,hscolour], sources: [hvr-ghc]}}

29−#TODO: The idris built with those fails due to libffi dynamic linking version mismatch.

22+ - env: CABALVER="2.4" GHCVER="8.4.4" TESTS="lib_doc doc"

30−# Caused by the GHC backport to Trusty?

23+ compiler: ": #GHC 8.4.4"

24+ addons: {apt: {packages: [cabal-install-2.4,ghc-8.4.4,cppcheck,hscolour], sources: [hvr-ghc]}}

25+ - env: CABALVER="2.4" GHCVER="8.4.4" TESTS="test_js"

26+ compiler: ": #GHC 8.4.4"

27+ addons: {apt: {packages: [cabal-install-2.4,ghc-8.4.4,cppcheck,hscolour], sources: [hvr-ghc]}}

31−# - env: CABALVER="2.2" GHCVER="8.4.1" TESTS="lib_doc doc"

28+ - env: CABALVER="2.4" GHCVER="8.4.4" TESTS="test_c"

32−# compiler: ": #GHC 8.4.1"

29+ compiler: ": #GHC 8.4.4"

33−# addons: {apt: {packages: [cabal-install-2.2,ghc-8.4.1,cppcheck,hscolour], sources: [hvr-ghc]}}

30+ addons: {apt: {packages: [cabal-install-2.4,ghc-8.4.4,cppcheck,hscolour], sources: [hvr-ghc]}}

31+ - env: CABALVER="3.0" GHCVER="8.8.3" TESTS="lib_doc doc"

32+ compiler: ": #GHC 8.8.3"

33+ addons: {apt: {packages: [cabal-install-3.0,ghc-8.8.3,cppcheck,hscolour], sources: [hvr-ghc]}}

34−# - env: CABALVER="2.2" GHCVER="8.4.1" TESTS="test_js"

34+ - env: CABALVER="3.0" GHCVER="8.8.3" TESTS="test_js"

35−# compiler: ": #GHC 8.4.1"

35+ compiler: ": #GHC 8.8.3"

36−# addons: {apt: {packages: [cabal-install-2.2,ghc-8.4.1,cppcheck,hscolour], sources: [hvr-ghc]}}

36+ addons: {apt: {packages: [cabal-install-3.0,ghc-8.8.3,cppcheck,hscolour], sources: [hvr-ghc]}}

37−# - env: CABALVER="2.2" GHCVER="8.4.1" TESTS="test_c"

37+ - env: CABALVER="3.0" GHCVER="8.8.3" TESTS="test_c"

38−# compiler: ": #GHC 8.4.1"

38+ compiler: ": #GHC 8.8.3"

39−# addons: {apt: {packages: [cabal-install-2.2,ghc-8.4.1,cppcheck,hscolour], sources: [hvr-ghc]}}

39+ addons: {apt: {packages: [cabal-install-3.0,ghc-8.8.3,cppcheck,hscolour], sources: [hvr-ghc]}}

40+ - env: CABALVER="3.0" GHCVER="8.8.3" IDRIS2=YES

41+ addons: {apt: {packages: [cabal-install-3.0,ghc-8.8.3], sources: [hvr-ghc]}}

40 fast-finish: true

42 fast-finish: true

41

43

42cache:

44cache:

@@ -55,7 +57,7 @@ before_install:

55 - unset CC

57 - unset CC

56 - if [[ $TRAVIS_OS_NAME == 'linux' ]];

58 - if [[ $TRAVIS_OS_NAME == 'linux' ]];

57 then

59 then

58− export PATH=/opt/ghc/$GHCVER/bin:/opt/cabal/$CABALVER/bin:$HOME/.cabal/bin:$PATH;

60+ export PATH=/opt/ghc/$GHCVER/bin:/opt/cabal/$CABALVER/bin:$HOME/.cabal/bin:$HOME/opt/scheme/bin/:$PATH;

59 export SED=sed;

61 export SED=sed;

60 export ZCAT=zcat;

62 export ZCAT=zcat;

61 fi

63 fi

@@ -70,6 +72,21 @@ before_install:

70 export PKG_CONFIG_PATH=/usr/local/opt/libffi/lib/pkgconfig:$PKG_CONFIG_PATH;

72 export PKG_CONFIG_PATH=/usr/local/opt/libffi/lib/pkgconfig:$PKG_CONFIG_PATH;

71 fi

73 fi

72 - if [ -n "$STYLISH" ]; then ./stylize.sh; exit $?; fi

74 - if [ -n "$STYLISH" ]; then ./stylize.sh; exit $?; fi

75+ - if [ -n "$IDRIS2" ];

76+ then

77+ git clone https://github.com/edwinb/Idris2 &&

78+ wget https://github.com/cisco/ChezScheme/archive/v9.5.2.tar.gz &&

79+ tar xvzf v9.5.2.tar.gz &&

80+ cd ChezScheme-9.5.2 &&

81+ ./configure --threads --installprefix=$HOME/opt/scheme &&

82+ make -j install &&

83+ cd .. &&

84+ cabal v1-update &&

85+ travis_wait cabal v1-install &&

86+ cd Idris2 &&

87+ make idris2 && make base && make contrib;

88+ exit $?;

89+ fi

73

90

74install:

91install:

75 - which cabal

92 - which cabal

@@ -87,7 +104,7 @@ install:

87 # causing cabal's default configuration (jobs: $ncpus)

104 # causing cabal's default configuration (jobs: $ncpus)

88 # to run into the GHC #9221 bug which can result in longer build-times.

105 # to run into the GHC #9221 bug which can result in longer build-times.

89 - $SED -i -r 's/(^jobs:).*/\1 2/' $HOME/.cabal/config

106 - $SED -i -r 's/(^jobs:).*/\1 2/' $HOME/.cabal/config

90− - cabal install -f FFI --only-dependencies --enable-tests --dry -v > installplan.txt

107+ - cabal v1-install -f FFI --only-dependencies --enable-tests --dry -v > installplan.txt

91 - $SED -i -e '1,/^Resolving /d' installplan.txt; cat installplan.txt

108 - $SED -i -e '1,/^Resolving /d' installplan.txt; cat installplan.txt

92 # check whether current requested install-plan matches cached package-db snapshot

109 # check whether current requested install-plan matches cached package-db snapshot

93 - if diff -u installplan.txt $HOME/.cabsnap/installplan.txt;

110 - if diff -u installplan.txt $HOME/.cabsnap/installplan.txt;

@@ -100,7 +117,7 @@ install:

100 echo "cabal build-cache MISS";

117 echo "cabal build-cache MISS";

101 rm -rf $HOME/.cabsnap;

118 rm -rf $HOME/.cabsnap;

102 mkdir -p $HOME/.ghc $HOME/.cabal/lib $HOME/.cabal/share $HOME/.cabal/bin;

119 mkdir -p $HOME/.ghc $HOME/.cabal/lib $HOME/.cabal/share $HOME/.cabal/bin;

103− cabal install -f FFI --only-dependencies --enable-tests;

120+ cabal v1-install -f FFI --only-dependencies --enable-tests;

104 fi

121 fi

105 # snapshot package-db on cache miss

122 # snapshot package-db on cache miss

106 - if [ ! -d $HOME/.cabsnap ];

123 - if [ ! -d $HOME/.cabsnap ];

@@ -111,28 +128,30 @@ install:

111 cp -a $HOME/.cabal/lib $HOME/.cabal/share $HOME/.cabal/bin installplan.txt $HOME/.cabsnap/;

128 cp -a $HOME/.cabal/lib $HOME/.cabal/share $HOME/.cabal/bin installplan.txt $HOME/.cabsnap/;

112 fi

129 fi

113

130

131+

114before_script:

132before_script:

115 - ORIGINAL_DIR=$(pwd)

133 - ORIGINAL_DIR=$(pwd)

116− - cabal sdist

134+ - cabal v1-sdist

117 - cd ..

135 - cd ..

118 - tar -xf ${ORIGINAL_DIR}/dist/${PKGNAME}*.tar.gz

136 - tar -xf ${ORIGINAL_DIR}/dist/${PKGNAME}*.tar.gz

119 - cd ${PKGNAME}*

137 - cd ${PKGNAME}*

120script:

138script:

139+ - export LD_PRELOAD=/opt/ghc/${GHCVER}/lib/ghc-${GHCVER}/rts/libffi.so.7

121###

140###

122 - echo 'Configure...' && echo -en 'travis_fold:start:script.configure\\r'

141 - echo 'Configure...' && echo -en 'travis_fold:start:script.configure\\r'

123− - cabal configure -f FFI -f CI --enable-tests

142+ - cabal v1-configure -f FFI -f CI --enable-tests

124 - echo -en 'travis_fold:end:script.configure\\r'

143 - echo -en 'travis_fold:end:script.configure\\r'

125###

144###

126 - echo 'Build...' && echo -en 'travis_fold:start:script.build\\r'

145 - echo 'Build...' && echo -en 'travis_fold:start:script.build\\r'

127− - cabal build

146+ - cabal v1-build

128 - echo -en 'travis_fold:end:script.build\\r'

147 - echo -en 'travis_fold:end:script.build\\r'

129###

148###

130 - echo 'Copy...' && echo -en 'travis_fold:start:script.copy\\r'

149 - echo 'Copy...' && echo -en 'travis_fold:start:script.copy\\r'

131− - cabal copy

150+ - cabal v1-copy

132 - echo -en 'travis_fold:end:script.copy\\r'

151 - echo -en 'travis_fold:end:script.copy\\r'

133###

152###

134 - echo 'Register...' && echo -en 'travis_fold:start:script.register\\r'

153 - echo 'Register...' && echo -en 'travis_fold:start:script.register\\r'

135− - cabal register

154+ - cabal v1-register

136 - echo -en 'travis_fold:end:script.register\\r'

155 - echo -en 'travis_fold:end:script.register\\r'

137###

156###

138 - echo 'Cppcheck...' && echo -en 'travis_fold:start:script.cppcheck\\r'

157 - echo 'Cppcheck...' && echo -en 'travis_fold:start:script.cppcheck\\r'

CHANGELOG.md+29

@@ -1,3 +1,32 @@

1+# New since last release

2++ Updated to work with GHC 8.8 and cabal 3.0

3+

4+# New in 1.3.2

5++ Documentation added to proof section

6+

7+## Library updates

8++ `openFile` opens the file in binary mode on Windows.

9++ Added library functions `clockTime` and `fRemove`

10+

11+## Tool updates

12++ Modules no longer require building if imports have changed but all

13+ interfaces (i.e. types for names declared `export` and definitions of names

14+ declared `public export`) are unchanged.

15++ The result of calling `:doc` now details the accessbility of items as well as their totality.

16+

17+## Miscellaneous updates

18++ Compiler flag `--optimise-nat-like-types` enables compilation

19+ of `Nat`-like type families to big integers. A type family

20+ is `Nat`-like if, after erasure, it has two constructors,

21+ one nullary, the other one with exactly one recursive field.

22+

23+# New in 1.3.1

24+

25+## Tool updates

26++ Fixes for building with GHC 8.6

27++ Fix for megaparsec update

28++ Some fixes for memory allocation issues in the C back end

29+

1# New in 1.3.0

30# New in 1.3.0

2

31

3## Language updates

32## Language updates

CITATION.md+1−1

@@ -17,7 +17,7 @@ If you use `Idris` in your work we would prefer it if you would use the followin

17 pages = {552--593},

18 numpages = {42},

19 doi = {10.1017/S095679681300018X},

20− URL = {http://journals.cambridge.org/article_S095679681300018X},

20+ URL = {https://journals.cambridge.org/article_S095679681300018X},

21}

22```

23

CONTRIBUTING.md+6−6

@@ -6,9 +6,9 @@ Here are a few guidelines that we would like contributors to follow so that we c

6

7## Getting Started

8

9−1. Make sure you are familiar with [Git](http://git-scm.com/book).

9+1. Make sure you are familiar with [Git](https://git-scm.com/book).

101. Make sure you have a [GitHub account](https://github.com/signup/free).

11−1. Make sure you are familiar with: [Idris](http://eb.host.cs.st-andrews.ac.uk/writings/idris-tutorial.pdf).

11+1. Make sure you are familiar with: [Idris](https://eb.host.cs.st-andrews.ac.uk/writings/idris-tutorial.pdf).

121. Make sure you can install Idris:

13 * [Mac OS X](https://github.com/idris-lang/Idris-dev/wiki/Idris-on-OS-X-using-Homebrew)

14 * [Ubuntu](https://github.com/idris-lang/Idris-dev/wiki/Idris-on-Ubuntu)

@@ -72,7 +72,7 @@ We do not want you wasting your time nor duplicating somebody's work!

72

73## Making Changes

74

75−Idris developers and hackers try to adhere to something similar to the [successful git branching model](http://nvie.com/posts/a-successful-git-branching-model/).

75+Idris developers and hackers try to adhere to something similar to the [successful git branching model](https://nvie.com/posts/a-successful-git-branching-model/).

76The steps are described below.

77

78### New contributors

@@ -83,7 +83,7 @@ For those new to the project:

832. Clone your fork to your local machine:

84

85```

86−$ git clone git@github.com/<your github user name>/Idris-dev.git

86+$ git clone git@github.com:<your github user name>/Idris-dev.git

87```

88

893. Add `idris-lang/Idris-dev` as a remote upstream

@@ -175,8 +175,8 @@ To help increase the chance of your pull request being accepted:

175* Idris FAQs: [Official](https://idris.readthedocs.io/en/latest/faq/faq.html); [Unofficial](https://github.com/idris-lang/Idris-dev/wiki/Unofficial-FAQ);

176* [Idris Manual](https://github.com/idris-lang/Idris-dev/wiki/Manual);

177* [Idris Tutorial](https://idris.readthedocs.io/en/latest/tutorial/index.html);

178−* [Idris News](http://www.idris-lang.org/news/);

178+* [Idris News](https://www.idris-lang.org/news/);

179−* [other Idris docs](http://www.idris-lang.org/documentation/).

179+* [other Idris docs](https://www.idris-lang.org/documentation/).

180* [Using Pull Requests](https://help.github.com/articles/using-pull-requests)

181* [General GitHub Documentation](https://help.github.com/).

182

CONTRIBUTORS+1

@@ -143,6 +143,7 @@ Luke Palmer

143Mark Farrell

144Markus Klink

145Markus Pfeiffer

146+Martin Baker

146Mathnerd314

147Mathnerd314

147Mattias Lundell

148Mattias Lundell

148Matvey B. Aksenov

149Matvey B. Aksenov

INSTALL.md+30−5

@@ -70,7 +70,7 @@ NixOS unstable.

70

71*Important* Stack will not install any external dependencies required

72to build Idris. Before you try stack please ensure you have the

73−correct depenencies.

73+correct dependencies.

74

75To build Idris with stack use the following command:

76

@@ -81,9 +81,9 @@ To install Idris:

81* `stack install`

82

83Stack will install Idris (and related executables) into `$HOME/.local/bin/`

84−on Unix based systems and an appropriate place on Windows. The libraries that

84+on Unix based systems and an appropriate place on Windows. The libraries that

85−are included with Idris (e.g. Builtins, Prelude) will 'install' into `<source

85+are included with Idris (e.g. Builtins, Prelude) will 'install' into `<source

86−dir>/.stack_work/install/...` so you'll need to keep your source directory

86+dir>/.stack_work/install/...` so you'll need to keep your source directory

87around after you've installed Idris using Stack.

88

89Of note: If you haven't used stack before commands will also setup the

@@ -125,4 +125,29 @@ encounter this then the fix is to augment the `PKG_CONFIG_PATH` for

125

126```

127PKG_CONFIG_PATH=/usr/local/opt/libffi/lib/pkgconfig stack build

128−```

128+```

129+

130+## Issue with GHC on Ubuntu/Fedora

131+

132+There is an upstream issue with GHC on some Ubuntu and Fedora machines.

133+The issue is that for GHC versions greater than 8.4.X linking to libFFI uses the version of libFFI shipped with GHC, instead of the system version.

134+

135+See the following GHC issue page for more information:

136+

137+ <https://gitlab.haskell.org/ghc/ghc/issues/15397>

138+

139+This means that an Idris built with `libFFI` support will fail at runtime as the executable would not be able to find the correct `libffi` shared object.

140+This will cause the build to fail.

141+Specifically, one will see an error message along the lines of:

142+

143+> error while loading shared libraries: libffi.so.7: cannot open shared object file: No such file or directory

144+

145+A workround for this bug is to override the used libffi version (this is what we use on CI):

146+

147+```bash

148+export LD_PRELOAD=/opt/ghc/${GHCVER}/lib/ghc-${GHCVER}/rts/libffi.so.7

149+```

150+

151+## GHC 8.6

152+

153+For reasons that haven't been investigated building the Idris compiler with GHC 8.6 leads to a compiler which doesn't pass test.

Makefile+10−10

@@ -15,14 +15,14 @@ endif

15endif

16

17install:

18− $(CABAL) install $(CABALFLAGS)

18+ $(CABAL) v1-install $(CABALFLAGS)

19

20pinstall: CABALFLAGS += --enable-executable-profiling

21pinstall: dist/setup-config

22− $(CABAL) install $(CABALFLAGS)

22+ $(CABAL) v1-install $(CABALFLAGS)

23

24build: dist/setup-config

25− $(CABAL) build $(CABALFLAGS)

25+ $(CABAL) v1-build $(CABALFLAGS)

26

27test: doc test_c stylize

28

@@ -30,15 +30,15 @@ stylize:

30 ./stylize.sh

31

32test_c:

33− $(CABAL) test $(ARGS) --test-options \

33+ $(CABAL) v1-test $(ARGS) --test-options \

34 "$(TEST-ARGS) --rerun-update +RTS -N$(TEST-JOBS) -RTS"

35

36test_js:

37− $(CABAL) test $(ARGS) --test-options \

37+ $(CABAL) v1-test $(ARGS) --test-options \

38 "$(TEST-ARGS) --node --rerun-update +RTS -N$(TEST-JOBS) -RTS"

39

40test_update:

41− $(CABAL) test $(ARGS) --test-options \

41+ $(CABAL) v1-test $(ARGS) --test-options \

42 "$(TEST-ARGS) --accept +RTS -N$(TEST-JOBS) -RTS"

43

44test_clean:

@@ -49,14 +49,14 @@ lib_clean:

49 $(MAKE) -C libs IDRIS=../../dist/build/idris/idris RTS=../../dist/build/rts/libidris_rts clean

50

51relib: lib_clean

52− $(CABAL) install $(CABALFLAGS)

52+ $(CABAL) v1-install $(CABALFLAGS)

53

54linecount:

55 wc -l src/Idris/*.hs src/Idris/Elab/*.hs src/Idris/Core/*.hs src/IRTS/*.hs src/Pkg/*.hs src/Util/*.hs

56

57#Note: this doesn't yet link to Hackage properly

58doc: dist/setup-config

59− $(CABAL) haddock --hyperlink-source --html --hoogle --html-location="http://hackage.haskell.org/packages/archive/\$$pkg/latest/doc/html" --haddock-options="--title Idris"

59+ $(CABAL) v1-haddock --hyperlink-source --html --hoogle --html-location="https://hackage.haskell.org/packages/archive/\$$pkg/latest/doc/html" --haddock-options="--title Idris"

60

61lib_doc:

62 $(MAKE) -C libs IDRIS=../../dist/build/idris/idris doc

@@ -76,7 +76,7 @@ user_doc_pdf:

76 $(MAKE) -C docs latexpdf

77

78fast:

79− $(CABAL) install $(CABALFLAGS) --ghc-option=-O0

79+ $(CABAL) v1-install $(CABALFLAGS) --ghc-option=-O0

80

81dist/setup-config:

82− $(CABAL) configure $(CABALFLAGS)

82+ $(CABAL) v1-configure $(CABALFLAGS)

README.md+7−4

@@ -4,11 +4,11 @@

4[![Appveyor build](https://ci.appveyor.com/api/projects/status/xi8yu81oy1134g7o/branch/master?svg=true)](https://ci.appveyor.com/project/idrislang/idris-dev)

5[![Documentation Status](https://readthedocs.org/projects/idris/badge/?version=latest)](https://readthedocs.org/projects/idris/?badge=latest)

6[![Hackage](https://img.shields.io/hackage/v/idris.svg)](https://hackage.haskell.org/package/idris)

7−[![Stackage LTS](http://stackage.org/package/idris/badge/lts)](http://stackage.org/lts/package/idris)

7+[![Stackage LTS](https://stackage.org/package/idris/badge/lts)](https://stackage.org/lts/package/idris)

8−[![Stackage Nightly](http://stackage.org/package/idris/badge/nightly)](http://stackage.org/nightly/package/idris)

8+[![Stackage Nightly](https://stackage.org/package/idris/badge/nightly)](https://stackage.org/nightly/package/idris)

9[![IRC](https://img.shields.io/badge/IRC-%23idris-1e72ff.svg?style=flat)](https://www.irccloud.com/invite?channel=%23idris&hostname=irc.freenode.net&port=6697&ssl=1)

10

11−Idris (http://idris-lang.org/) is a general-purpose functional programming

11+Idris (https://idris-lang.org/) is a general-purpose functional programming

12language with dependent types.

13

14## Installation Guides.

@@ -28,7 +28,7 @@ Idris has support for external code generators. Supplied with the distribution

28is a C code generator to compile executables, and a JavaScript code generator

29with support for node.js and browser JavaScript.

30

31−More information about [code generators can be found on the wiki](http://idris.readthedocs.io/en/latest/reference/codegen.html).

31+More information about [code generators can be found on the wiki](https://idris.readthedocs.io/en/latest/reference/codegen.html).

32

33## More Information

34

@@ -44,3 +44,6 @@ where some interesting projects are being hosted.

44

45For those interested in contributing to Idris directly we kindly ask that

46prospective developers please consult the [Contributing Guide](CONTRIBUTING.md) first.

47+

48+[Idris 2](https://github.com/edwinb/Idris2) is an early preview of the next generation

49+of Idris, implemented in Idris.

Setup.hs−33

@@ -215,36 +215,6 @@ idrisConfigure _ flags pkgdesc local = do

215 autogenComponentModulesDir lbi _ = autogenModulesDir lbi

216#endif

217

218−idrisPreSDist args flags = do

219− let dir = S.fromFlag (S.sDistDirectory flags)

220− let verb = S.fromFlag (S.sDistVerbosity flags)

221− generateVersionModule verb "src" True

222− generateBuildFlagsModule verb "src" []

223− generateTargetModule verb "src" "./libs"

224− generateToolchainModule verb "src" Nothing

225− preSDist simpleUserHooks args flags

226−

227−idrisSDist sdist pkgDesc bi hooks flags = do

228− pkgDesc' <- addGitFiles pkgDesc

229− sdist pkgDesc' bi hooks flags

230− where

231− addGitFiles :: PackageDescription -> IO PackageDescription

232− addGitFiles pkgDesc = do

233− files <- gitFiles

234− return $ pkgDesc { extraSrcFiles = extraSrcFiles pkgDesc ++ files}

235− gitFiles :: IO [FilePath]

236− gitFiles = liftM lines (readProcess "git" ["ls-files"] "")

237−

238−idrisPostSDist args flags desc lbi = do

239− Control.Exception.catch (do let file = "src" </> "Version_idris" Px.<.> "hs"

240− let targetFile = "src" </> "Target_idris" Px.<.> "hs"

241− putStrLn $ "Removing generated modules:\n "

242− ++ file ++ "\n" ++ targetFile

243− removeFile file

244− removeFile targetFile)

245− (\e -> let e' = (e :: SomeException) in return ())

246− postSDist simpleUserHooks args flags desc lbi

247−

248#if !(MIN_VERSION_Cabal(2,0,0))

218#if !(MIN_VERSION_Cabal(2,0,0))

249rewriteFileEx :: Verbosity -> FilePath -> String -> IO ()

219rewriteFileEx :: Verbosity -> FilePath -> String -> IO ()

250rewriteFileEx _ = rewriteFile

220rewriteFileEx _ = rewriteFile

@@ -353,8 +323,5 @@ main = defaultMainWithHooks $ simpleUserHooks

353 , postInst = \_ flags pkg local ->

323 , postInst = \_ flags pkg local ->

354 idrisInstall (S.fromFlag $ S.installVerbosity flags)

324 idrisInstall (S.fromFlag $ S.installVerbosity flags)

355 NoCopyDest pkg local

325 NoCopyDest pkg local

356− , preSDist = idrisPreSDist

357− , sDistHook = idrisSDist (sDistHook simpleUserHooks)

358− , postSDist = idrisPostSDist

359 , testHook = idrisTestHook

326 , testHook = idrisTestHook

360 }

327 }

appveyor.yml+4−4

@@ -5,15 +5,15 @@ init:

5

6 mkdir C:\ghc

7

8− Invoke-WebRequest "http://downloads.haskell.org/~ghc/8.2.1/ghc-8.2.1-x86_64-unknown-mingw32.tar.xz" -OutFile C:\ghc\ghc.tar.xz -UserAgent "Curl"

8+ Invoke-WebRequest "https://downloads.haskell.org/~ghc/8.8.2/ghc-8.8.2-x86_64-unknown-mingw32.tar.xz" -OutFile C:\ghc\ghc.tar.xz -UserAgent "Curl"

9

10 7z x C:\ghc\ghc.tar.xz -oC:\ghc

11

12 7z x C:\ghc\ghc.tar -oC:\ghc

13

14− $env:PATH="$env:PATH;c:\ghc\ghc-8.2.1\bin;$HOME\AppData\Roaming\cabal\bin"

14+ $env:PATH="$env:PATH;c:\ghc\ghc-8.8.2\bin;$HOME\AppData\Roaming\cabal\bin"

15

16− cabal update

16+ cabal v1-update

17

18 $env:current_posix=c:\msys64\usr\bin\cygpath -u $(pwd)

19

@@ -22,6 +22,6 @@ environment:

22 MSYS2_PATH_TYPE: inherit

23build_script:

24- ps: >-

25− c:\msys64\usr\bin\bash -l -c "cd $env:current_posix && cabal install -fffi --enable-tests 2>&1"

25+ c:\msys64\usr\bin\bash -l -c "cd $env:current_posix && cabal v1-install -fffi --enable-tests 2>&1"

26test_script:

27- ps: c:\msys64\usr\bin\bash -l -c "cd $env:current_posix && make test_c 2>&1"

azure-pipelines.yml+1−1

@@ -68,7 +68,7 @@ jobs:

68 choco install 7zip.portable -y --no-progress

69 choco install msys2 -y --no-progress --params "/InstallDir=C:/msys64/"

70 mkdir C:\ghc

71− Invoke-WebRequest "http://downloads.haskell.org/~ghc/8.4.3/ghc-8.4.3-x86_64-unknown-mingw32.tar.xz" -OutFile C:\ghc\ghc.tar.xz -UserAgent "Curl"

71+ Invoke-WebRequest "https://downloads.haskell.org/~ghc/8.4.3/ghc-8.4.3-x86_64-unknown-mingw32.tar.xz" -OutFile C:\ghc\ghc.tar.xz -UserAgent "Curl"

72 7z x C:\ghc\ghc.tar.xz -oC:\ghc

73 7z x C:\ghc\ghc.tar -oC:\ghc

74 displayName: "Setting up environment"

benchmarks/pidigits/pidigits.idr+1−1

@@ -3,7 +3,7 @@ import Data.Vect

3

4{- Toy program that outputs the n first digits of Pi.

5

6− Inspired from http://www.haskell.org/haskellwiki/Shootout/Pidigits.

6+ Inspired from https://www.haskell.org/haskellwiki/Shootout/Pidigits.

7 The original ns and str lazy lists have been replaced by strict functions.

8

9 Memory usage seems to be excessive. One of the branches of str is tail recursive, and

docs/LICENSE+1−1

@@ -7,4 +7,4 @@ rights to Documentation for Idris.

7

8More information concerning the CC0 can be found online at:

9

10− http://creativecommons.org/publicdomain/zero/1.0/

10+ https://creativecommons.org/publicdomain/zero/1.0/

docs/Makefile+1−1

@@ -9,7 +9,7 @@ BUILDDIR = _build

9

10# User-friendly check for sphinx-build

11ifeq ($(shell which $(SPHINXBUILD) >/dev/null 2>&1; echo $$?), 1)

12−$(error The '$(SPHINXBUILD)' command was not found. Make sure you have Sphinx installed, then set the SPHINXBUILD environment variable to point to the full path of the '$(SPHINXBUILD)' executable. Alternatively you can add the directory with the executable to your PATH. If you don't have Sphinx installed, grab it from http://sphinx-doc.org/)

12+$(error The '$(SPHINXBUILD)' command was not found. Make sure you have Sphinx installed, then set the SPHINXBUILD environment variable to point to the full path of the '$(SPHINXBUILD)' executable. Alternatively you can add the directory with the executable to your PATH. If you don't have Sphinx installed, grab it from https://www.sphinx-doc.org/)

13endif

14

15# Internal variables.

docs/README.md+3−3

@@ -1,7 +1,7 @@

1# Documentation for the Idris Language.

2

3

4−This manual has been prepared using ReStructured Text and the [Sphinx Documentation Generator](http://sphinx-doc.org) for future inclusion on [Read The Docs](http://www.readthedocs.org).

4+This manual has been prepared using ReStructured Text and the [Sphinx Documentation Generator](https://www.sphinx-doc.org) for future inclusion on [Read The Docs](https://www.readthedocs.org).

5

6## Dependencies

7

@@ -12,7 +12,7 @@ To build the manual the following dependencies must be met. We assume that you h

12Python should be installed by default on most systems.

13Sphinx can be installed either through your hosts package manager or using pip/easy_install.

14

15−*Note* [ReadTheDocs](http://www.readthedocs.org) works with Sphinx

15+*Note* [ReadTheDocs](https://www.readthedocs.org) works with Sphinx

16 `v1.2.2`. If you install a more recent version of sphinx then

17 'incorrectly' marked up documentation may get passed the build system

18 of readthedocs and be ignored. In the past we had several code-blocks

@@ -45,7 +45,7 @@ rights to Documentation for Idris.

45

46More information concerning the CC0 can be found online at:

47

48− http://creativecommons.org/publicdomain/zero/1.0/

48+ https://creativecommons.org/publicdomain/zero/1.0/

49

50

51When contributing material to the manual please bear in mind that the work will be licensed as above.

docs/_static/theme_overrides.cssnew file+13

@@ -0,0 +1,13 @@

1+/* override table width restrictions */

2+@media screen and (min-width: 767px) {

3+

4+ .wy-table-responsive table td {

5+ /* !important prevents the common CSS stylesheets from overriding

6+ this as on RTD they are loaded after this stylesheet */

7+ white-space: normal !important;

8+ }

9+

10+ .wy-table-responsive {

11+ overflow: visible !important;

12+ }

13+}

docs/conf.py+11−4

@@ -33,7 +33,7 @@ on_rtd = os.environ.get('READTHEDOCS', None) == 'True'

33# ones.

34extensions = [

35 'sphinx.ext.todo',

36− 'sphinx.ext.pngmath', # imgmath is not supported on readthedocs.

36+# 'sphinx.ext.pngmath', # imgmath is not supported on readthedocs.

37 'sphinx.ext.ifconfig',

38]

39

@@ -51,7 +51,7 @@ master_doc = 'index'

51

52# General information about the project.

53project = u'Idris'

54−copyright = u'2017, The Idris Community'

54+copyright = u'2017-2020, The Idris Community'

55author = u'The Idris Community'

56

57# The version info for the project you're documenting, acts as replacement for

@@ -61,7 +61,7 @@ author = u'The Idris Community'

61# The short X.Y version.

62version = '1.3'

63# The full version, including alpha/beta/rc tags.

64−release = '1.3.0'

64+release = '1.3.2'

65

66# The language for content autogenerated by Sphinx. Refer to documentation

67# for a list of supported languages.

@@ -151,6 +151,12 @@ if not on_rtd: # only import and set the theme if we're building docs locally

151# so a file named "default.css" will overwrite the builtin "default.css".

152html_static_path = ['_static']

153

154+html_context = {

155+ 'css_files': [

156+ '_static/theme_overrides.css', # override wide tables in RTD theme

157+ ],

158+ }

159+

154# Add any extra paths that contain custom files (such as robots.txt or

160# Add any extra paths that contain custom files (such as robots.txt or

155# .htaccess) here, relative to this directory. These files are copied

161# .htaccess) here, relative to this directory. These files are copied

156# directly to the root of the documentation.

162# directly to the root of the documentation.

@@ -245,6 +251,7 @@ latex_elements = {

245# Additional stuff for the LaTeX preamble.

251# Additional stuff for the LaTeX preamble.

246'preamble': r'''

252'preamble': r'''

247\usepackage{lmodern}

253\usepackage{lmodern}

254+\usepackage{textalpha}

248\usepackage[T1]{fontenc}

255\usepackage[T1]{fontenc}

249\usepackage[utf8x]{inputenc}

256\usepackage[utf8x]{inputenc}

250\usepackage{titlesec}

257\usepackage{titlesec}

@@ -294,7 +301,7 @@ latex_elements = {

294# (source start file, target name, title,

301# (source start file, target name, title,

295# author, documentclass [howto, manual, or own class]).

302# author, documentclass [howto, manual, or own class]).

296latex_documents = [

303latex_documents = [

297− ('index', 'idris-documentation-complete.tex', u'Documentation for the Idris Language', u'The Idris Community', 'report'),

304+ # (master_doc, 'idris.tex', u'Documentation for the Idris Language', u'The Idris Community', 'report')

298 ('tutorial/index', 'idris-tutorial.tex', u'The Idris Tutorial', u'The Idris Community', 'howto'),

305 ('tutorial/index', 'idris-tutorial.tex', u'The Idris Tutorial', u'The Idris Community', 'howto'),

299]

306]

300

307

docs/effects/conclusions.rst+1−1

@@ -51,7 +51,7 @@ foundations are also well-studied see [5]_, [6]_, [7]_, [8]_.

51 Programming Languages and Systems (APLAS '09), Zhenjiang Hu

52 (Ed.). Springer-Verlag, Berlin, Heidelberg,

53 95-110. DOI=10.1007/978-3-642-10672-9_9

54− http://link.springer.com/chapter/10.1007%2F978-3-642-10672-9_9

54+ https://link.springer.com/chapter/10.1007%2F978-3-642-10672-9_9

55

56

57.. [4] Ohad Kammar, Sam Lindley, and Nicolas Oury. 2013. Handlers in

docs/effects/depeff.rst+18−9

@@ -43,8 +43,8 @@ express this as follows:

43

44.. code-block:: idris

45

46− readInt : Eff ()[STATE (Vect n Int), STDIO]

46+ readInt : Eff () [STATE (Vect n Int), STDIO]

47− [STATE (Vect (S n) Int), STDIO]

47+ [STATE (Vect (S n) Int), STDIO]

48 readInt = do let x = trim !getStr

49 putM (cast x :: !get)

50

@@ -153,12 +153,21 @@ file management follows a resource usage protocol with the following

153

154- When a file is closed, its handle should no longer be used

155

156−These requirements can be expressed formally in , by creating a

156+These requirements can be expressed formally by creating a

157``FILE_IO`` effect parameterised over a file handle state, which is

158either empty, open for reading, or open for writing. The ``FILE_IO``

159−effect’s definition is given below. Note that this

159+effect’s definition is given below.

160+

161+.. note::

160−effect is mainly for illustrative purposes—typically we would also like

162+ This effect is mainly for illustrative purposes.

163+ Typically we would also like to support random access files and

161−to support random access files and better reporting of error conditions.

164+ better reporting of error conditions.

165+

166+ Moreover, the ``FILE`` effect in the ``Effect.File`` module of

167+ the ``effects`` library uses slightly more complicated types to

168+ support erroneous behaviour of each function and to support more

169+ compilcated modes of opening, like for reading **and** writing,

170+ appending or truncating.

162

171

163.. code-block:: idris

172.. code-block:: idris

164

173

@@ -173,7 +182,7 @@ to support random access files and better reporting of error conditions.

173

182

174 open : (fname : String)

183 open : (fname : String)

175 -> (m : Mode)

184 -> (m : Mode)

176− -> Eff Bool [FILE_IO ()]

185+ -> Eff Bool [FILE_IO ()]

177 (\res => [FILE_IO (case res of

186 (\res => [FILE_IO (case res of

178 True => OpenFile m

187 True => OpenFile m

179 False => ())])

188 False => ())])

@@ -191,7 +200,7 @@ In particular, consider the type of ``open``:

191

200

192 open : (fname : String)

201 open : (fname : String)

193 -> (m : Mode)

202 -> (m : Mode)

194− -> Eff Bool [FILE_IO ()]

203+ -> Eff Bool [FILE_IO ()]

195 (\res => [FILE_IO (case res of

204 (\res => [FILE_IO (case res of

196 True => OpenFile m

205 True => OpenFile m

197 False => ())])

206 False => ())])

@@ -207,7 +216,7 @@ we continue the protocol accordingly.

207

216

208 readFile : Eff (List String) [FILE_IO (OpenFile Read)]

217 readFile : Eff (List String) [FILE_IO (OpenFile Read)]

209 readFile = readAcc [] where

218 readFile = readAcc [] where

210− readAcc : List String -> Eff (List String) [FILE_IO (OpenFile Read)]

219+ readAcc : List String -> Eff (List String) [FILE_IO (OpenFile Read)]

211 readAcc acc = if (not !eof)

220 readAcc acc = if (not !eof)

212 then readAcc (!readLine :: acc)

221 then readAcc (!readLine :: acc)

213 else pure (reverse acc)

222 else pure (reverse acc)

docs/effects/impleff.rst+1−1

@@ -144,7 +144,7 @@ functions in ``Eff``, as follows:

144

145**An implementation detail (aside):** The ``call`` function converts

146an ``Effect`` to a function in ``Eff``, given a proof that the effect

147−is available. This proof can be constructed automatically by , since

147+is available. This proof can be constructed automatically, since

148it is essentially an index into a statically known list of effects:

149

150.. code-block:: idris

docs/effects/index.rst+1−1

@@ -25,7 +25,7 @@ A tutorial on the `Effects` package in `Idris`.

25 Idris Community* has waived all copyright and related or neighbouring

26 rights to Documentation for Idris.

27

28− More information concerning the CC0 can be found online at: http://creativecommons.org/publicdomain/zero/1.0/

28+ More information concerning the CC0 can be found online at: https://creativecommons.org/publicdomain/zero/1.0/

29

30.. toctree::

31 :maxdepth: 1

docs/effects/introduction.rst+3−2

@@ -3,7 +3,7 @@ Introduction

3************

4

5Pure functional languages with dependent types such as `Idris

6−<http://www.idris-lang.org/>`_ support reasoning about programs directly

6+<https://www.idris-lang.org/>`_ support reasoning about programs directly

7in the type system, promising that we can *know* a program will run

8correctly (i.e. according to the specification in its type) simply

9because it compiles. Realistically, though, things are not so simple:

@@ -17,7 +17,8 @@ exceptions, and verified resource management.

17This tutorial assumes familiarity with pure programming in Idris,

18as described in Sections 1–6 of the main tutorial [1]_. The examples

19presented are tested with Idris and can be found in the

20−examples directory of the Idris repository.

20+examples directory of the Idris repository. The ``-p effects`` flag

21+is needed when starting Idris.

21

22

22Consider, for example, the following introductory function which

23Consider, for example, the following introductory function which

23illustrates the kind of properties which can be expressed in the type

24illustrates the kind of properties which can be expressed in the type

docs/effects/simpleeff.rst+2−1

@@ -212,7 +212,8 @@ from the result of a dynamic check:

212

213.. code-block:: idris

214

215− data So : Bool -> Type = Oh : So True

215+ data So : Bool -> Type where

216+ Oh : So True

216

217

217 choose : (b : Bool) -> Either (So b) (So (not b))

218 choose : (b : Bool) -> Either (So b) (So (not b))

218

219

docs/effects/summary.rst+23−23

@@ -43,16 +43,16 @@ FILE\_IO

43 data OpenFile : Mode -> Type

44

45 open : (fname : String)

46− -> (m : Mode)

46+ -> (m : Mode)

47− -> Eff Bool [FILE_IO ()]

47+ -> Eff Bool [FILE_IO ()]

48− (\res => [FILE_IO (case res of

48+ (\res => [FILE_IO (case res of

49− True => OpenFile m

49+ True => OpenFile m

50− False => ())])

50+ False => ())])

51 close : Eff () [FILE_IO (OpenFile m)] [FILE_IO ()]

52

53− readLine : Eff String [FILE_IO (OpenFile Read)]

53+ readLine : Eff String [FILE_IO (OpenFile Read)]

54 writeLine : String -> Eff () [FILE_IO (OpenFile Write)]

55− eof : Eff Bool [FILE_IO (OpenFile Read)]

55+ eof : Eff Bool [FILE_IO (OpenFile Read)]

56

57 Handler FileIO IO where { ... }

58

@@ -69,9 +69,9 @@ RND

69

70 RND : EFFECT

71

72− srand : Integer -> Eff m () [RND]

72+ srand : Integer -> Eff () [RND]

73− rndInt : Integer -> Integer -> Eff m Integer [RND]

73+ rndInt : Integer -> Integer -> Eff Integer [RND]

74− rndFin : (k : Nat) -> Eff m (Fin (S k)) [RND]

74+ rndFin : (k : Nat) -> Eff (Fin (S k)) [RND]

75

76 Handler Random m where { ... }

77

@@ -86,7 +86,7 @@ SELECT

86

87 SELECT : EFFECT

88

89− select : List a -> Eff m a [SELECT]

89+ select : List a -> Eff a [SELECT]

90

91 Handler Selection Maybe where { ... }

92 Handler Selection List where { ... }

@@ -102,10 +102,10 @@ STATE

102

103 STATE : Type -> EFFECT

104

105− get : Eff m x [STATE x]

105+ get : Eff x [STATE x]

106− put : x -> Eff m () [STATE x]

106+ put : x -> Eff () [STATE x]

107− putM : y -> Eff m () [STATE x] [STATE y]

107+ putM : y -> Eff () [STATE x] [STATE y]

108− update : (x -> x) -> Eff m () [STATE x]

108+ update : (x -> x) -> Eff () [STATE x]

109

110 Handler State m where { ... }

111

@@ -121,12 +121,12 @@ STDIO

121

122 STDIO : EFFECT

123

124− putChar : Handler StdIO m => Char -> Eff m () [STDIO]

124+ putChar : Char -> Eff () [STDIO]

125− putStr : Handler StdIO m => String -> Eff m () [STDIO]

125+ putStr : String -> Eff () [STDIO]

126− putStrLn : Handler StdIO m => String -> Eff m () [STDIO]

126+ putStrLn : String -> Eff () [STDIO]

127

128− getStr : Handler StdIO m => Eff m String [STDIO]

128+ getStr : Eff String [STDIO]

129− getChar : Handler StdIO m => Eff m Char [STDIO]

129+ getChar : Eff Char [STDIO]

130

131 Handler StdIO IO where { ... }

132 Handler StdIO (IOExcept a) where { ... }

@@ -144,9 +144,9 @@ SYSTEM

144

145 SYSTEM : EFFECT

146

147− getArgs : Handler System e => Eff e (List String) [SYSTEM]

147+ getArgs : Eff (List String) [SYSTEM]

148− time : Handler System e => Eff e Int [SYSTEM]

148+ time : Eff Int [SYSTEM]

149− getEnv : Handler System e => String -> Eff e (Maybe String) [SYSTEM]

149+ getEnv : String -> Eff (Maybe String) [SYSTEM]

150

151 Handler System IO where { ... }

152 Handler System (IOExcept a) where { ... }

docs/elaboratorReflection/elabReflection.rstnew file+60

@@ -0,0 +1,60 @@

1+Extending Idris using Elaborator Reflection

2+===========================================

3+

4+Idris provides a mechanism to modify the language without having to recompile Idris itself. We can think of this in terms of metaprogramming or domain specific languages or just building in new capabilities.

5+

6+In order to extend the language we need to know something about how Idris is compiled. This page explains only what is needed to customise the elaboration. For more information about the compiler's implementation see `Edwin Brady's 2013 paper`_ and for customising the elaboration process see `Elaborator reflection: extending Idris in Idris`_ and `David Christiansen's PhD thesis`_.

7+

8+Compilation of Idris proceeds through a number of stages.

9+

10+- First, Idris is desugared by inserting placeholders for terms to be guessed by the compiler and replacing certain syntactic forms, such as do-notation, with the functions that implement them.

11+- Then, this desugared Idris is translated into a much simpler core language, called TT. This translation process is called elaboration.

12+- Finally, TT is type checked a second time to rule out errors, and then compiled into the target language.

13+

14+.. image:: ../image/idrisTopLevel.png

15+ :width: 484px

16+ :height: 147px

17+ :alt: diagram illustrating these stages of Idris compilation

18+

19+TT is a core language which is syntactically very simple. This makes it easy for computers to process but very verbose and hard for humans to read. The Idris elaborator is written in Haskell using an elaboration library that was inspired by the tactics in interactive proof assistants such as Coq.

20+

21+.. list-table::

22+

23+ * - There are some similarities with a proof assistant but in Idris the elaborator is an interpreter of Idris source in the elaboration monad, where each syntactic construct of Idris is interpreted as a sequence of tactics.

24+ - .. image:: ../image/compareToProofAssist.png

25+ :width: 206px

26+ :height: 112px

27+ :alt: diagram comparing elaboration with proof assistant

28+

29+The primitives in the elaboration library are not just useful for the implementors of Idris itself. They can also be used by authors of extensions to the compiler, using a mechanism known as elaborator reflection.

30+During elaboration TT (Raw) structure contains:

31+

32+- holes - placeholders for terms that have not yet been filled in.

33+- guesses - similar to let bindings, except with no reduction rule, so that elaboration programs can control the precise shape of terms that are under construction.

34+

35+For more information about holes and guesses see `Dependently Typed Functional Programs and their Proofs by McBride 1999`_.

36+

37+The following diagram is intended to illustrate a high level view of the tactics and how this eventually results in the TT language being generated. It is not necessary to understand the details at this stage. The intention is to help build up some intuition so that, when we get into the details, we can recognise how this fits into the big picture.

38+

39+.. image:: ../image/elabOverview.png

40+ :width: 410px

41+ :height: 282px

42+ :alt: diagram illustrating overview of TT language being generated from tactics.

43+

44+As already mentioned the TT core language is kept syntactically very simple, for instance, here are the binders in TT with corresponding code and logic type validity rules:

45+

46+.. list-table::

47+

48+ * - This diagram illustrates the basis of the compilation process in logic (in this case for binders). It is not necessary to be an expert logician to understand elaborator reflection. However, when learning about tactics, they may appear arbitrary without knowing some theory. For more information about this see `Edwin Brady's 2013 paper`_.

49+ - .. image:: ../image/binders.png

50+ :width: 310px

51+ :height: 203px

52+ :alt: diagram illustrating basis of code in logic

53+

54+.. target-notes::

55+.. _`Edwin Brady's 2013 paper`: https://eb.host.cs.st-andrews.ac.uk/drafts/impldtp.pdf

56+.. _`Elaborator reflection: extending Idris in Idris`: https://dl.acm.org/citation.cfm?doid=2951913.2951932

57+.. _`David Christiansen's PhD thesis`: https://davidchristiansen.dk/david-christiansen-phd.pdf

58+.. _`Dependently Typed Functional Programs and their Proofs by McBride 1999`: https://www.era.lib.ed.ac.uk/handle/1842/374

59+

60+

docs/reference/elaborator-reflection.rst → docs/elaboratorReflection/elaborator-reflection.rstrenamed+11−5

@@ -1,8 +1,8 @@

1.. _elaborator-reflection:

2

3−*********************

3+**********************************

4−Elaborator Reflection

4+Elaborator Reflection Introduction

5−*********************

5+**********************************

6

7The Idris elaborator is responsible for converting high-level Idris code into the core language.

8It is implemented as a kind of embedded tactic language in Haskell, where tactic scripts are written in an *elaboration monad* that provides error handling and a proof state.

@@ -198,6 +198,12 @@ This is primarily useful for code generation, particularly for generating patter

198

199Learn More

200==========

201−While this documentation is still incomplete, elaboration reflection works in Idris today.

201+

202+Some tactics are introduced in the :ref:`proofs-index` section with further details, of those most relevant to elaborator reflection, on the following pages.

203+

202−As you wait for the completion of the documentation, the list of built-in tactics can be obtained using the ``:browse`` command in an Idris REPL or the corresponding feature in one of the graphical IDE clients to explore the ``Language.Reflection.Elab.Tactics`` namespace.

204+The list of built-in tactics can be obtained using the ``:browse`` command in an Idris REPL or the corresponding feature in one of the graphical IDE clients to explore the ``Language.Reflection.Elab.Tactics`` namespace.

203All of the built-in tactics contain documentation strings.

205All of the built-in tactics contain documentation strings.

206+

207+For alternative ways to extend the Idris language see the :ref:`reference-index` section.

208+

209+The following pages explain more about the theory and practice of elaborator reflection.

docs/elaboratorReflection/example1.rstnew file+192

@@ -0,0 +1,192 @@

1+Elaborator Reflection - Identity Example

2+========================================

3+

4+.. list-table::

5+

6+ * - This example of elaborator reflection steps through this metaprogram that generates the identity function:

7+ - .. code-block:: idris

8+

9+ %language ElabReflection

10+

11+ idNat : Nat -> Nat

12+ idNat = %runElab (do intro `{{x}}

13+ fill (Var `{{x}})

14+ solve)

15+

16+.. list-table::

17+ :widths: 200 100

18+

19+ * - At the beginning of executing the elaboration script, the initial state consists of a single hole of type Nat -> Nat.

20+

21+ As a first approximation, the state consists of a term with holes in it, an indicator of which hole is focused, a queue of the next holes to focus on, and miscellaneous information like a source of fresh names. The intro tactic modifies this state, replacing the focused hole with a lambda and focusing on the lambda's body.

22+ - .. image:: ../image/tree.png

23+ :width: 119px

24+ :height: 109px

25+

26+The following is a walkthough looking at the state after each tactic:

27+

28+.. list-table::

29+

30+ * - Start with the type signature like this:

31+ - .. code-block:: idris

32+

33+ %language ElabReflection

34+

35+ idNat : Nat -> Nat

36+ idNat = %runElab (do

37+

38+ * - In order to investigate how the program works this table shows the proof state at each stage as the tactics are applied. So here is the proof state at the start:

39+ - .. image:: ../image/elabProofStateEx1_1.png

40+ :width: 310px

41+ :height: 115px

42+

43+ * - This table shows the hole types and what they depend on. The aim is to illustrate the types by analogy with proofs, as a line with the premises above it and the conclusion below it.

44+ - .. image:: ../image/elabLogicEx1_1.png

45+ :width: 277px

46+ :height: 15px

47+

48+ * - The term is:

49+ - ?{hole_0} ≈ ? {hole_2} . {hole_2} . {hole_0}

50+

51+ * - It is possible to read the state from the script by calling getEnv, getGoal and getHoles.

52+

53+ - The output of these calls contain structures with TT code. To show the results I hacked this: `my code`_. TT code is not really designed to be readable by humans, all the names are fully expanded, everything has a type down to universes (type of types). This is shown here to illustrate the information available.

54+

55+ .. code-block:: idris

56+

57+ getEnv=[]

58+

59+ getGoal=(hole_2, __pi_arg:(Nat.["Nat", "Prelude"]:{

60+ type constructor tag=8 number=0}.Type:U=(20:./Prelude/Nat.idr)->.

61+ {name ref{type constructor tag=8 number=0}Nat.["Nat","Prelude"]:

62+ Type:U=(20:./Prelude/Nat.idr)

63+ })

64+ })

65+

66+ getHoles=[{hole_2},{hole_0}]

67+

68+ * - getGuess

69+ - error no guess

70+

71+ * - Introduce a lambda binding around the current hole and focus on the body.

72+ - intro \`{{x}}

73+

74+ * - The state now looks like this:

75+ - .. image:: ../image/elabProofStateEx1_2.png

76+ :width: 312px

77+ :height: 84px

78+

79+ * - The hole types now looks like this:

80+ - .. image:: ../image/elabLogicEx1_2.png

81+ :width: 279px

82+ :height: 26px

83+

84+ * - The term now looks like this:

85+ - ?{hole_0} ≈ λ x . ? {hole_2} . {hole_2} . {hole_0}

86+

87+ * - Again we can check the state by calling getEnv, getGoal and getHoles: see `my code`_

88+

89+ - .. code-block:: idris

90+

91+ getEnv=[(x, {λ (Nat.["Nat", "Prelude"]:{

92+ type constructor tag=8 number=0}).

93+ Type:U=(20:./Prelude/Nat.idr)

94+ })]

95+

96+ getGoal=(hole_2, {name ref{type constructor tag=8 number=0}

97+ Nat.["Nat","Prelude"]:Type:U=(20:./Prelude/Nat.idr)

98+ })

99+

100+ getHoles=[{hole_2},{hole_0}]

101+

102+ * - getGuess

103+ - error no guess

104+

105+ * - Place a term into a hole, unifying its type

106+ - fill (Var \`{{x}})

107+

108+ * - The state still looks like this:

109+ - .. image:: ../image/elabProofStateEx1_3.png

110+ :width: 312px

111+ :height: 57px

112+

113+ * - The hole types now looks like this:

114+ - .. image:: ../image/elabLogicEx1_3.png

115+ :width: 290px

116+ :height: 26px

117+

118+ * - The term now looks like this:

119+ - ?{hole_0} ≈ λ x . ?{hole_2} ≈ x . {hole_2} . {hole_0}

120+

121+ * - Again we can check the state by calling getEnv, getGoal and getHoles: see `my code`_

122+

123+ - .. code-block:: idris

124+

125+ getEnv=[(x, {λ (Nat.["Nat", "Prelude"]:

126+ {type constructor tag=8 number=0}).

127+ Type:U=(20:./Prelude/Nat.idr)

128+ })]

129+

130+ getGoal=(hole_2, {name ref{type constructor tag=8 number=0}

131+ Nat.["Nat","Prelude"]:Type:U=(20:./Prelude/Nat.idr)

132+ })

133+

134+ getHoles=[{hole_2}, {hole_0}]

135+

136+ * - getGuess

137+ - .. code-block:: idris

138+

139+ {name ref bound x:

140+ {name ref{type constructor tag=8 number=0}

141+ Nat.["Nat","Prelude"]:Type:U=(20:./Prelude/Nat.idr)

142+ }

143+ }

144+

145+ * - Substitute a guess into a hole.

146+ - solve

147+

148+ * - The hole types now looks like this:

149+ - .. image:: ../image/elabLogicEx1_4.png

150+ :width: 131px

151+ :height: 14px

152+

153+ * - The term now looks like this:

154+ - ?{hole_0} ≈ λ x . x . {hole_0}

155+

156+ * - getEnv

157+

158+ getGoal

159+

160+ getHoles

161+

162+ - .. code-block:: idris

163+

164+ getEnv=[]

165+

166+ getGoal=(hole_0, __pi_arg:(Nat.["Nat", "Prelude"]:{

167+ type constructor tag=8 number=0}.

168+ Type:U=(20:./Prelude/Nat.idr)

169+ ->.{name ref

170+ {type constructor tag=8 number=0}

171+ Nat.["Nat","Prelude"]:Type:U=(20:./Prelude/Nat.idr)

172+ })

173+ })

174+

175+ getHoles=[{hole_0}]

176+

177+ * - getGuess

178+ - .. code-block:: idris

179+

180+ x:({λ (Nat.["Nat", "Prelude"]:{

181+ type constructor tag=8 number=0}).

182+ Type:U=(20:./Prelude/Nat.idr)

183+ }.{

184+ name ref bound

185+ x:{name ref {type constructor tag=8 number=0}

186+ Nat.["Nat","Prelude"]:Type:U=(20:./Prelude/Nat.idr)

187+ }

188+ })

189+ }

190+

191+.. target-notes::

192+.. _`my code`: https://github.com/martinbaker/Idris-dev/blob/uglyTTPrinter/libs/prelude/Language/Reflection/TTPrinter.idr

docs/elaboratorReflection/generatingData.rstnew file+385

@@ -0,0 +1,385 @@

1+Generating Datatypes and Functions at Compile Time

2+==================================================

3+

4+Program elements, such as datatypes and functions can be constructed at compile-time in the Elab monad.

5+This can allow proofs to be generated for user defined types or it could allow types to be automatically generated to support user defined types.

6+An example is the code, from `Elaborator reflection: extending Idris in Idris`_, that automatically generates accessibility predicates using the Bove-Capretta method.

7+

8+Generating Datatypes

9+--------------------

10+

11+There are two main 'tactics' associated with generating datatypes:

12+

13+- declareDatatype

14+- defineDatatype

15+

16+Which declare and define the datatype as the names suggest.

17+

18+.. list-table::

19+

20+ * - These 'tactics' and the data structures associated with them are listed in the tables later on this page, for now, here is a summary:

21+ - .. image:: ../image/generateDatatype.png

22+ :width: 332px

23+ :height: 246px

24+ :alt: diagram illustrating data structures associated with declareDatatype defineDatatype.

25+

26+.. list-table::

27+

28+ * - As a first example, the following boolean-like type can be constructed. When the compiler has run it will be available to us as if we had compiled it in the usual way:

29+ - .. code-block:: idris

30+

31+ λΠ> :printdef Two

32+ data Two : Type where

33+ F : Two

34+ T : Two

35+

36+This was generated by the following code:

37+

38+.. code-block:: idris

39+

40+ module TwoDef

41+ %language ElabReflection

42+

43+ addTwo : Elab ()

44+ addTwo = do let twoname : TTName = `{{TwoDef.Two}}

45+ let F2 = `{{TwoDef.F}}

46+ let T2 = `{{TwoDef.T}}

47+ declareDatatype $ Declare twoname [] `(Type)

48+ defineDatatype $ DefineDatatype twoname [

49+ Constructor `{{F}} [] (Var `{{TwoDef.Two}}),

50+ Constructor `{{T}} [] (Var `{{TwoDef.Two}})

51+ ]

52+

53+ %runElab addTwo

54+

55+.. list-table::

56+

57+ * - The constructors T and F can be called as would be expected:

58+ - .. code-block:: idris

59+

60+ λΠ> F

61+ F : Two

62+ λΠ> T

63+ T : Two

64+

65+Generating Functions

66+--------------------

67+

68+There are two main 'tactics' associated with generating functions:

69+

70+- declareType

71+- defineFunction

72+

73+Which declare and define the function as the names suggest.

74+

75+.. list-table::

76+

77+ * - These 'tactics' and the data structures associated with them are listed in the tables later on this page, for now, here is a summary:

78+ - .. image:: ../image/generateFunction.png

79+ :width: 332px

80+ :height: 246px

81+ :alt: diagram illustrating data structures associated with function declare and define.

82+

83+Note: The left hand side (lhs) and right hand side (rhs) of FunClause typically is of type 'Raw'.

84+

85+.. list-table::

86+

87+ * - Bound pattern variables are represented by 'PVar' binders:

88+ This diagram shows an example of a possible Raw structure that might be used in a function definition.

89+ - .. image:: ../image/generateFunction2.png

90+ :width: 264px

91+ :height: 239px

92+ :alt: diagram illustrating data structures associated with functions.

93+

94+.. list-table::

95+

96+ * - Some function definitions can now be added to the above datatype. This is what they will look like:

97+ - .. code-block:: idris

98+

99+ λΠ> :printdef perm1

100+ perm1 : Two -> Two

101+ perm1 F = F

102+ perm1 T = T

103+ λΠ> :printdef perm2

104+ perm2 : Two -> Two

105+ perm1 F = T

106+ perm1 T = F

107+

108+This was generated with the following code:

109+

110+.. code-block:: idris

111+

112+ let perm1 = `{{TwoDef.perm1}}

113+ declareType (Declare perm1 [MkFunArg `{{code}} (Var twoname) Explicit NotErased] (Var twoname))

114+ defineFunction $ DefineFun perm1 [

115+ MkFunClause (RApp (Var perm1) (Var `{{TwoDef.F}})) (Var F2),

116+ MkFunClause (RApp (Var perm1) (Var `{{TwoDef.T}})) (Var T2)

117+ ]

118+

119+ let perm2 = `{{TwoDef.perm2}}

120+ declareType (Declare perm2 [MkFunArg `{{code}} (Var twoname) Explicit NotErased] (Var twoname))

121+ defineFunction $ DefineFun perm2 [

122+ MkFunClause (RApp (Var perm1) (Var `{{TwoDef.F}})) (Var T2),

123+ MkFunClause (RApp (Var perm1) (Var `{{TwoDef.T}})) (Var F2)

124+ ]

125+

126+.. list-table::

127+

128+ * - This is what happens when we call the functions:

129+ - .. code-block:: idris

130+

131+ λΠ> perm1 F

132+ F : Two

133+ λΠ> perm1 T

134+ T : Two

135+ λΠ> perm2 F

136+ T : Two

137+ λΠ> perm2 T

138+ F : Two

139+

140+So far these datatypes and functions could have been written, statically, in the usual way. However, it is possible to imagine situations where we may need a lot of functions to be generated automatically at compile time. For example, if we extend this Boolean datatype to a datatype with more simple constructors (a finite set), we could generate a function for every possible permutation of that datatype back to itself.

141+

142+A Different Example which has Type Parameters

143+---------------------------------------------

144+

145+.. list-table::

146+

147+ * - Here is an example of a datatype with type parameters:

148+ - .. code-block:: idris

149+

150+ data N : Nat -> Type where

151+ MkN : N x

152+ MkN' : (x : Nat) -> N (S x)

153+

154+This was produced by the following code:

155+

156+.. code-block:: idris

157+

158+ module DataDef

159+ %language ElabReflection

160+

161+ addData : Elab ()

162+ addData = do

163+ let dataname : TTName = `{{DataDef.N}}

164+ declareDatatype $ Declare dataname [MkFunArg `{{n}} `(Nat) Explicit NotErased] `(Type)

165+ defineDatatype $ DefineDatatype dataname [

166+ Constructor `{{MkN}} [MkFunArg `{{x}} `(Nat) Implicit NotErased]

167+ (RApp (Var dataname) (Var `{{x}})),

168+ Constructor `{{MkN'}} [MkFunArg `{{x}} `(Nat) Explicit NotErased]

169+ (RApp (Var dataname) (RApp (Var `{S}) (Var `{{x}})))

170+ ]

171+

172+ %runElab addData

173+

174+So this declares and defines the following data structure 'N' with a constructor 'MkN' which can have an implicit or an explicit Nat argument. Which can be used like this:

175+

176+.. code-block:: idris

177+

178+ λΠ> :t N

179+ N : Nat -> Type

180+ λΠ> N 2

181+ N 2 : Type

182+ λΠ> N 0

183+ N 0 : Type

184+ λΠ> :t MkN

185+ MkN : N x

186+

187+Table of 'tactics' for Generating Data and Functions

188+----------------------------------------------------

189+

190+These are the functions that we can use to create data and functions in the Elab monad:

191+

192+.. list-table::

193+ :widths: 10 30

194+ :stub-columns: 1

195+

196+ * - declareType

197+ - Add a type declaration to the global context.

198+

199+ Signature:

200+

201+ declareType : TyDecl -> Elab ()

202+ * - defineFunction

203+ - Define a function in the global context. The function must have already been declared, either in ordinary Idris code or using `declareType`.

204+

205+ Signature:

206+

207+ defineFunction : FunDefn Raw -> Elab ()

208+

209+ * - declareDatatype

210+ - Declare a datatype in the global context. This step only establishes the type constructor; use `defineDatatype` to give it constructors.

211+

212+ Signature:

213+

214+ declareDatatype : TyDecl -> Elab ()

215+

216+ * - defineDatatype

217+ - Signature:

218+

219+ defineDatatype : DataDefn -> Elab ()

220+

221+ * - addImplementation

222+ - Register a new implementation for interface resolution.

223+

224+ Arguments:

225+

226+ - ifaceName the name of the interface for which an implementation is being registered

227+ - implName the name of the definition to use in implementation search

228+

229+ Signature:

230+

231+ addImplementation : (ifaceName, implName : TTName) -> Elab ()

232+

233+ * - isTCName

234+ - Determine whether a name denotes an interface.

235+

236+ Arguments:

237+

238+ - name - a name that might denote an interface.

239+

240+ Signature:

241+

242+ isTCName : (name : TTName) -> Elab Bool

243+

244+Table of Datatypes Associated with Generating Data and Functions

245+----------------------------------------------------------------

246+

247+The above functions use the following data/records:

248+

249+.. list-table::

250+ :widths: 10 30

251+ :stub-columns: 1

252+

253+ * - Plicity

254+ - How an argument is provided in high-level Idris

255+

256+ .. code-block:: idris

257+

258+ data Plicity=

259+ ||| The argument is directly provided at the application site

260+ Explicit |

261+ ||| The argument is found by Idris at the application site

262+ Implicit |

263+ ||| The argument is solved using interface resolution

264+ Constraint

265+

266+ * - FunArg

267+ - Function arguments

268+

269+ These are the simplest representation of argument lists, and are used for functions. Additionally, because a FunArg provides enough

270+ information to build an application, a generic type lookup of a top-level identifier will return its FunArgs, if applicable.

271+

272+ .. code-block:: idris

273+

274+ record FunArg where

275+ constructor MkFunArg

276+ name : TTName

277+ type : Raw

278+ plicity : Plicity

279+ erasure : Erasure

280+

281+ * - TyConArg

282+ - Type constructor arguments

283+

284+ Each argument is identified as being either a parameter that is

285+

286+ consistent in all constructors, or an index that varies based on

287+

288+ which constructor is selected.

289+

290+ .. code-block:: idris

291+

292+ data TyConArg =

293+ ||| Parameters are uniform across the constructors

294+ TyConParameter FunArg |

295+ ||| Indices are not uniform

296+ TyConIndex FunArg

297+

298+ * - TyDecl

299+ - A type declaration for a function or datatype

300+

301+ .. code-block:: idris

302+

303+ record TyDecl where

304+ constructor Declare

305+ ||| The fully-qualified name of the function or datatype being declared.

306+ name : TTName

307+ ||| Each argument is in the scope of the names of previous arguments.

308+ arguments : List FunArg

309+ ||| The return type is in the scope of all the argument names.

310+ returnType : Raw

311+

312+ * - FunClause

313+ - A single pattern-matching clause

314+

315+ .. code-block:: idris

316+

317+ data FunClause : Type -> Type where

318+ MkFunClause : (lhs, rhs : a) -> FunClause a

319+ MkImpossibleClause : (lhs : a) -> FunClause a

320+

321+ * - FunDefn

322+ - A reflected function definition.

323+

324+ .. code-block:: idris

325+

326+ record FunDefn a where

327+ constructor DefineFun

328+ name : TTName

329+ clauses : List (FunClause a)

330+

331+ * - ConstructorDefn

332+ - A constructor to be associated with a new datatype.

333+

334+ .. code-block:: idris

335+

336+ record ConstructorDefn where

337+ constructor Constructor

338+ ||| The name of the constructor. The name must _not_ be qualified -

339+ ||| that is, it should begin with the `UN` or `MN` constructors.

340+ name : TTName

341+ ||| The constructor arguments. Idris will infer which arguments are

342+ ||| datatype parameters.

343+ arguments : List FunArg

344+ ||| The specific type constructed by the constructor.

345+ returnType : Raw

346+

347+ * - DataDefn

348+ - A definition of a datatype to be added during an elaboration script.

349+

350+ .. code-block:: idris

351+

352+ record DataDefn where

353+ constructor DefineDatatype

354+ ||| The name of the datatype being defined. It must be

355+ ||| fully-qualified, and it must have been previously declared as a

356+ ||| datatype.

357+ name : TTName

358+ ||| A list of constructors for the datatype.

359+ constructors : List ConstructorDefn

360+

361+ * - CtorArg

362+ - CtorParameter

363+

364+ .. code-block:: idris

365+

366+ data CtorArg = CtorParameter FunArg | CtorField FunArg

367+

368+ * - Datatype

369+ - A reflected datatype definition

370+

371+ .. code-block:: idris

372+

373+ record Datatype where

374+ constructor MkDatatype

375+ ||| The name of the type constructor

376+ name : TTName

377+ ||| The arguments to the type constructor

378+ tyConArgs : List TyConArg

379+ ||| The result of the type constructor

380+ tyConRes : Raw

381+ ||| The constructors for the family

382+ constructors : List (TTName, List CtorArg, Raw)</td>

383+

384+.. target-notes::

385+.. _`Elaborator reflection: extending Idris in Idris`: https://dl.acm.org/citation.cfm?doid=2951913.2951932

docs/elaboratorReflection/holes.rstnew file+196

@@ -0,0 +1,196 @@

1+Elaborator Reflection - Holes

2+=============================

3+

4+The process of doing proofs and elaborator reflection tends to involve stating with a desired conclusion and working back to known premises. This often needs intermediate sub-goals which may only be partially solved, these are encoded using 'holes' and 'guesses'.

5+

6+* A hole is a term (an expression - a chunk of code) which is yet to be determined. We do have information about its type (this process tends to be type driven).

7+* A guess is like a hole that is not yet bound.

8+

9+The theory around this was developed in `Dependently Typed Functional Programs and their Proofs by McBride 1999`_.

10+

11+Notation for Holes and Guesses

12+------------------------------

13+

14+There is a notation used in the McBride 1999 thesis which is adapted for the TT language. When working on elaborator reflection it is useful to know this notation, for instance when reading the output of the 'debug' tactic.

15+

16+* A focused hole is notated like this ?x:t . t

17+* A guess is notated like this ?x ≈ t:t . t

18+

19+The following example shows how this is used:

20+

21+Simple Example

22+--------------

23+

24+Start with a code file that just contains:

25+

26+.. code-block:: idris

27+

28+ %language ElabReflection

29+

30+ testFn : Nat

31+ testFn = %runElab (do debug {a = ()})

32+

33+when this is loaded the following is displayed:

34+

35+.. code-block:: idris

36+

37+ Holes:

38+ ----------------------------------

39+ {hole_2} : Prelude.Nat.Nat

40+

41+ ----------------------------------

42+ {hole_0} : Prelude.Nat.Nat

43+

44+ Term:

45+ ?{hole_0} ≈ ? {hole_2} . {hole_2} . {hole_0}

46+

47+This shows information about the state when debug is encountered, during tactic execution, which allows us to investigate what is happening at each stage.

48+

49+* The "Holes" part shows the types of the holes and the local context of each

50+* The "Term" part shows where these holes are in the expression being constructed.

51+

52+So starting with the "Term" part we have.

53+

54+.. code-block:: idris

55+

56+ ?{hole_0} ≈ ? {hole_2} . {hole_2} . {hole_0}

57+

58+.. sidebar:: attack tactic

59+

60+ This kind of thing tends to arise from "attack", which helps keep binding forms in order.

61+

62+The meaning of this is not immediately apparent so it helps to add some parentheses to make the structure clearer:

63+

64+.. code-block:: idris

65+

66+ (?{hole_0} ≈ (? {hole_2} . {hole_2}) . {hole_0})

67+

68+First lets look at the inner part:

69+

70+.. code-block:: idris

71+

72+ ? {hole_2} . {hole_2}

73+

74+We can substitute in the type from the "Holes" part:

75+

76+.. code-block:: idris

77+

78+ ? {hole_2}:Nat . {hole_2}:Nat

79+

80+So we are looking for a hole of type Nat and all we know is it has type Nat.

81+

82+Going back to the full term, the above is wrapped in a guess, so it means: 'a guess that is itself a hole'.

83+

84+Since the elaborator does not have any further information it has to be given a value:

85+

86+.. code-block:: idris

87+

88+ %language ElabReflection

89+

90+ testFn : Nat

91+ testFn = %runElab (do fill `(Z)

92+ debug {a = ()}

93+ solve)

94+

95+Now we have a guess for hole_2 which is itself a guess for hole_0:

96+

97+.. code-block:: idris

98+

99+ ?{hole_0} ≈ ?{hole_2} ≈ Prelude.Nat.Z . {hole_2} . {hole_0}

100+

101+The guesses can be accepted by calling the 'solve' tactic.

102+

103+Example Showing Patterns

104+------------------------

105+

106+In this next example a parameter 'n' has been added to the function. This allows us to see how patterns are used. Starting with this file:

107+

108+.. code-block:: idris

109+

110+ %language ElabReflection

111+

112+ testFn : Nat -> Nat

113+ testFn n = %runElab (do debug {a = ()})

114+

115+when loaded gives:

116+

117+.. code-block:: idris

118+

119+ Holes:

120+ n : Prelude.Nat.Nat

121+ ----------------------------------

122+ {hole_3} : Prelude.Nat.Nat

123+

124+ n : Prelude.Nat.Nat

125+ ----------------------------------

126+ {hole_1} : Prelude.Nat.Nat

127+

128+ ----------------------------------

129+ {hole_0} : patTy n : Prelude.Nat.Nat . Prelude.Nat.Nat

130+

131+ Term:

132+ ?{hole_0} ≈ pat n : Prelude.Nat.Nat .

133+ ?{hole_1} ≈ ? {hole_3} . {hole_3} . {hole_1} .

134+ {hole_0}

135+

136+The ns above the lines show the context of the holes on the right hand side - they include the variable n that is an argument!

137+

138+patTy is a binding form in Idris's core language that introduces a pattern variable. The idea is that the left-hand side and right-hand side of each pattern should have the same type. Because pattern variables may occur multiple times on either side of the equation, we can achieve this by documenting their types with a binding form that wraps each side. This new binding form is why an "attack" was necessary prior to elaborating the RHS.

139+

140+patTy is a type former, and pat is the corresponding introduction form. So you can think of patTy as being a bit like a dependent function type, and pat as being a bit like lambda, except they don't introduce functions (they instead are used for pattern-matching definitions).

141+

142+More Complicated Example

143+------------------------

144+

145+This example does not introduce any new notation but the extra complexity gives a more realistic idea of how it is used. Here we start with this file:

146+

147+.. code-block:: idris

148+

149+ %language ElabReflection

150+

151+ testFn : (n : Nat) -> (n = plus n Z) -> (S n = S (plus n Z))

152+ testFn k ih = %runElab (do debug {a = ()})

153+

154+when loaded gives:

155+

156+.. code-block:: idris

157+

158+ Holes:

159+ k : Prelude.Nat.Nat

160+ ih : = Prelude.Nat.Nat Prelude.Nat.Nat k

161+ (Prelude.Nat.plus k Prelude.Nat.Z)

162+ ----------------------------------

163+ {hole_4} : = Prelude.Nat.Nat Prelude.Nat.Nat (Prelude.Nat.S k)

164+ (Prelude.Nat.S (Prelude.Nat.plus k Prelude.Nat.Z))

165+

166+ k : Prelude.Nat.Nat

167+ ih : = Prelude.Nat.Nat Prelude.Nat.Nat k

168+ (Prelude.Nat.plus k Prelude.Nat.Z)

169+ ----------------------------------

170+ {hole_2} : = Prelude.Nat.Nat Prelude.Nat.Nat (Prelude.Nat.S k)

171+ (Prelude.Nat.S (Prelude.Nat.plus k Prelude.Nat.Z))

172+

173+ k : Prelude.Nat.Nat

174+ ----------------------------------

175+ {hole_1} : patTy ih : = Prelude.Nat.Nat Prelude.Nat.Nat k

176+ (Prelude.Nat.plus k Prelude.Nat.Z) .

177+ = Prelude.Nat.Nat Prelude.Nat.Nat (Prelude.Nat.S k)

178+ (Prelude.Nat.S (Prelude.Nat.plus k Prelude.Nat.Z))

179+

180+ ----------------------------------

181+ {hole_0} : patTy k : Prelude.Nat.Nat .

182+ patTy ih : = Prelude.Nat.Nat Prelude.Nat.Nat k

183+ (Prelude.Nat.plus k Prelude.Nat.Z) .

184+ = Prelude.Nat.Nat Prelude.Nat.Nat (Prelude.Nat.S k)

185+ (Prelude.Nat.S (Prelude.Nat.plus k Prelude.Nat.Z))

186+

187+ Term:

188+ ?{hole_0} ≈ pat k : Prelude.Nat.Nat .

189+ ?{hole_1} ≈ pat ih : = Prelude.Nat.Nat Prelude.Nat.Nat k

190+ (Prelude.Nat.plus k Prelude.Nat.Z) .

191+ ?{hole_2} ≈ ? {hole_4} . {hole_4} . {hole_2} .

192+ {hole_1} .

193+ {hole_0}

194+

195+.. target-notes::

196+.. _`Dependently Typed Functional Programs and their Proofs by McBride 1999`: https://www.era.lib.ed.ac.uk/handle/1842/374

docs/elaboratorReflection/index.rstnew file+27

@@ -0,0 +1,27 @@

1+.. _elaborator-index:

2+

3+#####################

4+Elaborator Reflection

5+#####################

6+

7+A tutorial on theorem proving in Idris.

8+

9+.. note::

10+

11+ The documentation for Idris has been published under the Creative

12+ Commons CC0 License. As such to the extent possible under law, *The

13+ Idris Community* has waived all copyright and related or neighboring

14+ rights to Documentation for Idris.

15+

16+ More information concerning the CC0 can be found online at: http://creativecommons.org/publicdomain/zero/1.0/

17+

18+.. toctree::

19+ :maxdepth: 1

20+

21+ elaborator-reflection

22+ elabReflection

23+ tactics

24+ holes

25+ example1

26+ primitive

27+ generatingData

docs/elaboratorReflection/primitive.rstnew file+518

@@ -0,0 +1,518 @@

1+Primitive Operators

2+===================

3+

4+.. list-table::

5+ :widths: 10 30

6+ :stub-columns: 1

7+

8+ * - gensym

9+ - Generate a unique name based on some hint.

10+

11+ Useful when establishing a new binder.

12+

13+ **NB**: the generated name is unique **for this run of the elaborator**.

14+

15+ Do not assume that they are globally unique.

16+

17+ Signature:

18+

19+ gensym : (hint : String) -> Elab TTName

20+

21+ * - solve

22+ - Substitute a guess into a hole.

23+

24+

25+ .. image:: ../image/solve.png

26+ :width: 141px

27+ :height: 74px

28+ :alt: diagram illustrating solve tactic

29+

30+

31+ Substitute the focused guess throughout its scope, eliminating it and moving focus to the next element of the hole queue. Fail if the focus is not a guess.

32+

33+ Signature:

34+

35+ solve : Elab ()

36+

37+ Example:

38+

39+ .. code-block:: idris

40+

41+ %language ElabReflection

42+

43+ testFn : Nat

44+ testFn = %runElab (do fill `(Z)

45+ solve)

46+

47+ * - fill

48+ - Place a term into a hole, unifying its type. Fails if the focus is not a hole.

49+

50+

51+ .. image:: ../image/fill.png

52+ :width: 140px

53+ :height: 74px

54+ :alt: diagram illustrating fill tactic

55+

56+

57+ Signature:

58+

59+ fill : (e : Raw) -> Elab ()

60+

61+ Place a term e with type tc into the focused hole:

62+

63+ ?h : th.e'

64+

65+ and convert it to a guess:

66+

67+ ?h ≈ e:t.e'

68+

69+ and fail if the current focus is not a hole. The type t of the guess is constructed by unifying tc and th, which may instantiate holes that they refer to. Fail if the current focus is not a hole or if unification fails.

70+

71+ This unification can result in the solution of further holes or the establishment of additional unsolved unification constraints.

72+

73+ Example:

74+

75+ .. code-block:: idris

76+

77+ %language ElabReflection

78+

79+ testFn : Nat

80+ testFn = %runElab (do fill `(Z)

81+ solve)

82+

83+ * - apply

84+ - Attempt to apply an operator to fill the current hole, potentially solving arguments by unification.

85+

86+ A hole is established for each argument.

87+

88+ The return value is the list of holes established for the arguments to the function.

89+

90+ Note that not all of the returned hole names still exist, as they may have been solved.

91+

92+ - @ op the term to apply

93+ - @ argSpec - A list of booleans, one for each argument that the operator will be applied to. If true then attempt to solve the argument by unification.

94+

95+ Signature:

96+

97+ apply : (op : Raw) -> (argSpec : List Bool) -> Elab (List TTName)

98+

99+ Example: elaborating an application of a function f that takes one implicit and two explicit arguments might invoke:

100+

101+ apply \`(f) [False, True, True]

102+

103+ Here is an example of an elab script that uses apply to insert the term plus Z (S Z) into a goal of type Nat.

104+

105+ .. code-block:: idris

106+

107+ do [x,y] <- apply `(plus) [False, False]

108+ solve

109+ focus x; fill `(Z); solve

110+ focus y; fill `(S Z); solve

111+

112+ The names of the established holes are returned.

113+

114+ Note: This was added to the original tactic language to allow elaborator reflection.

115+

116+ * - matchApply

117+ - Attempt to apply an operator to fill the current hole, potentially solving arguments by matching.

118+

119+ The return value is the list of holes established for the arguments to the function.

120+

121+ Note that not all of the returned hole names still exist, as they may have been solved.

122+

123+ - @ op the term to apply

124+ - @ argSpec instructions for finding the arguments to the term, where the Boolean states whether or not to attempt to solve the argument by matching.

125+

126+ Signature:

127+

128+ matchApply : (op : Raw) -> (argSpec : List Bool) -> Elab (List TTName)

129+

130+ * - focus

131+ - Move the focus to the specified hole, bringing it to the front of the hole queue. Fails if the hole does not exist.

132+

133+ @ hole the hole to focus on

134+

135+ Signature:

136+

137+ focus : (hole : TTName) -> Elab ()

138+

139+ * - unfocus

140+ - Send the currently-focused hole to the end of the hole queue and focus on the next hole.

141+

142+ Signature:

143+

144+ unfocus : TTName -> Elab ()

145+

146+ * - attack

147+ - Convert a hole to make it suitable for bindings.

148+

149+

150+ .. image:: ../image/attack.png

151+ :width: 152px

152+ :height: 70px

153+ :alt: diagram illustrating attack tactic

154+

155+

156+ The binding tactics require that a hole be directly under its binding, or else the scopes of the generated terms won't make sense. This tactic creates a new hole of the proper form, and points the old hole at it.

157+

158+ Signature:

159+

160+ attack : Elab ()

161+

162+ * - claim

163+ - Establish a new hole binding named n with type t, surrounding the current focus.

164+

165+ Introduce a new hole with a specified name and type.

166+

167+ The new hole will be focused, and the previously-focused hole will be immediately after it in the hole queue. Because this tactic introduces a new binding, you may need to 'attack' first.

168+

169+ Signature:

170+

171+ claim : TTName -> Raw -> Elab ()

172+

173+ * - patvar

174+ - Convert a hole into a pattern variable.

175+

176+ Signature:

177+

178+ patvar : TTName -> Elab ()

179+

180+ * - compute

181+ - Normalise the goal.

182+

183+ Often this is not necessary because normanisation is applied during other tactics.

184+

185+ Signature:

186+

187+ compute : Elab ()

188+

189+ * - normalise

190+ - Normalise a term in some lexical environment

191+

192+ - @ env the environment in which to compute (get one of these from `getEnv`)

193+ - @ term the term to normalise

194+

195+ Signature:

196+

197+ normalise : (env : List (TTName, Binder TT)) -> (term : TT) -> Elab TT

198+

199+ * - whnf

200+ - Reduce a closed term to weak-head normal form

201+

202+ @ term the term to reduce

203+

204+ Signature:

205+

206+ whnf : (term : TT) -> Elab TT

207+

208+ * - convertsInEnv

209+ - Check that two terms are convertible in the current context and in some environment.

210+

211+ - @ env a lexical environment to compare the terms in (see `getEnv`)

212+ - @ term1 the first term to convert

213+ - @ term2 the second term to convert

214+

215+ Signature:

216+

217+ convertsInEnv : (env : List (TTName, Binder TT)) -> (term1, term2 : TT) -> Elab ()

218+

219+ * - converts

220+ - Check that two terms are convertable in the current context and environment

221+

222+ - @ term1 the first term to convert

223+ - @ term2 the second term to convertconverts : (term1, term2 : TT) -> Elab ()

224+

225+ converts term1 term2 = convertsInEnv !getEnv term1 term2

226+

227+ * - getSourceLocation

228+ - Find the source context for the elaboration script

229+

230+ Signature:

231+

232+ getSourceLocation : Elab SourceLocation

233+

234+ * - sourceLocation

235+ - Attempt to solve the current goal with the source code

236+

237+ locationsourceLocation : Elab ()

238+

239+ .. code-block:: idris

240+

241+ sourceLocation = do loc <- getSourceLocation

242+ fill (quote loc)

243+ solve

244+

245+ * - currentNamespace

246+ - Get the current namespace at the point of tactic execution. This allows scripts to define top-level names conveniently.

247+

248+ The namespace is represented as a reverse-order list of strings, just as in the representation of names.

249+

250+ Signature:

251+

252+ currentNamespace : Elab (List String)

253+

254+ * - rewriteWith

255+ - Attempt to rewrite the goal using an equality.

256+

257+ The tactic searches the goal for applicable subterms, and constructs a context for `replace` using them. In some cases, this is not possible, and `replace` must be called manually with an appropriate context.

258+

259+ Because this tactic internally introduces a `let` binding, it requires that the hole be immediately under its binder (use 'attack' if it might not be).

260+

261+ Signature:

262+

263+ rewriteWith : Raw -> Elab ()

264+

265+ * - resolveTC

266+ - Attempt to solve the current goal with an interface dictionary

267+

268+ @ fn the name of the definition being elaborated (to prevent Idris from looping)

269+

270+ Signature:

271+

272+ resolveTC : (fn : TTName) -> Elab ()

273+

274+ * - search

275+ - Use Idris's internal proof search.

276+

277+ Signature:

278+

279+ search : Elab ()

280+

281+ * - search'

282+ - Use Idris's internal proof search, with more control.

283+

284+ - @ depth the search depth

285+ - @ hints additional names to try

286+

287+ Signature:

288+

289+ search' : (depth : Int) -> (hints : List TTName) -> Elab ()

290+

291+ * - operatorFixity

292+ - Look up the declared fixity for an operator.

293+

294+ The lookup fails if the operator does not yet have a fixity or if the string is not a valid operator.

295+

296+ @ operator the operator string to look up

297+

298+ Signature:

299+

300+ operatorFixity : (operator : String) -> Elab Fixity

301+

302+ * - debug

303+ - Halt elaboration, dumping the internal state for inspection.

304+

305+ This is intended for elaboration script developers, not for end-users. Use `fail` for final scripts.

306+

307+ Signature:

308+

309+ debug : Elab a

310+

311+ If 'debug' is not the last tactic then make sure its type is sufficiently constrained. In particular, its type is Elab a, but there's no way for Idris to find out which type was meant for a. This can be fixed by either writing an explicit type (e.g. debug {a = ()}) or by using a helper that constrains the type (such as simple in Pruviloj, e.g. simple debug as a line).

312+

313+ .. code-block:: idris

314+

315+ %language ElabReflection

316+

317+ idNat : Nat -> Nat

318+ idNat = %runElab (do intro `{{x}}

319+ debug {a = ()}

320+ fill (Var `{{x}})

321+ solve)

322+

323+ * - debugMessage

324+ - Halt elaboration, dumping the internal state and displaying a message.

325+

326+ This is intended for elaboration script developers, not for end-users. Use `fail` for final scripts.

327+

328+ @ msg the message to display

329+

330+ Signature:

331+

332+ debugMessage : (msg : List ErrorReportPart) -> Elab a

333+

334+ If 'debugMessage' is not the last tactic then make sure its type is sufficiently constrained. In particular, its type is Elab a, but there's no way for Idris to find out which type was meant for a. This can be fixed by either writing an explicit type (e.g. debugMessage [TextPart "message"] {a = ()}) or by using a helper that constrains the type (such as simple in Pruviloj, e.g. simple debug as a line).

335+

336+ .. code-block:: idris

337+

338+ %language ElabReflection

339+ idNat : Nat -> Nat

340+ idNat = %runElab (do intro `{{x}}

341+ debugMessage [TextPart "error message"] {a = ()}

342+ fill (Var `{{x}})

343+ solve)

344+

345+ * - metavar

346+ - Create a new top-level metavariable to solve the current hole.

347+

348+ @ name the name for the top-level variable

349+

350+ Signature:

351+

352+ metavar : (name : TTName) -> Elab ()

353+

354+ * - runElab

355+ - Recursively invoke the reflected elaborator with some goal.

356+

357+ The result is the final term and its type.

358+

359+ Signature:

360+

361+ runElab : Raw -> Elab () -> Elab (TT, TT)

362+

363+

364+Read and Write State

365+--------------------

366+

367+.. list-table::

368+ :widths: 10 30

369+ :stub-columns: 1

370+

371+ * - getEnv

372+ - Look up the lexical binding at the focused hole. Fails if no holes are present.

373+

374+ Signature:

375+

376+ getEnv : Elab (List (TTName, Binder TT))

377+

378+ * - getGoal

379+ - Get the name and type of the focused hole. Fails if not holes are present.

380+

381+ Signature:

382+

383+ getGoal : Elab (TTName, TT)

384+

385+ * - getHoles

386+ - Get the hole queue, in order.

387+

388+ Signature:

389+

390+ getHoles : Elab (List TTName)

391+

392+ * - getGuess

393+ - If the current hole contains a guess, return it. Otherwise, fail.

394+

395+ Signature:

396+

397+ getGuess : Elab TT

398+

399+ * - lookupTy

400+ - Look up the types of every overloading of a name.

401+

402+ Signature:

403+

404+ lookupTy : TTName -> Elab (List (TTName, NameType, TT))

405+

406+ * - lookupTyExact

407+ - Get the type of a fully-qualified name. Fail if it doesn't resolve uniquely.

408+

409+ Signature:

410+

411+ lookupTyExact : TTName -> Elab (TTName, NameType, TT)

412+

413+ * - lookupDatatype

414+ - Find the reflected representation of all datatypes whose names are overloadings of some name.

415+

416+ Signature:

417+

418+ lookupDatatype : TTName -> Elab (List Datatype)

419+

420+ * - lookupDatatypeExact

421+ - Find the reflected representation of a datatype, given its fully-qualified name. Fail if the name does not uniquely resolve to a datatype.

422+

423+ Signature:

424+

425+ lookupDatatypeExact : TTName -> Elab Datatype

426+

427+ * - lookupFunDefn

428+ - Find the reflected function definition of all functions whose names are overloadings of some name.

429+

430+ Signature:

431+

432+ lookupFunDefn : TTName -> Elab (List (FunDefn TT))

433+

434+ * - lookupFunDefnExact

435+ - Find the reflected function definition of a function, given its fully-qualified name. Fail if the name does not uniquely resolve to a function.

436+

437+ Signature:

438+

439+ lookupFunDefnExact : TTName -> Elab (FunDefn TT)

440+

441+ * - lookupArgs

442+ - Get the argument specification for each overloading of a name.

443+

444+ Signature:

445+

446+ lookupArgs : TTName -> Elab (List (TTName, List FunArg, Raw))

447+

448+ * - lookupArgsExact

449+ - Get the argument specification for a name. Fail if the name does not uniquely resolve.

450+

451+ Signature:

452+

453+ lookupArgsExact : TTName -> Elab (TTName, List FunArg, Raw)

454+

455+ * - check

456+ - Attempt to type-check a term, getting back itself and its type.

457+

458+ - @ env the environment within which to check the type

459+ - @ tm the term to check

460+

461+ Signature:

462+

463+ check : (env : List (TTName, Binder TT)) -> (tm : Raw) -> Elab (TT, TT)

464+

465+Error Handling

466+--------------

467+

468+.. list-table::

469+ :widths: 10 30

470+ :stub-columns: 1

471+

472+ * - tryCatch

473+ - `tryCatch t (\err => t')` will run `t`, and if it fails, roll back the elaboration state and run `t'`,

474+ but with access to the knowledge of why `t` failed.

475+

476+ Signature:

477+

478+ tryCatch : Elab a -> (Err -> Elab a) -> Elab a

479+

480+ .. code-block:: idris

481+

482+ %language ElabReflection

483+

484+ f : Err -> Elab ()

485+ f (Msg _) = fill `("message error")

486+ f (CantUnify _ _ _ _ _ _) = fill `("unification error")

487+ f _ = fill `("other")

488+

489+ s2 : String

490+ s2 = %runElab (do tryCatch (fill `(True)) f ; solve)

491+

492+ * - fail

493+ - Halt elaboration with an error

494+

495+ Signature:

496+

497+ fail : List ErrorReportPart -> Elab a

498+

499+ Note: we may need to make sure the return type 'a' is sufficiently constrained. If required add an explicit type {a = ()}.

500+

501+ Below is some code which includes 'fail'. This will always fail but we could replace 'True' with some more useful condition.

502+

503+ .. code-block:: idris

504+

505+ %language ElabReflection

506+

507+ id1 : Elab ()

508+ id1 = do

509+ intro `{{x}}

510+ fill (Var `{{x}})

511+ if True

512+ then

513+ fail [TextPart "put error message here"]

514+ else

515+ solve

516+

517+ idNat : Nat -> Nat

518+ idNat = %runElab id1

docs/elaboratorReflection/tactics.rstnew file+430

@@ -0,0 +1,430 @@

1+Elaborator Reflection - Tactics

2+===============================

3+

4+The Idris part of the code for elaborator reflection is in

5+Elab.idr `<https://github.com/idris-lang/Idris-dev/blob/master/libs/prelude/Language/Reflection/Elab.idr>`_

6+Before looking at the Elab monad we need to know how to construct terms.

7+

8+

9+Proof State

10+-----------

11+

12+The terminology 'Proof State' is used by analogy to proof assistants but, as used here, it's really more of a metaprogramming state.

13+

14+Tactics operate on the proof state. The proof state contains various pieces of information, at this stage, the important ones for us are:

15+

16+- A hole queue - This contains a list of the names of the holes used in the proof term. The solution to each hole may depend on the other holes. For more information about holes and guesses see `Dependently Typed Functional Programs and their Proofs by McBride 1999`_.

17+- A goal type - The type of the term that is under construction for the current goal.

18+- A possibly incomplete proof term, which is being calculated and should be the goal type at the end of elaboration.

19+- Context - A collection of open unification problems, representing recoverable failures of unification that may yet unify once more variables are solved.

20+

21+There are many other pieces of information in the proof state such as the names used , such as the bodies of case blocks that need to be elaborated.but, for now, we will leave the system to handle these.

22+

23+.. image:: ../image/elabProofState.png

24+ :width: 283px

25+ :height: 232px

26+

27+Names TTName

28+------------

29+

30+Names in an Idris program are evaluated at runtime but sometimes a 'variable name' is needed, which can be referred to as an unevaluated symbol.

31+The names used in terms have different constructors depending on their type:

32+

33++---------------------------+-----------------------------------------------+

34+| UN String | A user-provided name |

35++---------------------------+-----------------------------------------------+

36+| NS (UN "foo") ["B", "A"]) | A name in some namespace |

37++---------------------------+-----------------------------------------------+

38+| MN Int String | Machine-chosen names |

39++---------------------------+-----------------------------------------------+

40+| SN SpecialName | Special names, to make conflicts impossible |

41+| | and language features predictable |

42++---------------------------+-----------------------------------------------+

43+

44+

45+A user defined name can be constructed like this:

46+

47+.. code-block:: idris

48+

49+ Idris> UN "x"

50+ UN "x" : TTName

51+

52+.. code-block:: idris

53+

54+ Idris> NS (UN "x") ["b","a"]

55+ NS (UN "x") ["b", "a"] : TTName

56+

57+.. list-table:: machine-chosen names

58+

59+ * - A machine-chosen name needs to be generated within an Elab monad (see below for details) and is unique within that monad. This produced: {abc_140}{abc_141} so although gensym "abc" was called twice each one had a different integer:

60+ - example of unique names:

61+

62+ .. code-block:: idris

63+

64+ implementation Show TTName where

65+ show (UN s) = "`{{"++s++"}}"

66+ show (NS t a) = "{"++(show t)++

67+ "."++(show a)++"}"

68+ show (MN i s) = "{"++s++"_"++(show i)++"}"

69+ show (SN sn) = "TTName special name"

70+

71+ showGensym : String

72+ showGensym = %runElab (do

73+ debugMessage [TextPart (

74+ show !(gensym "abc") ++

75+ show !(gensym "abc")

76+ )]

77+ )

78+

79+Quasiquotation

80+--------------

81+

82+Since names are used frequently in elaborator reflection there is a shortcut for constructing them:

83+

84+.. list-table::

85+

86+ * - An unresolved variable "x" is wrapped in backtick and double braces:

87+ - .. code-block:: idris

88+

89+ Idris> `{{x}}

90+ UN "x" : TTName

91+

92+

93+ * - Single braces are used for existing variables:

94+ - .. code-block:: idris

95+

96+ Idris> `{x}

97+ No such variable x

98+ Idris> :let x=2

99+ Idris> `{x}

100+ UN "x" : TTName

101+

102+

103+ * - brackets are used for an expression:

104+

105+ here type is inferable

106+ - .. code-block:: idris

107+

108+ Idris> :let a=2

109+ Idris> `(a)

110+ P Ref (UN "a") (TConst (AType (ATInt ITBig))) : TT

111+

112+

113+ * - Expression with explicit type:

114+ - .. code-block:: idris

115+

116+ Idris> `(a:Integer)

117+ P Ref (UN "a") (TConst (AType (ATInt ITBig))) : TT

118+

119+

120+ * - If we want the value we can escape from quasiquotation by using anti-quotation (tilde)

121+ - .. code-block:: idris

122+

123+ Idris> `(~a)

124+ 2 : Integer

125+

126+quasiquotation summary:

127+

128++------------+-----------+----------------------------------------------------------+

129+| |Reification| |

130++============+===========+==========================================================+

131+| \`{{n}} | TTName | Use for new names. Unresolved quotation of the name n. |

132++------------+-----------+----------------------------------------------------------+

133+| \`{n} | TTName | Use for existing names. Resolved quotation of the name |

134+| | | n. n is a reference to a unique name in scope. |

135++------------+-----------+----------------------------------------------------------+

136+| \`(e) | | expression e for which a type is inferable. |

137++------------+-----------+----------------------------------------------------------+

138+| \`(e:t) | | expression e with a given type e. |

139++------------+-----------+----------------------------------------------------------+

140+| ~a | | anti-quotation - sub region which can be evaluated rather|

141+| | | than quoted. |

142++------------+-----------+----------------------------------------------------------+

143+|(Var\`{{x}})| Raw | |

144++------------+-----------+----------------------------------------------------------+

145+

146+TT

147+--

148+

149+There is a notation for a term in TT as it is being constructed (based on a BNF-like grammar), this is used for example in the debug output, it is a compact way to see the state of the term so it is used here.

150+So internally the program is stored as a tree structure using the following syntax:

151+

152++------------+-------+-------------+---------------------------------------------+

154++============+=======+=============+=============================================+

155+| term | | t | |

156++------------+-------+-------------+---------------------------------------------+

157+| binding | | b | |

158++------------+-------+-------------+---------------------------------------------+

159+| constant | t ::= | c | |

160++------------+-------+-------------+---------------------------------------------+

161+| variable | t ::= | x | |

162++------------+-------+-------------+---------------------------------------------+

163+| variable | t ::= | b.t | so a dot '.' tells us this is some sort of |

165++------------+-------+-------------+---------------------------------------------+

166+| application| t ::= | t t | As with Idris, juxtaposition indicates |

167+| | | | function application. Note: the same symbol |

168+| | | | 't' is used for both terms, this does not |

169+| | | | imply they are the same term. |

170++------------+-------+-------------+---------------------------------------------+

171+| Type | t ::= | T | |

172+| constructor| | | |

173++------------+-------+-------------+---------------------------------------------+

174+| Data | t ::= | C | |

175+| constructor| | | |

176++------------+-------+-------------+---------------------------------------------+

177+| function | b::= | λ c:t | colon ':' separates parameters from body of |

178+| | | | binding. |

179++------------+-------+-------------+---------------------------------------------+

180+| let binding| b::= | let\|-> t:t | |

181++------------+-------+-------------+---------------------------------------------+

182+| function | b::= | ∀ x:t | |

183++------------+-------+-------------+---------------------------------------------+

184+| Type | c::= | \*i | The universe hierarchy is usually handled |

186+| | | | type of types. |

187++------------+-------+-------------+---------------------------------------------+

188+| integer | c:== | i | |

189+| literal | | | |

190++------------+-------+-------------+---------------------------------------------+

191+|integer type| c:== | Integer | |

192++------------+-------+-------------+---------------------------------------------+

193+| string | c:== | s | |

194+| literal | | | |

195++------------+-------+-------------+---------------------------------------------+

196+| string type| c:== | String | |

197++------------+-------+-------------+---------------------------------------------+

198+|focused hole| | ?x : t | Conor McBride 1999 thesis. |

199++------------+-------+-------------+---------------------------------------------+

200+| guess | | ?x ≈ t : t | Conor McBride 1999 thesis. |

201++------------+-------+-------------+---------------------------------------------+

202+

203+Sometimes the part of the term in focus is underlined.

204+

205+Reflection of the well typed core language

206+

207+.. code-block:: idris

208+

209+ data TT =

210+ ||| A reference to some name (P for Parameter)

211+ P NameType TTName TT |

212+ ||| de Bruijn variables

213+ V Int |

214+ ||| Bind a variable

215+ Bind TTName (Binder TT) TT |

216+ ||| Apply one term to another

217+ App TT TT |

218+ ||| Embed a constant

219+ TConst Const |

220+ ||| Erased terms

221+ Erased |

222+ ||| The type of types along (with universe constraints)

223+ TType TTUExp |

224+ ||| Alternative universes for dealing with uniqueness

225+ UType Universe |

226+

227+TT stores local bound variables using De Bruijn index, when working in Idris this does not concern the user because string names are used for variables. Converting bound variables internally to index values means that the same variable name can be used, in different lambda terms, without ambiguity and without the need for α-substitution.

228+De Bruijn index which is a integer where:

229+

230+- 0=inside current (inner) lambda term

231+- 1= next outer lambda term

232+- 2= next outer and so on

233+

234+Raw

235+---

236+

237+Raw is similar to TT except it is used before types are known. The types should be resolved by the type checker.

238+

239+.. code-block:: idris

240+

241+ data Raw =

242+ ||| Variables, global or local

243+ Var TTName |

244+ ||| Bind a variable

245+ RBind TTName (Binder Raw) Raw |

246+ ||| Application

247+ RApp Raw Raw |

248+ ||| The type of types

249+ RType |

250+ ||| Alternative universes for dealing with uniqueness

251+ RUType Universe |

252+ ||| Embed a constant

253+ RConstant Const |

254+

255+Expression Syntax

256+-----------------

257+

258+There is a way of notating expressions such as those used in the proof state (example: goal type and proof terms) which is reasonably standard in the papers written about this subject.

259+

260+This notation is not entered directly by metaprogrammers but it is seen, for example in debug output. So this notation is explained here because it is useful to be familiar with it.

261+

262+The notation assumes right-associativity, in the absence of brackets, the term to the right binds more tightly than the one on the left.

263+So, for nested lambda terms:

264+

265++---------------+--------+-------------------+

266+| λ a . λ b . f | means | λ a .( λ b . f) |

267++---------------+--------+-------------------+

268+

269+and the same for function application:

270+

271++---------------+--------+-------------------+

272+| f g x | means | f (g x) |

273++---------------+--------+-------------------+

274+

275+In contrast, in lambda calculus, function application is usually regarded as left-associative,

276+Here are some typical examples of the notation used for expressions:

277+

278++-----------------------+

279+| ? {hole_0} . {hole_0} |

280++-----------------------+

281+

282+The term, to be derived, may start off in this state following something like this:

283+

284+.. code-block:: idris

285+

286+ myScript : Elab ()

287+ myScript= do

288+

289+The dot '.' tells us this is some sort of binding.

290+

291++----------------------------------------------+

292+| ?{hole_0} ≈ ? {hole_2} . {hole_2} . {hole_0} |

293++----------------------------------------------+

294+

295+This is a slightly more complicated example arising from:

296+

297+.. code-block:: idris

298+

299+ idNat : Nat -> Nat

300+ idNat = %runElab (do

301+

302+This introduces a guess that hole_0 = hole_2 .

303+

304++----------------------------------------------------+

305+| ?{hole_0} ≈ λ x . ? {hole_2} . {hole_2} . {hole_0} |

306++----------------------------------------------------+

307+

308+Following on from the previous example a lambda function is introduced like this:

309+

310+.. code-block:: idris

311+

312+ intro `{{x}}

313+

314+So now the expression is wrapped in a lambda binding.

315+

316++-------------------------------------------------------+

317+| ?{hole_0} ≈ λ x . ?{hole_2} ≈ x . {hole_2} . {hole_0} |

318++-------------------------------------------------------+

319+

320+Following on, we can use the fill tactic like this:

321+

322+.. code-block:: idris

323+

324+ fill (Var `{{x}})

325+

326+which introduces another guess.

327+

328++--------------------------------+

329+| ?{hole_0} ≈ λ x . x . {hole_0} |

330++--------------------------------+

331+

332+The solve tactic completes the proof

333+

334+Binders

335+-------

336+

337+Here we look at each tactic in turn to see how they affect the proof state.

338+

339+Introduction tactics for binders. The binder types are:

340+

341+- lambda function (intro)

342+- dependent function (forall)

343+- let (letBind)

344+- pattern (patbind)

345+

346+A precondition of these tactics is that the focused hole is of the form:

347+

348++-----------+

349+| ?h : t.h |

350++-----------+

351+

352+that is, that the body of its scope consists directly of a reference to the hole-bound variable. If a hole binder were of the form:

353+

354++--------------------+

355+| ?h : t1 -> t2.f h |

356++--------------------+

357+

358+and a tactic such as

359+

360++------------------+

361+| intro \`{{x}} |

362++------------------+

363+

364+were applied, the result would be the term

365+

366++---------------------------+

367+| ?h : t2 . λ x:t1. f h |

368++---------------------------+

369+

370+However this would cause the application of f to be ill-typed, as it expects an argument of type t1->t2, not an argument of type t2. Additionally, some binding tactics require that t, the type of the hole h, have a specific form, because the binder to be established may have a typing rule associated with it.

371+

372+.. list-table:: Binders

373+ :widths: 10 30

374+ :stub-columns: 1

375+

376+ * - intro

377+ - Introduce a lambda binding around the current hole and focus on the body.

378+

379+ Requires that the hole be in binding form (use 'attack' if it might not be).

380+

381+ @ n the name to use for the argument.

382+

383+ Signature:

384+

385+ intro : (n : TTName) -> Elab ()

386+

387+ Result

388+

389+ λn:t1.?h:[n/x]t2.h

390+

391+ * - intro'

392+ - Introduce a lambda binding around the current hole and focus on the body, using the name provided by the type of the hole.

393+

394+ Requires that the hole be immediately under its binder (use 'attack' if it might not be).

395+

396+ Signature:

397+

398+ intro' : Elab ()

399+

400+ * - forall

401+ - Introduce a dependent function type binding into the current hole, and focus on the body. Requires that the hole be immediately under its binder

402+

403+ (use 'attack' if it might not be).

404+

405+ Signature:

406+

407+ forall : TTName -> Raw -> Elab ()

408+

409+ * - patbind

410+ - Introduce a new pattern binding. Requires that the hole be immediately under its binder (use 'attack' if it might not be).

411+

412+ Signature:

413+

414+ patbind : TTName -> Elab ()

415+

416+ * - letbind

417+ - Introduce a new let binding.

418+

419+ Requires that the hole be immediately under its binder (use 'attack' if it might not be).

420+

421+ - @ n the name to let bind

422+ - @ ty the type of the term to be let-bound

423+ - @ tm the term to be bound

424+

425+ Signature:

426+

427+ letbind : (n : TTName) -> (ty, tm : Raw) -> Elab ()

428+

429+.. target-notes::

430+.. _`Dependently Typed Functional Programs and their Proofs by McBride 1999`: https://www.era.lib.ed.ac.uk/handle/1842/374

docs/faq/faq.rst+2−2

@@ -37,7 +37,7 @@ Is there some documentation for the standard lib? List of functions?

37=====================================================================

38

39API documentation for the shipped packages is listed on `the

40−documentation page <http://www.idris-lang.org/documentation/>`_.

40+documentation page <https://www.idris-lang.org/documentation/>`_.

41

42Unfortunately, the default prelude and shipped packages for `Idris`

43are not necessarily complete with regards to documentation. Other

@@ -310,7 +310,7 @@ better and it will make sense to revisit this. For now, however, Idris will not

310be offering arbitrary Unicode symbols in operators.

311

312This seems like an instance of `Wadler's

313−Law <http://www.haskell.org/haskellwiki/Wadler%27s_Law>`__ in action.

313+Law <https://www.haskell.org/haskellwiki/Wadler%27s_Law>`__ in action.

314

315This answer is based on Edwin Brady's response in the following

316`pull request <https://github.com/idris-lang/Idris-dev/pull/694#issuecomment-29559291>`_.

docs/guides/index.rst+1−1

@@ -12,7 +12,7 @@ Tutorials submitted by community members.

12 Idris Community* has waived all copyright and related or neighboring

13 rights to Documentation for Idris.

14

15− More information concerning the CC0 can be found online at: http://creativecommons.org/publicdomain/zero/1.0/

15+ More information concerning the CC0 can be found online at: https://creativecommons.org/publicdomain/zero/1.0/

16

17

18.. toctree::

docs/guides/theorem-prover.rst+1−1

@@ -22,7 +22,7 @@ We will be given the following prompt, in future releases the version string wil

22 ____ __ _

23 / _/___/ /____(_)____

24 / // __ / ___/ / ___/ Version 0.9.18.1

25− _/ // /_/ / / / (__ ) http://www.idris-lang.org/

25+ _/ // /_/ / / / (__ ) https://www.idris-lang.org/

26 /___/\__,_/_/ /_/____/ Type :? for help

27

28 Idris is free software with ABSOLUTELY NO WARRANTY.

docs/guides/type-providers-ffi.rst+1−1

@@ -3,7 +3,7 @@ Type Providers in Idris

3***********************

4

5`Type providers in Idris

6−<http://www.davidchristiansen.dk/pubs/dependent-type-providers.pdf>`__

6+<https://www.davidchristiansen.dk/pubs/dependent-type-providers.pdf>`__

7are simple enough, but there are a few caveats to using them that it

8would be worthwhile to go through the basic steps. We also go over

9foreign functions, because these will often be used with type

docs/image/README.mdnew file+16

@@ -0,0 +1,16 @@

1+Many of the images in this directory have two files with the same name but a different extension:

2+

3+* The SVG file, being vector graphics, is best for drawing and modifying.

4+* The PNG file, being raster graphics, gives more consistent rendering.

5+

6+The image has therefore been generated as an SVG file and then exported to the PNG file.

7+

8+So, if you need to modify an image, I suggest the following sequence:

9+

10+* Edit the SVG file using a suitable editor (I use Inkscape).

11+* Export the changes to the PNG file, overwriting the old version.

12+* upload both files.

13+

14+Note, when exporting in Inkscape:

15+* Select everything first, this stops an enormous boundary being exported.

16+* After selecting the file to export to and clicking OK, don't forget to click on export button as well.

docs/image/attack.pngnew file

Binary file not shown.

docs/image/attack.svgnew file+199

@@ -0,0 +1,199 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 210 297"

15+ version="1.1"

16+ id="svg8"

17+ inkscape:version="0.92.2 5c3e80d, 2017-08-06"

18+ sodipodi:docname="attack.svg">

19+ <defs

20+ id="defs2">

21+ <marker

22+ inkscape:stockid="Arrow1Mend"

23+ orient="auto"

24+ refY="0.0"

25+ refX="0.0"

26+ id="marker890"

27+ style="overflow:visible;"

28+ inkscape:isstock="true">

29+ <path

30+ id="path888"

31+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

32+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

33+ transform="scale(0.4) rotate(180) translate(10,0)" />

34+ </marker>

35+ <marker

36+ inkscape:isstock="true"

37+ style="overflow:visible;"

38+ id="marker838"

39+ refX="0.0"

40+ refY="0.0"

41+ orient="auto"

42+ inkscape:stockid="Arrow1Mend"

43+ inkscape:collect="always">

44+ <path

45+ transform="scale(0.4) rotate(180) translate(10,0)"

46+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

47+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

48+ id="path836" />

49+ </marker>

50+ <marker

51+ inkscape:stockid="Arrow1Mend"

52+ orient="auto"

53+ refY="0.0"

54+ refX="0.0"

55+ id="Arrow1Mend"

56+ style="overflow:visible;"

57+ inkscape:isstock="true"

58+ inkscape:collect="always">

59+ <path

60+ id="path4529"

61+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

62+ style="fill-rule:evenodd;stroke:#ff0000;stroke-width:1pt;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

63+ transform="scale(0.4) rotate(180) translate(10,0)" />

64+ </marker>

65+ </defs>

66+ <sodipodi:namedview

67+ id="base"

68+ pagecolor="#ffffff"

69+ bordercolor="#666666"

70+ borderopacity="1.0"

71+ inkscape:pageopacity="0.0"

72+ inkscape:pageshadow="2"

73+ inkscape:zoom="1"

74+ inkscape:cx="313.5"

75+ inkscape:cy="696.5"

76+ inkscape:document-units="mm"

77+ inkscape:current-layer="layer1"

78+ showgrid="false"

79+ inkscape:window-width="1920"

80+ inkscape:window-height="1015"

81+ inkscape:window-x="0"

82+ inkscape:window-y="0"

83+ inkscape:window-maximized="1" />

84+ <metadata

85+ id="metadata5">

86+ <rdf:RDF>

87+ <cc:Work

88+ rdf:about="">

89+ <dc:format>image/svg+xml</dc:format>

90+ <dc:type

91+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

92+ <dc:title />

93+ </cc:Work>

94+ </rdf:RDF>

95+ </metadata>

96+ <g

97+ inkscape:label="Layer 1"

98+ inkscape:groupmode="layer"

99+ id="layer1">

100+ <rect

101+ style="fill:#ffff00;fill-opacity:1;stroke-width:0.26458332"

102+ id="rect22"

103+ width="28.839582"

104+ height="6.0854182"

105+ x="66.67498"

106+ y="114.4375"

107+ inkscape:export-xdpi="61.120499"

108+ inkscape:export-ydpi="61.120499" />

109+ <text

110+ xml:space="preserve"

111+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

112+ x="65.352081"

113+ y="105.17709"

114+ id="text12"

115+ inkscape:export-xdpi="61.120499"

116+ inkscape:export-ydpi="61.120499"><tspan

117+ sodipodi:role="line"

118+ x="65.352081"

119+ y="105.17709"

120+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

121+ id="tspan847">?h ∶ t1→t2 . f h</tspan></text>

122+ <text

123+ id="text16"

124+ y="118.67083"

125+ x="56.356247"

126+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

127+ xml:space="preserve"

128+ inkscape:export-xdpi="61.120499"

129+ inkscape:export-ydpi="61.120499"><tspan

130+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

131+ y="118.67083"

132+ x="56.356247"

133+ id="tspan14"

134+ sodipodi:role="line">?h ≈ (?h' ∶ t1→t2 . h')∶ t1→t2 . f h</tspan></text>

135+ <text

136+ id="text20"

137+ y="110.99791"

138+ x="82.814583"

139+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

140+ xml:space="preserve"

141+ inkscape:export-xdpi="61.120499"

142+ inkscape:export-ydpi="61.120499"><tspan

143+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

144+ y="110.99791"

145+ x="82.814583"

146+ id="tspan18"

147+ sodipodi:role="line">attack</tspan></text>

148+ <path

149+ style="fill:none;stroke:#ff0000;stroke-width:0.5291667;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#Arrow1Mend)"

150+ d="m 80.668481,106.30075 -0.0032,7.57492"

151+ id="path4518"

152+ inkscape:connector-curvature="0"

153+ sodipodi:nodetypes="cc"

154+ inkscape:export-xdpi="61.120499"

155+ inkscape:export-ydpi="61.120499" />

156+ <text

157+ inkscape:export-ydpi="61.120499"

158+ inkscape:export-xdpi="61.120499"

159+ xml:space="preserve"

160+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

161+ x="63.235413"

162+ y="94.85833"

163+ id="text832"><tspan

164+ sodipodi:role="line"

165+ id="tspan830"

166+ x="63.235413"

167+ y="94.85833"

168+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;stroke-width:0.26458332">focus</tspan></text>

169+ <path

170+ inkscape:export-ydpi="61.120499"

171+ inkscape:export-xdpi="61.120499"

172+ sodipodi:nodetypes="cc"

173+ inkscape:connector-curvature="0"

174+ id="path834"

175+ d="m 66.645564,94.659084 -0.0032,5.458256"

176+ style="fill:none;stroke:#0000ff;stroke-width:0.5291667;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker838)" />

177+ <text

178+ id="text884"

179+ y="110.23682"

180+ x="61.94511"

181+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

182+ xml:space="preserve"

183+ inkscape:export-xdpi="61.120499"

184+ inkscape:export-ydpi="61.120499"><tspan

185+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;stroke-width:0.26458332"

186+ y="110.23682"

187+ x="61.94511"

188+ id="tspan882"

189+ sodipodi:role="line">focus</tspan></text>

190+ <path

191+ style="fill:none;stroke:#0000ff;stroke-width:0.5291667;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker890)"

192+ d="m 66.67818,108.97924 -0.0032,5.45826"

193+ id="path886"

194+ inkscape:connector-curvature="0"

195+ sodipodi:nodetypes="cc"

196+ inkscape:export-xdpi="61.120499"

197+ inkscape:export-ydpi="61.120499" />

198+ </g>

199+</svg>

docs/image/binders.pngnew file

Binary file not shown.

docs/image/binders.svgnew file+326

@@ -0,0 +1,326 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.91 r13725"

18+ sodipodi:docname="binders.svg">

19+ <defs

20+ id="defs4" />

21+ <sodipodi:namedview

22+ id="base"

23+ pagecolor="#ffffff"

24+ bordercolor="#666666"

25+ borderopacity="1.0"

26+ inkscape:pageopacity="0.0"

27+ inkscape:pageshadow="2"

28+ inkscape:zoom="1"

29+ inkscape:cx="255.00889"

30+ inkscape:cy="520"

31+ inkscape:document-units="px"

32+ inkscape:current-layer="layer1"

33+ showgrid="false"

34+ inkscape:window-width="1163"

35+ inkscape:window-height="1011"

36+ inkscape:window-x="-4"

37+ inkscape:window-y="0"

38+ inkscape:window-maximized="0" />

39+ <metadata

40+ id="metadata7">

41+ <rdf:RDF>

42+ <cc:Work

43+ rdf:about="">

44+ <dc:format>image/svg+xml</dc:format>

45+ <dc:type

46+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

47+ <dc:title></dc:title>

48+ </cc:Work>

49+ </rdf:RDF>

50+ </metadata>

51+ <g

52+ inkscape:label="Layer 1"

53+ inkscape:groupmode="layer"

54+ id="layer1">

55+ <text

56+ xml:space="preserve"

57+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

58+ x="157"

59+ y="177.3622"

60+ id="text4136"

61+ sodipodi:linespacing="125%"

62+ inkscape:export-xdpi="61.120499"

63+ inkscape:export-ydpi="61.120499"><tspan

64+ sodipodi:role="line"

65+ id="tspan4138"

66+ x="157"

67+ y="177.3622"

68+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;">Code</tspan></text>

69+ <text

70+ sodipodi:linespacing="125%"

71+ id="text4140"

72+ y="177.3622"

73+ x="287"

74+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

75+ xml:space="preserve"

76+ inkscape:export-xdpi="61.120499"

77+ inkscape:export-ydpi="61.120499"><tspan

78+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;"

79+ y="177.3622"

80+ x="287"

81+ id="tspan4142"

82+ sodipodi:role="line">Logic</tspan></text>

83+ <path

84+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

85+ d="m 229,161.3622 1,298"

86+ id="path4144"

87+ inkscape:connector-curvature="0"

88+ sodipodi:nodetypes="cc"

89+ inkscape:export-xdpi="61.120499"

90+ inkscape:export-ydpi="61.120499" />

91+ <path

92+ inkscape:connector-curvature="0"

93+ id="path4146"

94+ d="m 473.5,184.8622 -364,1"

95+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

96+ sodipodi:nodetypes="cc"

97+ inkscape:export-xdpi="61.120499"

98+ inkscape:export-ydpi="61.120499" />

99+ <path

100+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

101+ d="m 473.5,270.8622 -364,1"

102+ id="path4148"

103+ inkscape:connector-curvature="0"

104+ sodipodi:nodetypes="cc"

105+ inkscape:export-xdpi="61.120499"

106+ inkscape:export-ydpi="61.120499" />

107+ <path

108+ inkscape:connector-curvature="0"

109+ id="path4150"

110+ d="m 475.5,362.8622 -366,1"

111+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

112+ sodipodi:nodetypes="cc"

113+ inkscape:export-xdpi="61.120499"

114+ inkscape:export-ydpi="61.120499" />

115+ <path

116+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

117+ d="m 475.5,458.8622 -366,1"

118+ id="path4152"

119+ inkscape:connector-curvature="0"

120+ sodipodi:nodetypes="cc"

121+ inkscape:export-xdpi="61.120499"

122+ inkscape:export-ydpi="61.120499" />

123+ <text

124+ sodipodi:linespacing="125%"

125+ id="text4154"

126+ y="235.3622"

127+ x="19"

128+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

129+ xml:space="preserve"

130+ inkscape:export-xdpi="61.120499"

131+ inkscape:export-ydpi="61.120499"><tspan

132+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

133+ y="235.3622"

134+ x="19"

135+ id="tspan4156"

136+ sodipodi:role="line">Abstraction</tspan></text>

137+ <text

138+ xml:space="preserve"

139+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

140+ x="19"

141+ y="399.36218"

142+ id="text4158"

143+ sodipodi:linespacing="125%"

144+ inkscape:export-xdpi="61.120499"

145+ inkscape:export-ydpi="61.120499"><tspan

146+ sodipodi:role="line"

147+ id="tspan4160"

148+ x="19"

149+ y="399.36218"

150+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">let</tspan><tspan

151+ sodipodi:role="line"

152+ x="19"

153+ y="424.36218"

154+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

155+ id="tspan4184">binding</tspan></text>

156+ <text

157+ sodipodi:linespacing="125%"

158+ id="text4162"

159+ y="307.36218"

160+ x="19"

161+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

162+ xml:space="preserve"

163+ inkscape:export-xdpi="61.120499"

164+ inkscape:export-ydpi="61.120499"><tspan

165+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

166+ y="307.36218"

167+ x="19"

168+ id="tspan4164"

169+ sodipodi:role="line">function</tspan><tspan

170+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

171+ y="332.36218"

172+ x="19"

173+ sodipodi:role="line"

174+ id="tspan4166">space</tspan></text>

175+ <text

176+ xml:space="preserve"

177+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

178+ x="167"

179+ y="235.3622"

180+ id="text4168"

181+ sodipodi:linespacing="125%"

182+ inkscape:export-xdpi="61.120499"

183+ inkscape:export-ydpi="61.120499"><tspan

184+ sodipodi:role="line"

185+ id="tspan4170"

186+ x="167"

187+ y="235.3622"

188+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;">λ x:t</tspan></text>

189+ <text

190+ sodipodi:linespacing="125%"

191+ id="text4172"

192+ y="222.3622"

193+ x="259"

194+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

195+ xml:space="preserve"

196+ inkscape:export-xdpi="61.120499"

197+ inkscape:export-ydpi="61.120499"><tspan

198+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;"

199+ y="222.3622"

200+ x="259"

201+ id="tspan4174"

202+ sodipodi:role="line">Γ ⊢ S : Type</tspan></text>

203+ <text

204+ sodipodi:linespacing="125%"

205+ id="text4180"

206+ y="417.36218"

207+ x="124"

208+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

209+ xml:space="preserve"

210+ inkscape:export-xdpi="61.120499"

211+ inkscape:export-ydpi="61.120499"><tspan

212+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;"

213+ y="417.36218"

214+ x="124"

215+ id="tspan4182"

216+ sodipodi:role="line">let x ↦ t : t</tspan></text>

217+ <path

218+ inkscape:connector-curvature="0"

219+ id="path4186"

220+ d="m 383.5,227.8622 -136,1"

221+ style="fill:none;fill-rule:evenodd;stroke:#0000ff;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

222+ sodipodi:nodetypes="cc"

223+ inkscape:export-xdpi="61.120499"

224+ inkscape:export-ydpi="61.120499" />

225+ <text

226+ xml:space="preserve"

227+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

228+ x="246"

229+ y="248.3622"

230+ id="text4188"

231+ sodipodi:linespacing="125%"

232+ inkscape:export-xdpi="61.120499"

233+ inkscape:export-ydpi="61.120499"><tspan

234+ sodipodi:role="line"

235+ id="tspan4190"

236+ x="246"

237+ y="248.3622"

238+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;">Γ ; λ x:S ⊢ valid</tspan></text>

239+ <text

240+ xml:space="preserve"

241+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

242+ x="257"

243+ y="308.36218"

244+ id="text4192"

245+ sodipodi:linespacing="125%"

246+ inkscape:export-xdpi="61.120499"

247+ inkscape:export-ydpi="61.120499"><tspan

248+ sodipodi:role="line"

249+ id="tspan4194"

250+ x="257"

251+ y="308.36218"

252+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;">Γ ⊢ S : Type</tspan></text>

253+ <path

254+ sodipodi:nodetypes="cc"

255+ style="fill:none;fill-rule:evenodd;stroke:#0000ff;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

256+ d="m 381.5,313.8622 -136,1"

257+ id="path4196"

258+ inkscape:connector-curvature="0"

259+ inkscape:export-xdpi="61.120499"

260+ inkscape:export-ydpi="61.120499" />

261+ <text

262+ sodipodi:linespacing="125%"

263+ id="text4198"

264+ y="334.36218"

265+ x="244"

266+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

267+ xml:space="preserve"

268+ inkscape:export-xdpi="61.120499"

269+ inkscape:export-ydpi="61.120499"><tspan

270+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;"

271+ y="334.36218"

272+ x="244"

273+ id="tspan4200"

274+ sodipodi:role="line">Γ ; ∀ x:S ⊢ valid</tspan></text>

275+ <text

276+ xml:space="preserve"

277+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

278+ x="167"

279+ y="323.36218"

280+ id="text4202"

281+ sodipodi:linespacing="125%"

282+ inkscape:export-xdpi="61.120499"

283+ inkscape:export-ydpi="61.120499"><tspan

284+ sodipodi:role="line"

285+ id="tspan4204"

286+ x="167"

287+ y="323.36218"

288+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;">∀ x:t</tspan></text>

289+ <text

290+ sodipodi:linespacing="125%"

291+ id="text4206"

292+ y="402.36218"

293+ x="255"

294+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

295+ xml:space="preserve"

296+ inkscape:export-xdpi="61.120499"

297+ inkscape:export-ydpi="61.120499"><tspan

298+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;"

299+ y="402.36218"

300+ x="255"

301+ id="tspan4208"

302+ sodipodi:role="line">Γ ⊢ S : Type Γ ⊢ s:S </tspan></text>

303+ <path

304+ inkscape:connector-curvature="0"

305+ id="path4210"

306+ d="m 453.5,407.8622 -210,1"

307+ style="fill:none;fill-rule:evenodd;stroke:#0000ff;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

308+ sodipodi:nodetypes="cc"

309+ inkscape:export-xdpi="61.120499"

310+ inkscape:export-ydpi="61.120499" />

311+ <text

312+ xml:space="preserve"

313+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

314+ x="242"

315+ y="428.36218"

316+ id="text4212"

317+ sodipodi:linespacing="125%"

318+ inkscape:export-xdpi="61.120499"

319+ inkscape:export-ydpi="61.120499"><tspan

320+ sodipodi:role="line"

321+ id="tspan4214"

322+ x="242"

323+ y="428.36218"

324+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;">Γ ; let x ↦ s : S ⊢ valid</tspan></text>

325+ </g>

326+</svg>

docs/image/compareToProofAssist.pngnew file

Binary file not shown.

docs/image/compareToProofAssist.svgnew file+260

@@ -0,0 +1,260 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.91 r13725"

18+ sodipodi:docname="compareToProofAssist.svg">

19+ <defs

20+ id="defs4">

21+ <marker

22+ inkscape:isstock="true"

23+ style="overflow:visible;"

24+ id="marker4251"

25+ refX="0.0"

26+ refY="0.0"

27+ orient="auto"

28+ inkscape:stockid="Arrow1Mend">

29+ <path

30+ transform="scale(0.4) rotate(180) translate(10,0)"

31+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

32+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

33+ id="path4253" />

34+ </marker>

35+ <marker

36+ inkscape:stockid="Arrow1Mend"

37+ orient="auto"

38+ refY="0.0"

39+ refX="0.0"

40+ id="marker5018"

41+ style="overflow:visible;"

42+ inkscape:isstock="true">

43+ <path

44+ id="path5020"

45+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

46+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

47+ transform="scale(0.4) rotate(180) translate(10,0)" />

48+ </marker>

49+ <marker

50+ inkscape:isstock="true"

51+ style="overflow:visible;"

52+ id="marker4436"

53+ refX="0.0"

54+ refY="0.0"

55+ orient="auto"

56+ inkscape:stockid="Arrow1Mend"

57+ inkscape:collect="always">

58+ <path

59+ transform="scale(0.4) rotate(180) translate(10,0)"

60+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

61+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

62+ id="path4438" />

63+ </marker>

64+ <marker

65+ inkscape:stockid="Arrow1Mend"

66+ orient="auto"

67+ refY="0.0"

68+ refX="0.0"

69+ id="Arrow1Mend"

70+ style="overflow:visible;"

71+ inkscape:isstock="true"

72+ inkscape:collect="always">

73+ <path

74+ id="path4167"

75+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

76+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

77+ transform="scale(0.4) rotate(180) translate(10,0)" />

78+ </marker>

79+ </defs>

80+ <sodipodi:namedview

81+ id="base"

82+ pagecolor="#ffffff"

83+ bordercolor="#666666"

84+ borderopacity="1.0"

85+ inkscape:pageopacity="0.0"

86+ inkscape:pageshadow="2"

87+ inkscape:zoom="1"

88+ inkscape:cx="377.89372"

89+ inkscape:cy="520"

90+ inkscape:document-units="px"

91+ inkscape:current-layer="layer1"

92+ showgrid="false"

93+ inkscape:window-width="1920"

94+ inkscape:window-height="1015"

95+ inkscape:window-x="0"

96+ inkscape:window-y="0"

97+ inkscape:window-maximized="1" />

98+ <metadata

99+ id="metadata7">

100+ <rdf:RDF>

101+ <cc:Work

102+ rdf:about="">

103+ <dc:format>image/svg+xml</dc:format>

104+ <dc:type

105+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

106+ <dc:title />

107+ </cc:Work>

108+ </rdf:RDF>

109+ </metadata>

110+ <g

111+ inkscape:label="Layer 1"

112+ inkscape:groupmode="layer"

113+ id="layer1">

114+ <text

115+ xml:space="preserve"

116+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

117+ x="162"

118+ y="326.36221"

119+ id="text4136"

120+ sodipodi:linespacing="125%"

121+ inkscape:export-xdpi="61.120499"

122+ inkscape:export-ydpi="61.120499"><tspan

123+ sodipodi:role="line"

124+ id="tspan4138"

125+ x="162"

126+ y="326.36221"

127+ style="font-size:15px;-inkscape-font-specification:'sans-serif Bold';font-family:sans-serif;font-weight:bold;font-style:normal;font-stretch:normal;font-variant:normal">Human</tspan></text>

128+ <text

129+ sodipodi:linespacing="125%"

130+ id="text4140"

131+ y="368.36221"

132+ x="162"

133+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

134+ xml:space="preserve"

135+ inkscape:export-xdpi="61.120499"

136+ inkscape:export-ydpi="61.120499"><tspan

137+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

138+ y="368.36221"

139+ x="162"

140+ id="tspan4142"

141+ sodipodi:role="line">Tactics</tspan></text>

142+ <text

143+ xml:space="preserve"

144+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

145+ x="161"

146+ y="415.36221"

147+ id="text4144"

148+ sodipodi:linespacing="125%"

149+ inkscape:export-xdpi="61.120499"

150+ inkscape:export-ydpi="61.120499"><tspan

151+ sodipodi:role="line"

152+ id="tspan4146"

153+ x="161"

154+ y="415.36221"

155+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">fill holes</tspan></text>

156+ <text

157+ sodipodi:linespacing="125%"

158+ id="text4148"

159+ y="282.36221"

160+ x="130"

161+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

162+ xml:space="preserve"

163+ inkscape:export-xdpi="61.120499"

164+ inkscape:export-ydpi="61.120499"><tspan

165+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;"

166+ y="282.36221"

167+ x="130"

168+ id="tspan4150"

169+ sodipodi:role="line">Proof assistant</tspan></text>

170+ <path

171+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#Arrow1Mend)"

172+ d="m 188,329.3622 0,22"

173+ id="path4152"

174+ inkscape:connector-curvature="0"

175+ inkscape:export-xdpi="61.120499"

176+ inkscape:export-ydpi="61.120499" />

177+ <path

178+ inkscape:connector-curvature="0"

179+ id="path4434"

180+ d="m 187,373.3622 0,22"

181+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker4436)"

182+ inkscape:export-xdpi="61.120499"

183+ inkscape:export-ydpi="61.120499" />

184+ <text

185+ xml:space="preserve"

186+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

187+ x="314"

188+ y="326.36221"

189+ id="text5002"

190+ sodipodi:linespacing="125%"

191+ inkscape:export-xdpi="61.120499"

192+ inkscape:export-ydpi="61.120499"><tspan

193+ sodipodi:role="line"

194+ id="tspan5004"

195+ x="314"

196+ y="326.36221"

197+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">Idris source</tspan></text>

198+ <text

199+ sodipodi:linespacing="125%"

200+ id="text5006"

201+ y="413.36221"

202+ x="281"

203+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

204+ xml:space="preserve"

205+ inkscape:export-xdpi="61.120499"

206+ inkscape:export-ydpi="61.120499"><tspan

207+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

208+ y="413.36221"

209+ x="281"

210+ id="tspan5008"

211+ sodipodi:role="line">fill holes</tspan><tspan

212+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

213+ y="432.11221"

214+ x="281"

215+ sodipodi:role="line"

216+ id="tspan5060">(implicit variables, etc)</tspan></text>

217+ <text

218+ xml:space="preserve"

219+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

220+ x="294"

221+ y="282.36221"

222+ id="text5010"

223+ sodipodi:linespacing="125%"

224+ inkscape:export-xdpi="61.120499"

225+ inkscape:export-ydpi="61.120499"><tspan

226+ sodipodi:role="line"

227+ id="tspan5012"

228+ x="294"

229+ y="282.36221"

230+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000">Idris Elaborator</tspan></text>

231+ <path

232+ inkscape:connector-curvature="0"

233+ id="path5014"

234+ d="m 342,330.3622 0,22"

235+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker4251)"

236+ inkscape:export-xdpi="61.120499"

237+ inkscape:export-ydpi="61.120499" />

238+ <path

239+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker5018)"

240+ d="m 341,374.3622 0,22"

241+ id="path5016"

242+ inkscape:connector-curvature="0"

243+ inkscape:export-xdpi="61.120499"

244+ inkscape:export-ydpi="61.120499" />

245+ <text

246+ inkscape:export-ydpi="61.120499"

247+ inkscape:export-xdpi="61.120499"

248+ sodipodi:linespacing="125%"

249+ id="text4247"

250+ y="369.36221"

251+ x="317"

252+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

253+ xml:space="preserve"><tspan

254+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

255+ y="369.36221"

256+ x="317"

257+ id="tspan4249"

258+ sodipodi:role="line">Tactics</tspan></text>

259+ </g>

260+</svg>

docs/image/elab.pngnew file

Binary file not shown.

docs/image/elab.svgnew file+139

@@ -0,0 +1,139 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.91 r13725"

18+ sodipodi:docname="elab.svg">

19+ <defs

20+ id="defs4">

21+ <marker

22+ inkscape:stockid="Arrow1Mend"

23+ orient="auto"

24+ refY="0.0"

25+ refX="0.0"

26+ id="Arrow1Mend"

27+ style="overflow:visible;"

28+ inkscape:isstock="true">

29+ <path

30+ id="path4155"

31+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

32+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

33+ transform="scale(0.4) rotate(180) translate(10,0)" />

34+ </marker>

35+ </defs>

36+ <sodipodi:namedview

37+ id="base"

38+ pagecolor="#ffffff"

39+ bordercolor="#666666"

40+ borderopacity="1.0"

41+ inkscape:pageopacity="0.0"

42+ inkscape:pageshadow="2"

43+ inkscape:zoom="1"

44+ inkscape:cx="381.03373"

45+ inkscape:cy="520"

46+ inkscape:document-units="px"

47+ inkscape:current-layer="layer1"

48+ showgrid="false"

49+ inkscape:window-width="1072"

50+ inkscape:window-height="1011"

51+ inkscape:window-x="-4"

52+ inkscape:window-y="0"

53+ inkscape:window-maximized="0" />

54+ <metadata

55+ id="metadata7">

56+ <rdf:RDF>

57+ <cc:Work

58+ rdf:about="">

59+ <dc:format>image/svg+xml</dc:format>

60+ <dc:type

61+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

62+ <dc:title></dc:title>

63+ </cc:Work>

64+ </rdf:RDF>

65+ </metadata>

66+ <g

67+ inkscape:label="Layer 1"

68+ inkscape:groupmode="layer"

69+ id="layer1">

70+ <rect

71+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

72+ id="rect4136"

73+ width="206"

74+ height="77"

75+ x="236"

76+ y="254.3622"

77+ inkscape:export-xdpi="61.120499"

78+ inkscape:export-ydpi="61.120499" />

79+ <rect

80+ y="388.36218"

81+ x="236"

82+ height="77"

83+ width="206"

84+ id="rect4138"

85+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

86+ inkscape:export-xdpi="61.120499"

87+ inkscape:export-ydpi="61.120499" />

88+ <path

89+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#Arrow1Mend)"

90+ d="m 328,331.3622 19,55"

91+ id="path4140"

92+ inkscape:connector-curvature="0"

93+ sodipodi:nodetypes="cc"

94+ inkscape:export-xdpi="61.120499"

95+ inkscape:export-ydpi="61.120499" />

96+ <text

97+ xml:space="preserve"

98+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

99+ x="242"

100+ y="271.36221"

101+ id="text5334"

102+ sodipodi:linespacing="125%"

103+ inkscape:export-xdpi="61.120499"

104+ inkscape:export-ydpi="61.120499"><tspan

105+ sodipodi:role="line"

106+ id="tspan5336"

107+ x="242"

108+ y="271.36221"

109+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">Definition Elaborator</tspan></text>

110+ <text

111+ sodipodi:linespacing="125%"

112+ id="text5338"

113+ y="308.36221"

114+ x="253"

115+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

116+ xml:space="preserve"

117+ inkscape:export-xdpi="61.120499"

118+ inkscape:export-ydpi="61.120499"><tspan

119+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

120+ y="308.36221"

121+ x="253"

122+ id="tspan5340"

123+ sodipodi:role="line">definition context</tspan></text>

124+ <text

125+ xml:space="preserve"

126+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

127+ x="243"

128+ y="409.36221"

129+ id="text5342"

130+ sodipodi:linespacing="125%"

131+ inkscape:export-xdpi="61.120499"

132+ inkscape:export-ydpi="61.120499"><tspan

133+ sodipodi:role="line"

134+ id="tspan5344"

135+ x="243"

136+ y="409.36221"

137+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">Term Elaborator</tspan></text>

138+ </g>

139+</svg>

docs/image/elabLogicEx1_1.pngnew file

Binary file not shown.

docs/image/elabLogicEx1_1.svgnew file+99

@@ -0,0 +1,99 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.92.2 5c3e80d, 2017-08-06"

18+ sodipodi:docname="elabLogicEx1_1.svg"

19+ inkscape:export-filename="/home/mjb/Idris-dev/docs/image/elabLogicEx1_1.png"

20+ inkscape:export-xdpi="61.120499"

21+ inkscape:export-ydpi="61.120499">

22+ <defs

23+ id="defs4" />

24+ <sodipodi:namedview

25+ id="base"

26+ pagecolor="#ffffff"

27+ bordercolor="#666666"

28+ borderopacity="1.0"

29+ inkscape:pageopacity="0.0"

30+ inkscape:pageshadow="2"

31+ inkscape:zoom="1"

32+ inkscape:cx="97.25613"

33+ inkscape:cy="593.17666"

34+ inkscape:document-units="px"

35+ inkscape:current-layer="layer1"

36+ showgrid="false"

37+ inkscape:window-width="1920"

38+ inkscape:window-height="1015"

39+ inkscape:window-x="0"

40+ inkscape:window-y="0"

41+ inkscape:window-maximized="1" />

42+ <metadata

43+ id="metadata7">

44+ <rdf:RDF>

45+ <cc:Work

46+ rdf:about="">

47+ <dc:format>image/svg+xml</dc:format>

48+ <dc:type

49+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

50+ <dc:title />

51+ </cc:Work>

52+ </rdf:RDF>

53+ </metadata>

54+ <g

55+ inkscape:label="Layer 1"

56+ inkscape:groupmode="layer"

57+ id="layer1">

58+ <text

59+ id="text4800"

60+ y="473.36218"

61+ x="205"

62+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

63+ xml:space="preserve"

64+ inkscape:export-xdpi="61.120499"

65+ inkscape:export-ydpi="61.120499"><tspan

66+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

67+ y="473.36218"

68+ x="205"

69+ sodipodi:role="line"

70+ id="tspan4812">hole_2 : pi_arg : Nat -> Nat</tspan></text>

71+ <text

72+ inkscape:export-ydpi="61.120499"

73+ inkscape:export-xdpi="61.120499"

74+ xml:space="preserve"

75+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

76+ x="428.125"

77+ y="472.23718"

78+ id="text4178"><tspan

79+ id="tspan4180"

80+ sodipodi:role="line"

81+ x="428.125"

82+ y="472.23718"

83+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">hole_0 : pi_arg : Nat -> Nat</tspan></text>

84+ <path

85+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

86+ d="m 423.125,456.2372 185,-1"

87+ id="path4182"

88+ inkscape:connector-curvature="0"

89+ inkscape:export-xdpi="61.120499"

90+ inkscape:export-ydpi="61.120499" />

91+ <path

92+ inkscape:connector-curvature="0"

93+ id="path4184"

94+ d="m 200,456.3622 185,-1"

95+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

96+ inkscape:export-xdpi="61.120499"

97+ inkscape:export-ydpi="61.120499" />

98+ </g>

99+</svg>

docs/image/elabLogicEx1_2.pngnew file

Binary file not shown.

docs/image/elabLogicEx1_2.svgnew file+112

@@ -0,0 +1,112 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.92.2 5c3e80d, 2017-08-06"

18+ sodipodi:docname="elabLogicEx1_2.svg"

19+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/elabLogicEx1_1.png"

20+ inkscape:export-xdpi="61.120499"

21+ inkscape:export-ydpi="61.120499">

22+ <defs

23+ id="defs4" />

24+ <sodipodi:namedview

25+ id="base"

26+ pagecolor="#ffffff"

27+ bordercolor="#666666"

28+ borderopacity="1.0"

29+ inkscape:pageopacity="0.0"

30+ inkscape:pageshadow="2"

31+ inkscape:zoom="1"

32+ inkscape:cx="425.25613"

33+ inkscape:cy="593.17666"

34+ inkscape:document-units="px"

35+ inkscape:current-layer="layer1"

36+ showgrid="false"

37+ inkscape:window-width="1920"

38+ inkscape:window-height="1015"

39+ inkscape:window-x="0"

40+ inkscape:window-y="0"

41+ inkscape:window-maximized="1" />

42+ <metadata

43+ id="metadata7">

44+ <rdf:RDF>

45+ <cc:Work

46+ rdf:about="">

47+ <dc:format>image/svg+xml</dc:format>

48+ <dc:type

49+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

50+ <dc:title />

51+ </cc:Work>

52+ </rdf:RDF>

53+ </metadata>

54+ <g

55+ inkscape:label="Layer 1"

56+ inkscape:groupmode="layer"

57+ id="layer1">

58+ <text

59+ id="text4800"

60+ y="473.36218"

61+ x="205"

62+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

63+ xml:space="preserve"

64+ inkscape:export-xdpi="61.120499"

65+ inkscape:export-ydpi="61.120499"><tspan

66+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

67+ y="473.36218"

68+ x="205"

69+ sodipodi:role="line"

70+ id="tspan4812">hole_2 : Nat</tspan></text>

71+ <text

72+ inkscape:export-ydpi="61.120499"

73+ inkscape:export-xdpi="61.120499"

74+ xml:space="preserve"

75+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

76+ x="422.5"

77+ y="472.23718"

78+ id="text4178"><tspan

79+ id="tspan4180"

80+ sodipodi:role="line"

81+ x="422.5"

82+ y="472.23718"

83+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">hole_0 : (pi_arg : Nat) -> Nat</tspan></text>

84+ <path

85+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

86+ d="m 417.5,456.2372 185,-1"

87+ id="path4182"

88+ inkscape:connector-curvature="0"

89+ inkscape:export-xdpi="61.120499"

90+ inkscape:export-ydpi="61.120499" />

91+ <path

92+ inkscape:connector-curvature="0"

93+ id="path4184"

94+ d="m 200,456.3622 185,-1"

95+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

96+ inkscape:export-xdpi="61.120499"

97+ inkscape:export-ydpi="61.120499" />

98+ <text

99+ inkscape:export-ydpi="61.120499"

100+ inkscape:export-xdpi="61.120499"

101+ xml:space="preserve"

102+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

103+ x="229"

104+ y="447.36218"

105+ id="text4147"><tspan

106+ id="tspan4149"

107+ sodipodi:role="line"

108+ x="229"

109+ y="447.36218"

110+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">x : Nat</tspan></text>

111+ </g>

112+</svg>

docs/image/elabLogicEx1_3.pngnew file

Binary file not shown.

docs/image/elabLogicEx1_3.svgnew file+112

@@ -0,0 +1,112 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.92.2 5c3e80d, 2017-08-06"

18+ sodipodi:docname="elabLogicEx1_3.svg"

19+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/elabLogicEx1_1.png"

20+ inkscape:export-xdpi="61.120499"

21+ inkscape:export-ydpi="61.120499">

22+ <defs

23+ id="defs4" />

24+ <sodipodi:namedview

25+ id="base"

26+ pagecolor="#ffffff"

27+ bordercolor="#666666"

28+ borderopacity="1.0"

29+ inkscape:pageopacity="0.0"

30+ inkscape:pageshadow="2"

31+ inkscape:zoom="1"

32+ inkscape:cx="425.25613"

33+ inkscape:cy="593.17666"

34+ inkscape:document-units="px"

35+ inkscape:current-layer="layer1"

36+ showgrid="false"

37+ inkscape:window-width="1920"

38+ inkscape:window-height="1015"

39+ inkscape:window-x="0"

40+ inkscape:window-y="0"

41+ inkscape:window-maximized="1" />

42+ <metadata

43+ id="metadata7">

44+ <rdf:RDF>

45+ <cc:Work

46+ rdf:about="">

47+ <dc:format>image/svg+xml</dc:format>

48+ <dc:type

49+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

50+ <dc:title />

51+ </cc:Work>

52+ </rdf:RDF>

53+ </metadata>

54+ <g

55+ inkscape:label="Layer 1"

56+ inkscape:groupmode="layer"

57+ id="layer1">

58+ <text

59+ id="text4800"

60+ y="473.36218"

61+ x="205"

62+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

63+ xml:space="preserve"

64+ inkscape:export-xdpi="61.120499"

65+ inkscape:export-ydpi="61.120499"><tspan

66+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

67+ y="473.36218"

68+ x="205"

69+ sodipodi:role="line"

70+ id="tspan4812">hole_2 : Nat</tspan></text>

71+ <text

72+ inkscape:export-ydpi="61.120499"

73+ inkscape:export-xdpi="61.120499"

74+ xml:space="preserve"

75+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

76+ x="439.375"

77+ y="472.23718"

78+ id="text4178"><tspan

79+ id="tspan4180"

80+ sodipodi:role="line"

81+ x="439.375"

82+ y="472.23718"

83+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">hole_0 : (pi_arg : Nat) -> Nat</tspan></text>

84+ <path

85+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

86+ d="m 434.375,456.2372 185,-1"

87+ id="path4182"

88+ inkscape:connector-curvature="0"

89+ inkscape:export-xdpi="61.120499"

90+ inkscape:export-ydpi="61.120499" />

91+ <path

92+ inkscape:connector-curvature="0"

93+ id="path4184"

94+ d="m 200,456.3622 185,-1"

95+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

96+ inkscape:export-xdpi="61.120499"

97+ inkscape:export-ydpi="61.120499" />

98+ <text

99+ inkscape:export-ydpi="61.120499"

100+ inkscape:export-xdpi="61.120499"

101+ xml:space="preserve"

102+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

103+ x="229"

104+ y="447.36218"

105+ id="text4147"><tspan

106+ id="tspan4149"

107+ sodipodi:role="line"

108+ x="229"

109+ y="447.36218"

110+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">x : Nat</tspan></text>

111+ </g>

112+</svg>

docs/image/elabLogicEx1_4.pngnew file

Binary file not shown.

docs/image/elabLogicEx1_4.svgnew file+80

@@ -0,0 +1,80 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.91 r13725"

18+ sodipodi:docname="elabLogicEx1_4.svg"

19+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/elabLogicEx1_1.png"

20+ inkscape:export-xdpi="61.120499"

21+ inkscape:export-ydpi="61.120499">

22+ <defs

23+ id="defs4" />

24+ <sodipodi:namedview

25+ id="base"

26+ pagecolor="#ffffff"

27+ bordercolor="#666666"

28+ borderopacity="1.0"

29+ inkscape:pageopacity="0.0"

30+ inkscape:pageshadow="2"

31+ inkscape:zoom="1"

32+ inkscape:cx="425.25613"

33+ inkscape:cy="593.17666"

34+ inkscape:document-units="px"

35+ inkscape:current-layer="layer1"

36+ showgrid="false"

37+ inkscape:window-width="1157"

38+ inkscape:window-height="1011"

39+ inkscape:window-x="-4"

40+ inkscape:window-y="0"

41+ inkscape:window-maximized="0" />

42+ <metadata

43+ id="metadata7">

44+ <rdf:RDF>

45+ <cc:Work

46+ rdf:about="">

47+ <dc:format>image/svg+xml</dc:format>

48+ <dc:type

49+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

50+ <dc:title />

51+ </cc:Work>

52+ </rdf:RDF>

53+ </metadata>

54+ <g

55+ inkscape:label="Layer 1"

56+ inkscape:groupmode="layer"

57+ id="layer1">

58+ <text

59+ inkscape:export-ydpi="61.120499"

60+ inkscape:export-xdpi="61.120499"

61+ xml:space="preserve"

62+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

63+ x="205"

64+ y="500.36218"

65+ id="text4178"

66+ sodipodi:linespacing="125%"><tspan

67+ id="tspan4180"

68+ sodipodi:role="line"

69+ x="205"

70+ y="500.36218"

71+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">hole_0 : (pi_arg : Nat) -> Nat</tspan></text>

72+ <path

73+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;stroke-miterlimit:4;stroke-dasharray:none"

74+ d="m 200,484.3622 185,-1"

75+ id="path4182"

76+ inkscape:connector-curvature="0"

77+ inkscape:export-xdpi="61.120499"

78+ inkscape:export-ydpi="61.120499" />

79+ </g>

80+</svg>

docs/image/elabOverview.pngnew file

Binary file not shown.

docs/image/elabOverview.svgnew file+585

@@ -0,0 +1,585 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.91 r13725"

18+ sodipodi:docname="elabOverview.svg"

19+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/data.png"

20+ inkscape:export-xdpi="61.120499"

21+ inkscape:export-ydpi="61.120499">

22+ <defs

23+ id="defs4">

24+ <marker

25+ inkscape:stockid="Arrow1Mend"

26+ orient="auto"

27+ refY="0.0"

28+ refX="0.0"

29+ id="marker4738"

30+ style="overflow:visible;"

31+ inkscape:isstock="true">

32+ <path

33+ id="path4491"

34+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

35+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

36+ transform="scale(0.4) rotate(180) translate(10,0)" />

37+ </marker>

38+ <marker

39+ inkscape:stockid="Arrow1Mend"

40+ orient="auto"

41+ refY="0.0"

42+ refX="0.0"

43+ id="marker4672"

44+ style="overflow:visible;"

45+ inkscape:isstock="true">

46+ <path

47+ id="path4425"

48+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

49+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

50+ transform="scale(0.4) rotate(180) translate(10,0)" />

51+ </marker>

52+ <marker

53+ inkscape:stockid="Arrow1Mend"

54+ orient="auto"

55+ refY="0.0"

56+ refX="0.0"

57+ id="Arrow1Mend"

58+ style="overflow:visible;"

59+ inkscape:isstock="true">

60+ <path

61+ id="path4418"

62+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

63+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

64+ transform="scale(0.4) rotate(180) translate(10,0)" />

65+ </marker>

66+ <marker

67+ inkscape:stockid="Arrow1Mend"

68+ orient="auto"

69+ refY="0"

70+ refX="0"

71+ id="marker5018"

72+ style="overflow:visible"

73+ inkscape:isstock="true">

74+ <path

75+ inkscape:connector-curvature="0"

76+ id="path5020"

77+ d="M 0,0 5,-5 -12.5,0 5,5 0,0 Z"

78+ style="fill:#000000;fill-opacity:1;fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1"

79+ transform="matrix(-0.4,0,0,-0.4,-4,0)" />

80+ </marker>

81+ </defs>

82+ <sodipodi:namedview

83+ id="base"

84+ pagecolor="#ffffff"

85+ bordercolor="#666666"

86+ borderopacity="1.0"

87+ inkscape:pageopacity="0.0"

88+ inkscape:pageshadow="2"

89+ inkscape:zoom="1"

90+ inkscape:cx="258.17464"

91+ inkscape:cy="544.34419"

92+ inkscape:document-units="px"

93+ inkscape:current-layer="layer1"

94+ showgrid="false"

95+ inkscape:window-width="1920"

96+ inkscape:window-height="1015"

97+ inkscape:window-x="0"

98+ inkscape:window-y="0"

99+ inkscape:window-maximized="1" />

100+ <metadata

101+ id="metadata7">

102+ <rdf:RDF>

103+ <cc:Work

104+ rdf:about="">

105+ <dc:format>image/svg+xml</dc:format>

106+ <dc:type

107+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

108+ <dc:title />

109+ </cc:Work>

110+ </rdf:RDF>

111+ </metadata>

112+ <g

113+ inkscape:label="Layer 1"

114+ inkscape:groupmode="layer"

115+ id="layer1">

116+ <text

117+ xml:space="preserve"

118+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

119+ x="268"

120+ y="495.36218"

121+ id="text4136"

122+ sodipodi:linespacing="125%"

123+ inkscape:export-xdpi="61.120499"

124+ inkscape:export-ydpi="61.120499"><tspan

125+ sodipodi:role="line"

126+ id="tspan4138"

127+ x="268"

128+ y="495.36218"

129+ style="font-size:12.5px">data TT : Type where</tspan><tspan

130+ sodipodi:role="line"

131+ x="268"

132+ y="510.98718"

133+ id="tspan4140"

134+ style="font-size:12.5px"> P : NameType -> TTName -> TT -> TT</tspan><tspan

135+ sodipodi:role="line"

136+ x="268"

137+ y="526.61218"

138+ style="font-size:12.5px"

139+ id="tspan4142"> V : Int -> TT</tspan><tspan

140+ sodipodi:role="line"

141+ x="268"

142+ y="542.23718"

143+ style="font-size:12.5px"

144+ id="tspan4144"> Bind : TTName -> Binder TT -> TT -> TT</tspan><tspan

145+ sodipodi:role="line"

146+ x="268"

147+ y="557.86218"

148+ style="font-size:12.5px"

149+ id="tspan4146"> App : TT -> TT -> TT</tspan><tspan

150+ sodipodi:role="line"

151+ x="268"

152+ y="573.48718"

153+ style="font-size:12.5px"

154+ id="tspan4148"> TConst : Const -> TT</tspan><tspan

155+ sodipodi:role="line"

156+ x="268"

157+ y="589.11218"

158+ style="font-size:12.5px"

159+ id="tspan4150"> Erased : TT</tspan><tspan

160+ sodipodi:role="line"

161+ x="268"

162+ y="604.73718"

163+ style="font-size:12.5px"

164+ id="tspan4152"> TType : TTUExp -> TT</tspan><tspan

165+ sodipodi:role="line"

166+ x="268"

167+ y="620.36218"

168+ style="font-size:12.5px"

169+ id="tspan4154"> UType : Universe -> TT</tspan></text>

170+ <text

171+ sodipodi:linespacing="125%"

172+ id="text4156"

173+ y="485.36218"

174+ x="509"

175+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:40px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

176+ xml:space="preserve"

177+ inkscape:export-xdpi="61.120499"

178+ inkscape:export-ydpi="61.120499"><tspan

179+ id="tspan4174"

180+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

181+ y="485.36218"

182+ x="509"

183+ sodipodi:role="line">globally defined variable</tspan><tspan

184+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

185+ y="500.98718"

186+ x="509"

187+ sodipodi:role="line"

188+ id="tspan4197"> from name</tspan></text>

189+ <path

190+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

191+ d="m 486,500.3622 19,-14"

192+ id="path4220"

193+ inkscape:connector-curvature="0"

194+ inkscape:export-xdpi="61.120499"

195+ inkscape:export-ydpi="61.120499"

196+ sodipodi:nodetypes="cc" />

197+ <text

198+ xml:space="preserve"

199+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:40px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

200+ x="392"

201+ y="526.36218"

202+ id="text4222"

203+ sodipodi:linespacing="125%"

204+ inkscape:export-xdpi="61.120499"

205+ inkscape:export-ydpi="61.120499"><tspan

206+ sodipodi:role="line"

207+ x="392"

208+ y="526.36218"

209+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

210+ id="tspan4224">local (de Bruijn) variable</tspan></text>

211+ <path

212+ inkscape:connector-curvature="0"

213+ id="path4226"

214+ d="m 351,524.3622 34,-4"

215+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

216+ sodipodi:nodetypes="cc"

217+ inkscape:export-xdpi="61.120499"

218+ inkscape:export-ydpi="61.120499" />

219+ <text

220+ xml:space="preserve"

221+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:40px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

222+ x="537"

223+ y="533.36218"

224+ id="text4228"

225+ sodipodi:linespacing="125%"

226+ inkscape:export-xdpi="61.120499"

227+ inkscape:export-ydpi="61.120499"><tspan

228+ sodipodi:role="line"

229+ x="537"

230+ y="533.36218"

231+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

232+ id="tspan4230">any kind of binder</tspan><tspan

233+ sodipodi:role="line"

234+ x="537"

235+ y="548.98718"

236+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

237+ id="tspan4234">lambda, let etc.</tspan></text>

238+ <path

239+ inkscape:connector-curvature="0"

240+ id="path4232"

241+ d="m 494,538.3622 39,-8"

242+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

243+ inkscape:export-xdpi="61.120499"

244+ inkscape:export-ydpi="61.120499"

245+ sodipodi:nodetypes="cc" />

246+ <text

247+ xml:space="preserve"

248+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:40px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

249+ x="417"

250+ y="555.36218"

251+ id="text4236"

252+ sodipodi:linespacing="125%"

253+ inkscape:export-xdpi="61.120499"

254+ inkscape:export-ydpi="61.120499"><tspan

255+ sodipodi:role="line"

256+ x="417"

257+ y="555.36218"

258+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

259+ id="tspan4238">function application</tspan></text>

260+ <path

261+ inkscape:connector-curvature="0"

262+ id="path4240"

263+ d="m 392,554.3622 22,-2"

264+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

265+ sodipodi:nodetypes="cc"

266+ inkscape:export-xdpi="61.120499"

267+ inkscape:export-ydpi="61.120499" />

268+ <text

269+ sodipodi:linespacing="125%"

270+ id="text4253"

271+ y="569.36218"

272+ x="421"

273+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:40px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

274+ xml:space="preserve"

275+ inkscape:export-xdpi="61.120499"

276+ inkscape:export-ydpi="61.120499"><tspan

277+ id="tspan4255"

278+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

279+ y="569.36218"

280+ x="421"

281+ sodipodi:role="line">intager, char, string, etc.</tspan></text>

282+ <path

283+ sodipodi:nodetypes="cc"

284+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

285+ d="m 396,568.3622 22,-2"

286+ id="path4257"

287+ inkscape:connector-curvature="0"

288+ inkscape:export-xdpi="61.120499"

289+ inkscape:export-ydpi="61.120499" />

290+ <text

291+ xml:space="preserve"

292+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:40px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

293+ x="374"

294+ y="586.36218"

295+ id="text4270"

296+ sodipodi:linespacing="125%"

297+ inkscape:export-xdpi="61.120499"

298+ inkscape:export-ydpi="61.120499"><tspan

299+ sodipodi:role="line"

300+ x="374"

301+ y="586.36218"

302+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

303+ id="tspan4272">unknown term for erasing types</tspan></text>

304+ <path

305+ inkscape:connector-curvature="0"

306+ id="path4274"

307+ d="m 349,585.3622 22,-2"

308+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

309+ sodipodi:nodetypes="cc"

310+ inkscape:export-xdpi="61.120499"

311+ inkscape:export-ydpi="61.120499" />

312+ <text

313+ sodipodi:linespacing="125%"

314+ id="text4276"

315+ y="603.36218"

316+ x="429"

317+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:40px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

318+ xml:space="preserve"

319+ inkscape:export-xdpi="61.120499"

320+ inkscape:export-ydpi="61.120499"><tspan

321+ id="tspan4278"

322+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

323+ y="603.36218"

324+ x="429"

325+ sodipodi:role="line">type of types</tspan></text>

326+ <path

327+ sodipodi:nodetypes="cc"

328+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

329+ d="m 404,602.3622 22,-2"

330+ id="path4280"

331+ inkscape:connector-curvature="0"

332+ inkscape:export-xdpi="61.120499"

333+ inkscape:export-ydpi="61.120499" />

334+ <text

335+ xml:space="preserve"

336+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:40px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

337+ x="433"

338+ y="619.36218"

339+ id="text4293"

340+ sodipodi:linespacing="125%"

341+ inkscape:export-xdpi="61.120499"

342+ inkscape:export-ydpi="61.120499"><tspan

343+ sodipodi:role="line"

344+ x="433"

345+ y="619.36218"

346+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

347+ id="tspan4295">unique universe</tspan></text>

348+ <path

349+ inkscape:connector-curvature="0"

350+ id="path4297"

351+ d="m 408,618.3622 22,-2"

352+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

353+ sodipodi:nodetypes="cc"

354+ inkscape:export-xdpi="61.120499"

355+ inkscape:export-ydpi="61.120499" />

356+ <text

357+ sodipodi:linespacing="125%"

358+ id="text4397"

359+ y="463.36218"

360+ x="375"

361+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:40px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

362+ xml:space="preserve"

363+ inkscape:export-xdpi="61.120499"

364+ inkscape:export-ydpi="61.120499"><tspan

365+ id="tspan4399"

366+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff"

367+ y="463.36218"

368+ x="375"

369+ sodipodi:role="line">elements of core language</tspan></text>

370+ <rect

371+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

372+ id="rect4400"

373+ width="392"

374+ height="185"

375+ x="262"

376+ y="447.36218"

377+ inkscape:export-xdpi="61.120499"

378+ inkscape:export-ydpi="61.120499" />

379+ <text

380+ xml:space="preserve"

381+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

382+ x="264"

383+ y="466.36218"

384+ id="text4402"

385+ sodipodi:linespacing="125%"

386+ inkscape:export-xdpi="61.120499"

387+ inkscape:export-ydpi="61.120499"><tspan

388+ sodipodi:role="line"

389+ id="tspan4404"

390+ x="264"

391+ y="466.36218"

392+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">TT</tspan></text>

393+ <text

394+ inkscape:export-ydpi="61.120499"

395+ inkscape:export-xdpi="61.120499"

396+ sodipodi:linespacing="125%"

397+ id="text4328"

398+ y="262.36218"

399+ x="96"

400+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

401+ xml:space="preserve"><tspan

402+ id="tspan4346"

403+ style="font-size:12.5px"

404+ y="262.36218"

405+ x="96"

406+ sodipodi:role="line">env</tspan><tspan

407+ style="font-size:12.5px"

408+ y="277.98718"

409+ x="96"

410+ sodipodi:role="line"

411+ id="tspan4454">goal</tspan><tspan

412+ style="font-size:12.5px"

413+ y="293.61218"

414+ x="96"

415+ sodipodi:role="line"

416+ id="tspan4456">holes</tspan><tspan

417+ style="font-size:12.5px"

418+ y="309.23718"

419+ x="96"

420+ sodipodi:role="line"

421+ id="tspan4458">guess</tspan></text>

422+ <text

423+ inkscape:export-ydpi="61.120499"

424+ inkscape:export-xdpi="61.120499"

425+ xml:space="preserve"

426+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:40px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

427+ x="163"

428+ y="262.36218"

429+ id="text4348"

430+ sodipodi:linespacing="125%"><tspan

431+ id="tspan4352"

432+ sodipodi:role="line"

433+ x="163"

434+ y="262.36218"

435+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000">Elab (List (TTName, Binder TT)</tspan><tspan

436+ sodipodi:role="line"

437+ x="163"

438+ y="277.98718"

439+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

440+ id="tspan4462">Elab (TTName,TT)</tspan><tspan

441+ sodipodi:role="line"

442+ x="163"

443+ y="293.61218"

444+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

445+ id="tspan4464">Elab (List TTName)</tspan><tspan

446+ sodipodi:role="line"

447+ x="163"

448+ y="309.23718"

449+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

450+ id="tspan4466">Elab (TT)</tspan></text>

451+ <path

452+ inkscape:export-ydpi="61.120499"

453+ inkscape:export-xdpi="61.120499"

454+ sodipodi:nodetypes="cc"

455+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

456+ d="M 124.13676,260.36509 158,260.3622"

457+ id="path4360"

458+ inkscape:connector-curvature="0" />

459+ <text

460+ inkscape:export-ydpi="61.120499"

461+ inkscape:export-xdpi="61.120499"

462+ xml:space="preserve"

463+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:40px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

464+ x="64"

465+ y="286.36218"

466+ id="text4400"

467+ sodipodi:linespacing="125%"><tspan

468+ sodipodi:role="line"

469+ x="64"

470+ y="286.36218"

471+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff"

472+ id="tspan4402">state</tspan></text>

473+ <rect

474+ inkscape:export-ydpi="61.120499"

475+ inkscape:export-xdpi="61.120499"

476+ y="219.36218"

477+ x="53"

478+ height="224"

479+ width="289"

480+ id="rect4404"

481+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1" />

482+ <text

483+ inkscape:export-ydpi="61.120499"

484+ inkscape:export-xdpi="61.120499"

485+ sodipodi:linespacing="125%"

486+ id="text4406"

487+ y="238.36218"

488+ x="55"

489+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

490+ xml:space="preserve"><tspan

491+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

492+ y="238.36218"

493+ x="55"

494+ id="tspan4408"

495+ sodipodi:role="line">Elab Monad</tspan></text>

496+ <path

497+ inkscape:connector-curvature="0"

498+ id="path4468"

499+ d="M 124.13676,274.36509 158,274.3622"

500+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

501+ sodipodi:nodetypes="cc"

502+ inkscape:export-xdpi="61.120499"

503+ inkscape:export-ydpi="61.120499" />

504+ <path

505+ inkscape:export-ydpi="61.120499"

506+ inkscape:export-xdpi="61.120499"

507+ sodipodi:nodetypes="cc"

508+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

509+ d="M 128.13676,288.36509 158,288.3622"

510+ id="path4470"

511+ inkscape:connector-curvature="0" />

512+ <path

513+ inkscape:connector-curvature="0"

514+ id="path4472"

515+ d="M 132.13676,304.36509 158,304.3622"

516+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

517+ sodipodi:nodetypes="cc"

518+ inkscape:export-xdpi="61.120499"

519+ inkscape:export-ydpi="61.120499" />

520+ <path

521+ style="fill:none;fill-rule:evenodd;stroke:#0000ff;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker4738)"

522+ d="m 275,272.3622 c 75.17677,4.63671 121.00356,120.13548 126,174"

523+ id="path4476"

524+ inkscape:connector-curvature="0"

525+ sodipodi:nodetypes="cc"

526+ inkscape:export-xdpi="61.120499"

527+ inkscape:export-ydpi="61.120499" />

528+ <path

529+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#Arrow1Mend)"

530+ d="m 189,320.3622 c 50.81716,51.06633 -107.1143,53.76268 -56,0"

531+ id="path12613"

532+ inkscape:connector-curvature="0"

533+ sodipodi:nodetypes="cc"

534+ inkscape:export-xdpi="61.120499"

535+ inkscape:export-ydpi="61.120499" />

536+ <text

537+ xml:space="preserve"

538+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

539+ x="147"

540+ y="373.36218"

541+ id="text15201"

542+ sodipodi:linespacing="125%"

543+ inkscape:export-xdpi="61.120499"

544+ inkscape:export-ydpi="61.120499"><tspan

545+ id="tspan15209"

546+ sodipodi:role="line"

547+ x="147"

548+ y="373.36218"

549+ style="font-size:12.5px">solve</tspan><tspan

550+ sodipodi:role="line"

551+ x="147"

552+ y="388.98718"

553+ style="font-size:12.5px"

554+ id="tspan15220">fill</tspan><tspan

555+ sodipodi:role="line"

556+ x="147"

557+ y="404.61218"

558+ style="font-size:12.5px"

559+ id="tspan15222">apply</tspan><tspan

560+ sodipodi:role="line"

561+ x="147"

562+ y="420.23718"

563+ style="font-size:12.5px"

564+ id="tspan15224">focus</tspan><tspan

565+ sodipodi:role="line"

566+ x="147"

567+ y="435.86218"

568+ style="font-size:12.5px"

569+ id="tspan15226">...</tspan></text>

570+ <text

571+ sodipodi:linespacing="125%"

572+ id="text18672"

573+ y="396.36218"

574+ x="94"

575+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:40px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

576+ xml:space="preserve"

577+ inkscape:export-xdpi="61.120499"

578+ inkscape:export-ydpi="61.120499"><tspan

579+ id="tspan18674"

580+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff"

581+ y="396.36218"

582+ x="94"

583+ sodipodi:role="line">tactics</tspan></text>

584+ </g>

585+</svg>

docs/image/elabProofState.pngnew file

Binary file not shown.

docs/image/elabProofState.svgnew file+356

@@ -0,0 +1,356 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.91 r13725"

18+ sodipodi:docname="elabProofState.svg">

19+ <defs

20+ id="defs4" />

21+ <sodipodi:namedview

22+ id="base"

23+ pagecolor="#ffffff"

24+ bordercolor="#666666"

25+ borderopacity="1.0"

26+ inkscape:pageopacity="0.0"

27+ inkscape:pageshadow="2"

28+ inkscape:zoom="1"

29+ inkscape:cx="252.75613"

30+ inkscape:cy="520"

31+ inkscape:document-units="px"

32+ inkscape:current-layer="layer1"

33+ showgrid="false"

34+ inkscape:window-width="1920"

35+ inkscape:window-height="1015"

36+ inkscape:window-x="0"

37+ inkscape:window-y="0"

38+ inkscape:window-maximized="1" />

39+ <metadata

40+ id="metadata7">

41+ <rdf:RDF>

42+ <cc:Work

43+ rdf:about="">

44+ <dc:format>image/svg+xml</dc:format>

45+ <dc:type

46+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

47+ <dc:title />

48+ </cc:Work>

49+ </rdf:RDF>

50+ </metadata>

51+ <g

52+ inkscape:label="Layer 1"

53+ inkscape:groupmode="layer"

54+ id="layer1">

55+ <text

56+ sodipodi:linespacing="125%"

57+ id="text4148"

58+ y="330.36218"

59+ x="219"

60+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

61+ xml:space="preserve"

62+ inkscape:export-xdpi="61.120499"

63+ inkscape:export-ydpi="61.120499"><tspan

64+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

65+ y="330.36218"

66+ x="219"

67+ id="tspan4150"

68+ sodipodi:role="line">current proof</tspan><tspan

69+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

70+ y="349.11218"

71+ x="219"

72+ sodipodi:role="line"

73+ id="tspan4206"> term</tspan></text>

74+ <text

75+ xml:space="preserve"

76+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

77+ x="240"

78+ y="303.36218"

79+ id="text4160"

80+ sodipodi:linespacing="125%"

81+ inkscape:export-xdpi="61.120499"

82+ inkscape:export-ydpi="61.120499"><tspan

83+ sodipodi:role="line"

84+ id="tspan4162"

85+ x="240"

86+ y="303.36218"

87+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">(TTName, TT)</tspan></text>

88+ <text

89+ sodipodi:linespacing="125%"

90+ id="text4202"

91+ y="392.36218"

92+ x="355"

93+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

94+ xml:space="preserve"

95+ inkscape:export-xdpi="61.120499"

96+ inkscape:export-ydpi="61.120499"><tspan

97+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

98+ y="392.36218"

99+ x="355"

100+ id="tspan4204"

101+ sodipodi:role="line">original goal</tspan></text>

102+ <text

103+ xml:space="preserve"

104+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

105+ x="213"

106+ y="377.36218"

107+ id="text4208"

108+ sodipodi:linespacing="125%"

109+ inkscape:export-xdpi="61.120499"

110+ inkscape:export-ydpi="61.120499"><tspan

111+ id="tspan4212"

112+ sodipodi:role="line"

113+ x="213"

114+ y="377.36218"

115+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">path</tspan><tspan

116+ sodipodi:role="line"

117+ x="213"

118+ y="396.11218"

119+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

120+ id="tspan4216">subterm</tspan><tspan

121+ sodipodi:role="line"

122+ x="213"

123+ y="414.86218"

124+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

125+ id="tspan4218">updates</tspan></text>

126+ <text

127+ sodipodi:linespacing="125%"

128+ id="text4230"

129+ y="487.36218"

130+ x="148"

131+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

132+ xml:space="preserve"

133+ inkscape:export-xdpi="61.120499"

134+ inkscape:export-ydpi="61.120499"><tspan

135+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

136+ y="487.36218"

137+ x="148"

138+ sodipodi:role="line"

139+ id="tspan4243">Contexts used for global definitions and for proof state.</tspan><tspan

140+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

141+ y="506.11218"

142+ x="148"

143+ sodipodi:role="line"

144+ id="tspan4190">They contain universe constraints and existing definitions.</tspan><tspan

145+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

146+ y="524.86218"

147+ x="148"

148+ sodipodi:role="line"

149+ id="tspan4253">Also store maximum RigCount of the namel</tspan></text>

150+ <text

151+ inkscape:export-ydpi="61.120499"

152+ inkscape:export-xdpi="61.120499"

153+ sodipodi:linespacing="125%"

154+ id="text4173"

155+ y="198.36218"

156+ x="135"

157+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

158+ xml:space="preserve"><tspan

159+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1"

160+ y="198.36218"

161+ x="135"

162+ id="tspan4175"

163+ sodipodi:role="line">Environment</tspan></text>

164+ <text

165+ xml:space="preserve"

166+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

167+ x="350"

168+ y="197.36218"

169+ id="text4177"

170+ sodipodi:linespacing="125%"

171+ inkscape:export-xdpi="61.120499"

172+ inkscape:export-ydpi="61.120499"><tspan

173+ sodipodi:role="line"

174+ id="tspan4179"

175+ x="350"

176+ y="197.36218"

177+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1">Holes</tspan></text>

178+ <text

179+ inkscape:export-ydpi="61.120499"

180+ inkscape:export-xdpi="61.120499"

181+ sodipodi:linespacing="125%"

182+ id="text4181"

183+ y="197.36218"

184+ x="460"

185+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

186+ xml:space="preserve"><tspan

187+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1"

188+ y="197.36218"

189+ x="460"

190+ id="tspan4183"

191+ sodipodi:role="line">Guess</tspan></text>

192+ <text

193+ inkscape:export-ydpi="61.120499"

194+ inkscape:export-xdpi="61.120499"

195+ sodipodi:linespacing="125%"

196+ id="text4185"

197+ y="199.36218"

198+ x="247"

199+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

200+ xml:space="preserve"><tspan

201+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1"

202+ y="199.36218"

203+ x="247"

204+ id="tspan4187"

205+ sodipodi:role="line">Goal</tspan></text>

206+ <rect

207+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

208+ id="rect4189"

209+ width="95"

210+ height="32"

211+ x="134"

212+ y="205.3622"

213+ inkscape:export-xdpi="61.120499"

214+ inkscape:export-ydpi="61.120499" />

215+ <rect

216+ y="205.3622"

217+ x="241"

218+ height="32"

219+ width="95"

220+ id="rect4191"

221+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

222+ inkscape:export-xdpi="61.120499"

223+ inkscape:export-ydpi="61.120499" />

224+ <rect

225+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

226+ id="rect4195"

227+ width="95"

228+ height="32"

229+ x="454"

230+ y="205.3622"

231+ inkscape:export-xdpi="61.120499"

232+ inkscape:export-ydpi="61.120499" />

233+ <rect

234+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

235+ id="rect4197"

236+ width="95"

237+ height="32"

238+ x="346"

239+ y="237.3622"

240+ inkscape:export-xdpi="61.120499"

241+ inkscape:export-ydpi="61.120499" />

242+ <rect

243+ y="269.36218"

244+ x="346"

245+ height="32"

246+ width="95"

247+ id="rect4199"

248+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

249+ inkscape:export-xdpi="61.120499"

250+ inkscape:export-ydpi="61.120499" />

251+ <rect

252+ y="205.3622"

253+ x="346"

254+ height="32"

255+ width="95"

256+ id="rect4201"

257+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

258+ inkscape:export-xdpi="61.120499"

259+ inkscape:export-ydpi="61.120499" />

260+ <path

261+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

262+ d="m 169,242.3622 -9,184"

263+ id="path4206"

264+ inkscape:connector-curvature="0"

265+ inkscape:export-xdpi="61.120499"

266+ inkscape:export-ydpi="61.120499"

267+ sodipodi:nodetypes="cc" />

268+ <path

269+ inkscape:connector-curvature="0"

270+ id="path4208"

271+ d="m 301,240.3622 -26,46"

272+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

273+ sodipodi:nodetypes="cc"

274+ inkscape:export-xdpi="61.120499"

275+ inkscape:export-ydpi="61.120499" />

276+ <text

277+ inkscape:export-ydpi="61.120499"

278+ inkscape:export-xdpi="61.120499"

279+ xml:space="preserve"

280+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

281+ x="360"

282+ y="366.36218"

283+ id="text4210"

284+ sodipodi:linespacing="125%"><tspan

285+ sodipodi:role="line"

286+ id="tspan4213"

287+ x="360"

288+ y="366.36218"

289+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">focus</tspan></text>

290+ <rect

291+ inkscape:export-ydpi="61.120499"

292+ inkscape:export-xdpi="61.120499"

293+ y="237.3622"

294+ x="134"

295+ height="32"

296+ width="95"

297+ id="rect4747"

298+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1" />

299+ <rect

300+ inkscape:export-ydpi="61.120499"

301+ inkscape:export-xdpi="61.120499"

302+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

303+ id="rect4749"

304+ width="95"

305+ height="32"

306+ x="134"

307+ y="269.36218" />

308+ <text

309+ inkscape:export-ydpi="61.120499"

310+ inkscape:export-xdpi="61.120499"

311+ xml:space="preserve"

312+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

313+ x="148"

314+ y="450.36218"

315+ id="text4751"

316+ sodipodi:linespacing="125%"><tspan

317+ id="tspan4757"

318+ sodipodi:role="line"

319+ x="148"

320+ y="450.36218"

321+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">List (TTName, Binder TT)</tspan><tspan

322+ sodipodi:role="line"

323+ x="148"

324+ y="469.11218"

325+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

326+ id="tspan4182">Open unification constaints.</tspan></text>

327+ <text

328+ inkscape:export-ydpi="61.120499"

329+ inkscape:export-xdpi="61.120499"

330+ xml:space="preserve"

331+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

332+ x="349.25366"

333+ y="319.99084"

334+ id="text4210-3"

335+ sodipodi:linespacing="125%"><tspan

336+ sodipodi:role="line"

337+ id="tspan4213-6"

338+ x="349.25366"

339+ y="319.99084"

340+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">List TTName</tspan></text>

341+ <text

342+ sodipodi:linespacing="125%"

343+ id="text4782"

344+ y="251.99084"

345+ x="495.25366"

346+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

347+ xml:space="preserve"

348+ inkscape:export-xdpi="61.120499"

349+ inkscape:export-ydpi="61.120499"><tspan

350+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

351+ y="251.99084"

352+ x="495.25366"

353+ id="tspan4784"

354+ sodipodi:role="line">TT</tspan></text>

355+ </g>

356+</svg>

docs/image/elabProofStateEx1_1.pngnew file

Binary file not shown.

docs/image/elabProofStateEx1_1.svgnew file+312

@@ -0,0 +1,312 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.91 r13725"

18+ sodipodi:docname="elabProofStateEx1_1.svg">

19+ <defs

20+ id="defs4" />

21+ <sodipodi:namedview

22+ id="base"

23+ pagecolor="#ffffff"

24+ bordercolor="#666666"

25+ borderopacity="1.0"

26+ inkscape:pageopacity="0.0"

27+ inkscape:pageshadow="2"

28+ inkscape:zoom="1"

29+ inkscape:cx="298"

30+ inkscape:cy="772.5"

31+ inkscape:document-units="px"

32+ inkscape:current-layer="layer1"

33+ showgrid="false"

34+ inkscape:window-width="1920"

35+ inkscape:window-height="1015"

36+ inkscape:window-x="0"

37+ inkscape:window-y="0"

38+ inkscape:window-maximized="1" />

39+ <metadata

40+ id="metadata7">

41+ <rdf:RDF>

42+ <cc:Work

43+ rdf:about="">

44+ <dc:format>image/svg+xml</dc:format>

45+ <dc:type

46+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

47+ <dc:title />

48+ </cc:Work>

49+ </rdf:RDF>

50+ </metadata>

51+ <g

52+ inkscape:label="Layer 1"

53+ inkscape:groupmode="layer"

54+ id="layer1">

55+ <text

56+ sodipodi:linespacing="125%"

57+ id="text4140"

58+ y="226.36218"

59+ x="401"

60+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

61+ xml:space="preserve"

62+ inkscape:export-xdpi="61.120499"

63+ inkscape:export-ydpi="61.120499"><tspan

64+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

65+ y="226.36218"

66+ x="401"

67+ sodipodi:role="line"

68+ id="tspan4144">hole_2</tspan></text>

69+ <text

70+ inkscape:export-ydpi="61.120499"

71+ inkscape:export-xdpi="61.120499"

72+ sodipodi:linespacing="125%"

73+ id="text4173"

74+ y="198.36218"

75+ x="135"

76+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

77+ xml:space="preserve"><tspan

78+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1"

79+ y="198.36218"

80+ x="135"

81+ id="tspan4175"

82+ sodipodi:role="line">Environment</tspan></text>

83+ <text

84+ xml:space="preserve"

85+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

86+ x="393"

87+ y="197.36218"

88+ id="text4177"

89+ sodipodi:linespacing="125%"

90+ inkscape:export-xdpi="61.120499"

91+ inkscape:export-ydpi="61.120499"><tspan

92+ sodipodi:role="line"

93+ id="tspan4179"

94+ x="393"

95+ y="197.36218"

96+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1">Holes</tspan></text>

97+ <text

98+ inkscape:export-ydpi="61.120499"

99+ inkscape:export-xdpi="61.120499"

100+ sodipodi:linespacing="125%"

101+ id="text4181"

102+ y="197.36218"

103+ x="503"

104+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

105+ xml:space="preserve"><tspan

106+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1"

107+ y="197.36218"

108+ x="503"

109+ id="tspan4183"

110+ sodipodi:role="line">Guess</tspan></text>

111+ <text

112+ inkscape:export-ydpi="61.120499"

113+ inkscape:export-xdpi="61.120499"

114+ sodipodi:linespacing="125%"

115+ id="text4185"

116+ y="199.36218"

117+ x="247"

118+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

119+ xml:space="preserve"><tspan

120+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1"

121+ y="199.36218"

122+ x="247"

123+ id="tspan4187"

124+ sodipodi:role="line">Goal</tspan></text>

125+ <rect

126+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

127+ id="rect4189"

128+ width="39"

129+ height="32"

130+ x="134"

131+ y="205.3622"

132+ inkscape:export-xdpi="61.120499"

133+ inkscape:export-ydpi="61.120499" />

134+ <rect

135+ y="206.3622"

136+ x="182"

137+ height="32"

138+ width="200"

139+ id="rect4191"

140+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

141+ inkscape:export-xdpi="61.120499"

142+ inkscape:export-ydpi="61.120499" />

143+ <rect

144+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

145+ id="rect4195"

146+ width="95"

147+ height="32"

148+ x="494"

149+ y="206.3622"

150+ inkscape:export-xdpi="61.120499"

151+ inkscape:export-ydpi="61.120499" />

152+ <rect

153+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

154+ id="rect4197"

155+ width="95"

156+ height="32"

157+ x="389"

158+ y="237.3622"

159+ inkscape:export-xdpi="61.120499"

160+ inkscape:export-ydpi="61.120499" />

161+ <rect

162+ y="269.36218"

163+ x="389"

164+ height="32"

165+ width="95"

166+ id="rect4199"

167+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

168+ inkscape:export-xdpi="61.120499"

169+ inkscape:export-ydpi="61.120499" />

170+ <rect

171+ y="205.3622"

172+ x="389"

173+ height="32"

174+ width="95"

175+ id="rect4201"

176+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

177+ inkscape:export-xdpi="61.120499"

178+ inkscape:export-ydpi="61.120499" />

179+ <text

180+ inkscape:export-ydpi="61.120499"

181+ inkscape:export-xdpi="61.120499"

182+ xml:space="preserve"

183+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

184+ x="400"

185+ y="257.36218"

186+ id="text4276"

187+ sodipodi:linespacing="125%"><tspan

188+ id="tspan4280"

189+ sodipodi:role="line"

190+ x="400"

191+ y="257.36218"

192+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">hole_0</tspan></text>

193+ <text

194+ sodipodi:linespacing="125%"

195+ id="text4159"

196+ y="225.36218"

197+ x="141"

198+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

199+ xml:space="preserve"

200+ inkscape:export-xdpi="61.120499"

201+ inkscape:export-ydpi="61.120499"><tspan

202+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

203+ y="225.36218"

204+ x="141"

205+ sodipodi:role="line"

206+ id="tspan4161">[ ]</tspan></text>

207+ <text

208+ sodipodi:linespacing="125%"

209+ id="text4163"

210+ y="275.36218"

211+ x="135"

212+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

213+ xml:space="preserve"

214+ inkscape:export-xdpi="61.120499"

215+ inkscape:export-ydpi="61.120499"><tspan

216+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

217+ y="275.36218"

218+ x="135"

219+ sodipodi:role="line"

220+ id="tspan4165">starts off empty</tspan></text>

221+ <path

222+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

223+ d="m 154,237.3622 0,25"

224+ id="path4167"

225+ inkscape:connector-curvature="0"

226+ inkscape:export-xdpi="61.120499"

227+ inkscape:export-ydpi="61.120499"

228+ sodipodi:nodetypes="cc" />

229+ <text

230+ inkscape:export-ydpi="61.120499"

231+ inkscape:export-xdpi="61.120499"

232+ xml:space="preserve"

233+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

234+ x="188"

235+ y="227.36218"

236+ id="text4786"

237+ sodipodi:linespacing="125%"><tspan

238+ sodipodi:role="line"

239+ x="188"

240+ y="227.36218"

241+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

242+ id="tspan4790">(hole_2 , pi_arg : Nat->Nat)</tspan></text>

243+ <text

244+ inkscape:export-ydpi="61.120499"

245+ inkscape:export-xdpi="61.120499"

246+ xml:space="preserve"

247+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

248+ x="233.57927"

249+ y="309.21585"

250+ id="text4794"

251+ sodipodi:linespacing="125%"><tspan

252+ id="tspan4796"

253+ sodipodi:role="line"

254+ x="233.57927"

255+ y="309.21585"

256+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">this is the signature</tspan><tspan

257+ sodipodi:role="line"

258+ x="233.57927"

259+ y="327.96585"

260+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

261+ id="tspan4810">we are looking for</tspan></text>

262+ <path

263+ inkscape:connector-curvature="0"

264+ id="path4798"

265+ d="m 298,236.3622 -0.42683,58.52439"

266+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

267+ sodipodi:nodetypes="cc"

268+ inkscape:export-xdpi="61.120499"

269+ inkscape:export-ydpi="61.120499" />

270+ <text

271+ sodipodi:linespacing="125%"

272+ id="text4800"

273+ y="335.85608"

274+ x="383.54877"

275+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

276+ xml:space="preserve"

277+ inkscape:export-xdpi="61.120499"

278+ inkscape:export-ydpi="61.120499"><tspan

279+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

280+ y="335.85608"

281+ x="383.54877"

282+ sodipodi:role="line"

283+ id="tspan4802">machine chosen</tspan><tspan

284+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

285+ y="354.60608"

286+ x="383.54877"

287+ sodipodi:role="line"

288+ id="tspan4812">names for the holes</tspan></text>

289+ <path

290+ sodipodi:nodetypes="cc"

291+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

292+ d="m 432,265.3622 0.15244,56.82317"

293+ id="path4804"

294+ inkscape:connector-curvature="0"

295+ inkscape:export-xdpi="61.120499"

296+ inkscape:export-ydpi="61.120499" />

297+ <text

298+ inkscape:export-ydpi="61.120499"

299+ inkscape:export-xdpi="61.120499"

300+ xml:space="preserve"

301+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

302+ x="498"

303+ y="227.36218"

304+ id="text4806"

305+ sodipodi:linespacing="125%"><tspan

306+ id="tspan4808"

307+ sodipodi:role="line"

308+ x="498"

309+ y="227.36218"

310+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">no guess yet</tspan></text>

311+ </g>

312+</svg>

docs/image/elabProofStateEx1_2.pngnew file

Binary file not shown.

docs/image/elabProofStateEx1_2.svgnew file+281

@@ -0,0 +1,281 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.91 r13725"

18+ sodipodi:docname="elabProofStateEx1_2.svg"

19+ inkscape:export-filename="/home/mjb/Idris-dev/docs/image/elabProofStateEx1_2.png"

20+ inkscape:export-xdpi="61.120499"

21+ inkscape:export-ydpi="61.120499">

22+ <defs

23+ id="defs4">

24+ <marker

25+ inkscape:stockid="Arrow1Mend"

26+ orient="auto"

27+ refY="0.0"

28+ refX="0.0"

29+ id="Arrow1Mend"

30+ style="overflow:visible;"

31+ inkscape:isstock="true">

32+ <path

33+ id="path4252"

34+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

35+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

36+ transform="scale(0.4) rotate(180) translate(10,0)" />

37+ </marker>

38+ </defs>

39+ <sodipodi:namedview

40+ id="base"

41+ pagecolor="#ffffff"

42+ bordercolor="#666666"

43+ borderopacity="1.0"

44+ inkscape:pageopacity="0.0"

45+ inkscape:pageshadow="2"

46+ inkscape:zoom="1"

47+ inkscape:cx="211.75967"

48+ inkscape:cy="688.76752"

49+ inkscape:document-units="px"

50+ inkscape:current-layer="layer1"

51+ showgrid="false"

52+ inkscape:window-width="1920"

53+ inkscape:window-height="1015"

54+ inkscape:window-x="0"

55+ inkscape:window-y="0"

56+ inkscape:window-maximized="1" />

57+ <metadata

58+ id="metadata7">

59+ <rdf:RDF>

60+ <cc:Work

61+ rdf:about="">

62+ <dc:format>image/svg+xml</dc:format>

63+ <dc:type

64+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

65+ <dc:title />

66+ </cc:Work>

67+ </rdf:RDF>

68+ </metadata>

69+ <g

70+ inkscape:label="Layer 1"

71+ inkscape:groupmode="layer"

72+ id="layer1">

73+ <text

74+ sodipodi:linespacing="125%"

75+ id="text4140"

76+ y="226.36218"

77+ x="401"

78+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

79+ xml:space="preserve"

80+ inkscape:export-xdpi="61.120499"

81+ inkscape:export-ydpi="61.120499"><tspan

82+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

83+ y="226.36218"

84+ x="401"

85+ sodipodi:role="line"

86+ id="tspan4144">hole_2</tspan></text>

87+ <text

88+ inkscape:export-ydpi="61.120499"

89+ inkscape:export-xdpi="61.120499"

90+ sodipodi:linespacing="125%"

91+ id="text4173"

92+ y="198.36218"

93+ x="135"

94+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

95+ xml:space="preserve"><tspan

96+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1"

97+ y="198.36218"

98+ x="135"

99+ id="tspan4175"

100+ sodipodi:role="line">Environment</tspan></text>

101+ <text

102+ xml:space="preserve"

103+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

104+ x="393"

105+ y="197.36218"

106+ id="text4177"

107+ sodipodi:linespacing="125%"

108+ inkscape:export-xdpi="61.120499"

109+ inkscape:export-ydpi="61.120499"><tspan

110+ sodipodi:role="line"

111+ id="tspan4179"

112+ x="393"

113+ y="197.36218"

114+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1">Holes</tspan></text>

115+ <text

116+ inkscape:export-ydpi="61.120499"

117+ inkscape:export-xdpi="61.120499"

118+ sodipodi:linespacing="125%"

119+ id="text4181"

120+ y="197.36218"

121+ x="503"

122+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

123+ xml:space="preserve"><tspan

124+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1"

125+ y="197.36218"

126+ x="503"

127+ id="tspan4183"

128+ sodipodi:role="line">Guess</tspan></text>

129+ <text

130+ inkscape:export-ydpi="61.120499"

131+ inkscape:export-xdpi="61.120499"

132+ sodipodi:linespacing="125%"

133+ id="text4185"

134+ y="199.36218"

135+ x="247"

136+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

137+ xml:space="preserve"><tspan

138+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1"

139+ y="199.36218"

140+ x="247"

141+ id="tspan4187"

142+ sodipodi:role="line">Goal</tspan></text>

143+ <rect

144+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

145+ id="rect4189"

146+ width="92"

147+ height="32"

148+ x="134"

149+ y="205.3622"

150+ inkscape:export-xdpi="61.120499"

151+ inkscape:export-ydpi="61.120499" />

152+ <rect

153+ y="206.3622"

154+ x="234"

155+ height="32"

156+ width="148"

157+ id="rect4191"

158+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

159+ inkscape:export-xdpi="61.120499"

160+ inkscape:export-ydpi="61.120499" />

161+ <rect

162+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

163+ id="rect4195"

164+ width="95"

165+ height="32"

166+ x="497"

167+ y="205.3622"

168+ inkscape:export-xdpi="61.120499"

169+ inkscape:export-ydpi="61.120499" />

170+ <rect

171+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

172+ id="rect4197"

173+ width="95"

174+ height="32"

175+ x="389"

176+ y="237.3622"

177+ inkscape:export-xdpi="61.120499"

178+ inkscape:export-ydpi="61.120499" />

179+ <rect

180+ y="269.36218"

181+ x="389"

182+ height="32"

183+ width="95"

184+ id="rect4199"

185+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

186+ inkscape:export-xdpi="61.120499"

187+ inkscape:export-ydpi="61.120499" />

188+ <rect

189+ y="205.3622"

190+ x="389"

191+ height="32"

192+ width="95"

193+ id="rect4201"

194+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

195+ inkscape:export-xdpi="61.120499"

196+ inkscape:export-ydpi="61.120499" />

197+ <text

198+ inkscape:export-ydpi="61.120499"

199+ inkscape:export-xdpi="61.120499"

200+ xml:space="preserve"

201+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

202+ x="400"

203+ y="257.36218"

204+ id="text4276"

205+ sodipodi:linespacing="125%"><tspan

206+ id="tspan4280"

207+ sodipodi:role="line"

208+ x="400"

209+ y="257.36218"

210+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">hole_0</tspan></text>

211+ <text

212+ sodipodi:linespacing="125%"

213+ id="text4159"

214+ y="225.36218"

215+ x="140"

216+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

217+ xml:space="preserve"

218+ inkscape:export-xdpi="61.120499"

219+ inkscape:export-ydpi="61.120499"><tspan

220+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

221+ y="225.36218"

222+ x="140"

223+ sodipodi:role="line"

224+ id="tspan4161">(x, λ Nat)</tspan></text>

225+ <text

226+ inkscape:export-ydpi="61.120499"

227+ inkscape:export-xdpi="61.120499"

228+ xml:space="preserve"

229+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

230+ x="266"

231+ y="226.36218"

232+ id="text4786"

233+ sodipodi:linespacing="125%"><tspan

234+ sodipodi:role="line"

235+ x="266"

236+ y="226.36218"

237+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

238+ id="tspan4790">(hole_2 , Nat)</tspan></text>

239+ <text

240+ sodipodi:linespacing="125%"

241+ id="text4800"

242+ y="290.36218"

243+ x="163"

244+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

245+ xml:space="preserve"

246+ inkscape:export-xdpi="61.120499"

247+ inkscape:export-ydpi="61.120499"><tspan

248+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

249+ y="290.36218"

250+ x="163"

251+ sodipodi:role="line"

252+ id="tspan4812">replace the focussed hole</tspan><tspan

253+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

254+ y="309.11218"

255+ x="163"

256+ sodipodi:role="line"

257+ id="tspan6225">with a lambda</tspan></text>

258+ <path

259+ sodipodi:nodetypes="cc"

260+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#Arrow1Mend)"

261+ d="m 307,242.3622 c -5.24693,34.96318 -108.05981,45.71777 -126,0"

262+ id="path4804"

263+ inkscape:connector-curvature="0"

264+ inkscape:export-xdpi="61.120499"

265+ inkscape:export-ydpi="61.120499" />

266+ <text

267+ inkscape:export-ydpi="61.120499"

268+ inkscape:export-xdpi="61.120499"

269+ xml:space="preserve"

270+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

271+ x="510"

272+ y="226.36218"

273+ id="text4174"

274+ sodipodi:linespacing="125%"><tspan

275+ id="tspan4176"

276+ sodipodi:role="line"

277+ x="510"

278+ y="226.36218"

279+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">x:Nat</tspan></text>

280+ </g>

281+</svg>

docs/image/elabProofStateEx1_3.pngnew file

Binary file not shown.

docs/image/elabProofStateEx1_3.svgnew file+244

@@ -0,0 +1,244 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.91 r13725"

18+ sodipodi:docname="elabProofStateEx1_3.svg"

19+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/example1/elabProofStateEx1_3.png"

20+ inkscape:export-xdpi="61.120499"

21+ inkscape:export-ydpi="61.120499">

22+ <defs

23+ id="defs4" />

24+ <sodipodi:namedview

25+ id="base"

26+ pagecolor="#ffffff"

27+ bordercolor="#666666"

28+ borderopacity="1.0"

29+ inkscape:pageopacity="0.0"

30+ inkscape:pageshadow="2"

31+ inkscape:zoom="1"

32+ inkscape:cx="345.95856"

33+ inkscape:cy="688.76752"

34+ inkscape:document-units="px"

35+ inkscape:current-layer="layer1"

36+ showgrid="false"

37+ inkscape:window-width="1920"

38+ inkscape:window-height="1015"

39+ inkscape:window-x="0"

40+ inkscape:window-y="0"

41+ inkscape:window-maximized="1" />

42+ <metadata

43+ id="metadata7">

44+ <rdf:RDF>

45+ <cc:Work

46+ rdf:about="">

47+ <dc:format>image/svg+xml</dc:format>

48+ <dc:type

49+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

50+ <dc:title />

51+ </cc:Work>

52+ </rdf:RDF>

53+ </metadata>

54+ <g

55+ inkscape:label="Layer 1"

56+ inkscape:groupmode="layer"

57+ id="layer1">

58+ <text

59+ sodipodi:linespacing="125%"

60+ id="text4140"

61+ y="226.36218"

62+ x="401"

63+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

64+ xml:space="preserve"

65+ inkscape:export-xdpi="61.120499"

66+ inkscape:export-ydpi="61.120499"

67+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/example1/elabProofStateEx1_3.png"><tspan

68+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

69+ y="226.36218"

70+ x="401"

71+ sodipodi:role="line"

72+ id="tspan4144">hole_2</tspan></text>

73+ <text

74+ inkscape:export-ydpi="61.120499"

75+ inkscape:export-xdpi="61.120499"

76+ sodipodi:linespacing="125%"

77+ id="text4173"

78+ y="198.36218"

79+ x="135"

80+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

81+ xml:space="preserve"

82+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/example1/elabProofStateEx1_3.png"><tspan

83+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1"

84+ y="198.36218"

85+ x="135"

86+ id="tspan4175"

87+ sodipodi:role="line">Environment</tspan></text>

88+ <text

89+ xml:space="preserve"

90+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

91+ x="393"

92+ y="197.36218"

93+ id="text4177"

94+ sodipodi:linespacing="125%"

95+ inkscape:export-xdpi="61.120499"

96+ inkscape:export-ydpi="61.120499"

97+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/example1/elabProofStateEx1_3.png"><tspan

98+ sodipodi:role="line"

99+ id="tspan4179"

100+ x="393"

101+ y="197.36218"

102+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1">Holes</tspan></text>

103+ <text

104+ inkscape:export-ydpi="61.120499"

105+ inkscape:export-xdpi="61.120499"

106+ sodipodi:linespacing="125%"

107+ id="text4181"

108+ y="197.36218"

109+ x="503"

110+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

111+ xml:space="preserve"

112+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/example1/elabProofStateEx1_3.png"><tspan

113+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1"

114+ y="197.36218"

115+ x="503"

116+ id="tspan4183"

117+ sodipodi:role="line">Guess</tspan></text>

118+ <text

119+ inkscape:export-ydpi="61.120499"

120+ inkscape:export-xdpi="61.120499"

121+ sodipodi:linespacing="125%"

122+ id="text4185"

123+ y="199.36218"

124+ x="247"

125+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

126+ xml:space="preserve"

127+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/example1/elabProofStateEx1_3.png"><tspan

128+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1"

129+ y="199.36218"

130+ x="247"

131+ id="tspan4187"

132+ sodipodi:role="line">Goal</tspan></text>

133+ <rect

134+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

135+ id="rect4189"

136+ width="92"

137+ height="32"

138+ x="134"

139+ y="205.3622"

140+ inkscape:export-xdpi="61.120499"

141+ inkscape:export-ydpi="61.120499"

142+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/example1/elabProofStateEx1_3.png" />

143+ <rect

144+ y="206.3622"

145+ x="234"

146+ height="32"

147+ width="148"

148+ id="rect4191"

149+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

150+ inkscape:export-xdpi="61.120499"

151+ inkscape:export-ydpi="61.120499"

152+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/example1/elabProofStateEx1_3.png" />

153+ <rect

154+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

155+ id="rect4195"

156+ width="95"

157+ height="32"

158+ x="497"

159+ y="205.3622"

160+ inkscape:export-xdpi="61.120499"

161+ inkscape:export-ydpi="61.120499"

162+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/example1/elabProofStateEx1_3.png" />

163+ <rect

164+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

165+ id="rect4197"

166+ width="95"

167+ height="32"

168+ x="389"

169+ y="237.3622"

170+ inkscape:export-xdpi="61.120499"

171+ inkscape:export-ydpi="61.120499"

172+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/example1/elabProofStateEx1_3.png" />

173+ <rect

174+ y="205.3622"

175+ x="389"

176+ height="32"

177+ width="95"

178+ id="rect4201"

179+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

180+ inkscape:export-xdpi="61.120499"

181+ inkscape:export-ydpi="61.120499"

182+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/example1/elabProofStateEx1_3.png" />

183+ <text

184+ inkscape:export-ydpi="61.120499"

185+ inkscape:export-xdpi="61.120499"

186+ xml:space="preserve"

187+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

188+ x="400"

189+ y="257.36218"

190+ id="text4276"

191+ sodipodi:linespacing="125%"

192+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/example1/elabProofStateEx1_3.png"><tspan

193+ id="tspan4280"

194+ sodipodi:role="line"

195+ x="400"

196+ y="257.36218"

197+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">hole_0</tspan></text>

198+ <text

199+ sodipodi:linespacing="125%"

200+ id="text4159"

201+ y="225.36218"

202+ x="140"

203+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

204+ xml:space="preserve"

205+ inkscape:export-xdpi="61.120499"

206+ inkscape:export-ydpi="61.120499"

207+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/example1/elabProofStateEx1_3.png"><tspan

208+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

209+ y="225.36218"

210+ x="140"

211+ sodipodi:role="line"

212+ id="tspan4161">(x, λ Nat)</tspan></text>

213+ <text

214+ inkscape:export-ydpi="61.120499"

215+ inkscape:export-xdpi="61.120499"

216+ xml:space="preserve"

217+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

218+ x="266"

219+ y="226.36218"

220+ id="text4786"

221+ sodipodi:linespacing="125%"

222+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/example1/elabProofStateEx1_3.png"><tspan

223+ sodipodi:role="line"

224+ x="266"

225+ y="226.36218"

226+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

227+ id="tspan4790">(hole_2 , Nat)</tspan></text>

228+ <text

229+ inkscape:export-ydpi="61.120499"

230+ inkscape:export-xdpi="61.120499"

231+ xml:space="preserve"

232+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

233+ x="510"

234+ y="226.36218"

235+ id="text4174"

236+ sodipodi:linespacing="125%"

237+ inkscape:export-filename="/home/master/euclid/prog/idris/elaborator/elabTactics/example1/elabProofStateEx1_3.png"><tspan

238+ id="tspan4176"

239+ sodipodi:role="line"

240+ x="510"

241+ y="226.36218"

242+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">x:Nat</tspan></text>

243+ </g>

244+</svg>

docs/image/fill.pngnew file

Binary file not shown.

docs/image/fill.svgnew file+163

@@ -0,0 +1,163 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 210 297"

15+ version="1.1"

16+ id="svg8"

17+ inkscape:version="0.92.2 5c3e80d, 2017-08-06"

18+ sodipodi:docname="fill.svg">

19+ <defs

20+ id="defs2">

21+ <marker

22+ inkscape:isstock="true"

23+ style="overflow:visible;"

24+ id="marker838"

25+ refX="0.0"

26+ refY="0.0"

27+ orient="auto"

28+ inkscape:stockid="Arrow1Mend">

29+ <path

30+ transform="scale(0.4) rotate(180) translate(10,0)"

31+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

32+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

33+ id="path836" />

34+ </marker>

35+ <marker

36+ inkscape:stockid="Arrow1Mend"

37+ orient="auto"

38+ refY="0.0"

39+ refX="0.0"

40+ id="Arrow1Mend"

41+ style="overflow:visible;"

42+ inkscape:isstock="true"

43+ inkscape:collect="always">

44+ <path

45+ id="path4529"

46+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

47+ style="fill-rule:evenodd;stroke:#ff0000;stroke-width:1pt;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

48+ transform="scale(0.4) rotate(180) translate(10,0)" />

49+ </marker>

50+ </defs>

51+ <sodipodi:namedview

52+ id="base"

53+ pagecolor="#ffffff"

54+ bordercolor="#666666"

55+ borderopacity="1.0"

56+ inkscape:pageopacity="0.0"

57+ inkscape:pageshadow="2"

58+ inkscape:zoom="1"

59+ inkscape:cx="313.5"

60+ inkscape:cy="696.5"

61+ inkscape:document-units="mm"

62+ inkscape:current-layer="layer1"

63+ showgrid="false"

64+ inkscape:window-width="1920"

65+ inkscape:window-height="1015"

66+ inkscape:window-x="0"

67+ inkscape:window-y="0"

68+ inkscape:window-maximized="1" />

69+ <metadata

70+ id="metadata5">

71+ <rdf:RDF>

72+ <cc:Work

73+ rdf:about="">

74+ <dc:format>image/svg+xml</dc:format>

75+ <dc:type

76+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

77+ <dc:title />

78+ </cc:Work>

79+ </rdf:RDF>

80+ </metadata>

81+ <g

82+ inkscape:label="Layer 1"

83+ inkscape:groupmode="layer"

84+ id="layer1">

85+ <rect

86+ style="fill:#ffff00;fill-opacity:1;stroke-width:0.26458332"

87+ id="rect22"

88+ width="31.75"

89+ height="5.5562501"

90+ x="70.114571"

91+ y="114.96667"

92+ inkscape:export-xdpi="61.120499"

93+ inkscape:export-ydpi="61.120499" />

94+ <text

95+ xml:space="preserve"

96+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

97+ x="65.352081"

98+ y="105.17709"

99+ id="text12"

100+ inkscape:export-xdpi="61.120499"

101+ inkscape:export-ydpi="61.120499"><tspan

102+ sodipodi:role="line"

103+ id="tspan10"

104+ x="65.352081"

105+ y="105.17709"

106+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332">? {hole} . {hole}</tspan></text>

107+ <text

108+ id="text16"

109+ y="118.67083"

110+ x="56.356247"

111+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

112+ xml:space="preserve"

113+ inkscape:export-xdpi="61.120499"

114+ inkscape:export-ydpi="61.120499"><tspan

115+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

116+ y="118.67083"

117+ x="56.356247"

118+ id="tspan14"

119+ sodipodi:role="line">?{hole} ≈ Prelude.Nat.Z . {hole}</tspan></text>

120+ <text

121+ id="text20"

122+ y="110.99791"

123+ x="82.814583"

124+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

125+ xml:space="preserve"

126+ inkscape:export-xdpi="61.120499"

127+ inkscape:export-ydpi="61.120499"><tspan

128+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

129+ y="110.99791"

130+ x="82.814583"

131+ id="tspan18"

132+ sodipodi:role="line">fill `(Z)</tspan></text>

133+ <path

134+ style="fill:none;stroke:#ff0000;stroke-width:0.5291667;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#Arrow1Mend)"

135+ d="m 80.668481,106.30075 -0.0032,7.57492"

136+ id="path4518"

137+ inkscape:connector-curvature="0"

138+ sodipodi:nodetypes="cc"

139+ inkscape:export-xdpi="61.120499"

140+ inkscape:export-ydpi="61.120499" />

141+ <text

142+ inkscape:export-ydpi="61.120499"

143+ inkscape:export-xdpi="61.120499"

144+ xml:space="preserve"

145+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

146+ x="63.499996"

147+ y="93.006248"

148+ id="text832"><tspan

149+ sodipodi:role="line"

150+ id="tspan830"

151+ x="63.499996"

152+ y="93.006248"

153+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;stroke-width:0.26458332">focus</tspan></text>

154+ <path

155+ inkscape:export-ydpi="61.120499"

156+ inkscape:export-xdpi="61.120499"

157+ sodipodi:nodetypes="cc"

158+ inkscape:connector-curvature="0"

159+ id="path834"

160+ d="m 66.645564,94.659084 -0.0032,5.458256"

161+ style="fill:none;stroke:#0000ff;stroke-width:0.5291667;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker838)" />

162+ </g>

163+</svg>

docs/image/generateDatatype.pngnew file

Binary file not shown.

docs/image/generateDatatype.svgnew file+540

@@ -0,0 +1,540 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.91 r13725"

18+ sodipodi:docname="generateDatatype.svg">

19+ <defs

20+ id="defs4">

21+ <marker

22+ inkscape:isstock="true"

23+ style="overflow:visible;"

24+ id="marker7147"

25+ refX="0.0"

26+ refY="0.0"

27+ orient="auto"

28+ inkscape:stockid="Arrow2Mend">

29+ <path

30+ transform="scale(0.6) rotate(180) translate(0,0)"

31+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

32+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

33+ id="path7149" />

34+ </marker>

35+ <marker

36+ inkscape:stockid="Arrow2Mend"

37+ orient="auto"

38+ refY="0.0"

39+ refX="0.0"

40+ id="marker6819"

41+ style="overflow:visible;"

42+ inkscape:isstock="true">

43+ <path

44+ id="path6821"

45+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

46+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

47+ transform="scale(0.6) rotate(180) translate(0,0)" />

48+ </marker>

49+ <marker

50+ inkscape:isstock="true"

51+ style="overflow:visible;"

52+ id="marker6325"

53+ refX="0.0"

54+ refY="0.0"

55+ orient="auto"

56+ inkscape:stockid="Arrow2Mend">

57+ <path

58+ transform="scale(0.6) rotate(180) translate(0,0)"

59+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

60+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

61+ id="path6327" />

62+ </marker>

63+ <marker

64+ inkscape:stockid="Arrow2Mend"

65+ orient="auto"

66+ refY="0.0"

67+ refX="0.0"

68+ id="marker5163"

69+ style="overflow:visible;"

70+ inkscape:isstock="true">

71+ <path

72+ id="path5165"

73+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

74+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

75+ transform="scale(0.6) rotate(180) translate(0,0)" />

76+ </marker>

77+ <marker

78+ inkscape:isstock="true"

79+ style="overflow:visible;"

80+ id="marker5133"

81+ refX="0.0"

82+ refY="0.0"

83+ orient="auto"

84+ inkscape:stockid="Arrow2Mend"

85+ inkscape:collect="always">

86+ <path

87+ transform="scale(0.6) rotate(180) translate(0,0)"

88+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

89+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

90+ id="path5135" />

91+ </marker>

92+ <marker

93+ inkscape:stockid="Arrow2Mend"

94+ orient="auto"

95+ refY="0.0"

96+ refX="0.0"

97+ id="Arrow2Mend"

98+ style="overflow:visible;"

99+ inkscape:isstock="true"

100+ inkscape:collect="always">

101+ <path

102+ id="path4183"

103+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

104+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

105+ transform="scale(0.6) rotate(180) translate(0,0)" />

106+ </marker>

107+ </defs>

108+ <sodipodi:namedview

109+ id="base"

110+ pagecolor="#ffffff"

111+ bordercolor="#666666"

112+ borderopacity="1.0"

113+ inkscape:pageopacity="0.0"

114+ inkscape:pageshadow="2"

115+ inkscape:zoom="1"

116+ inkscape:cx="380.92935"

117+ inkscape:cy="520"

118+ inkscape:document-units="px"

119+ inkscape:current-layer="layer1"

120+ showgrid="false"

121+ inkscape:window-width="1212"

122+ inkscape:window-height="1011"

123+ inkscape:window-x="-4"

124+ inkscape:window-y="0"

125+ inkscape:window-maximized="0" />

126+ <metadata

127+ id="metadata7">

128+ <rdf:RDF>

129+ <cc:Work

130+ rdf:about="">

131+ <dc:format>image/svg+xml</dc:format>

132+ <dc:type

133+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

134+ <dc:title></dc:title>

135+ </cc:Work>

136+ </rdf:RDF>

137+ </metadata>

138+ <g

139+ inkscape:label="Layer 1"

140+ inkscape:groupmode="layer"

141+ id="layer1">

142+ <rect

143+ style="opacity:1;fill:none;fill-opacity:1;stroke:#000000;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

144+ id="rect4136"

145+ width="201"

146+ height="69"

147+ x="116"

148+ y="203.3622"

149+ inkscape:export-xdpi="61.120499"

150+ inkscape:export-ydpi="61.120499" />

151+ <rect

152+ y="322.36218"

153+ x="113"

154+ height="69"

155+ width="201"

156+ id="rect4138"

157+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

158+ inkscape:export-xdpi="61.120499"

159+ inkscape:export-ydpi="61.120499" />

160+ <rect

161+ y="202.3622"

162+ x="381"

163+ height="69"

164+ width="201"

165+ id="rect4140"

166+ style="opacity:1;fill:none;fill-opacity:1;stroke:#000000;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

167+ inkscape:export-xdpi="61.120499"

168+ inkscape:export-ydpi="61.120499" />

169+ <text

170+ xml:space="preserve"

171+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

172+ x="125"

173+ y="227.3622"

174+ id="text4142"

175+ sodipodi:linespacing="125%"

176+ inkscape:export-xdpi="61.120499"

177+ inkscape:export-ydpi="61.120499"><tspan

178+ sodipodi:role="line"

179+ id="tspan4144"

180+ x="125"

181+ y="227.3622">declareDatatype</tspan></text>

182+ <text

183+ sodipodi:linespacing="125%"

184+ id="text4146"

185+ y="225.3622"

186+ x="389"

187+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

188+ xml:space="preserve"

189+ inkscape:export-xdpi="61.120499"

190+ inkscape:export-ydpi="61.120499"><tspan

191+ y="225.3622"

192+ x="389"

193+ id="tspan4148"

194+ sodipodi:role="line">defineDatatype</tspan></text>

195+ <path

196+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker5133)"

197+ d="m 190,271.3622 0,48"

198+ id="path4150"

199+ inkscape:connector-curvature="0"

200+ inkscape:export-xdpi="61.120499"

201+ inkscape:export-ydpi="61.120499" />

202+ <text

203+ sodipodi:linespacing="125%"

204+ id="text5074"

205+ y="295.36218"

206+ x="201"

207+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

208+ xml:space="preserve"

209+ inkscape:export-xdpi="61.120499"

210+ inkscape:export-ydpi="61.120499"><tspan

211+ y="295.36218"

212+ x="201"

213+ sodipodi:role="line"

214+ id="tspan5080"

215+ style="font-size:15px;fill:#ff0000">Declare</tspan></text>

216+ <text

217+ xml:space="preserve"

218+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

219+ x="117"

220+ y="344.36218"

221+ id="text5082"

222+ sodipodi:linespacing="125%"

223+ inkscape:export-xdpi="61.120499"

224+ inkscape:export-ydpi="61.120499"><tspan

225+ style="font-size:15px;fill:#0000ff"

226+ sodipodi:role="line"

227+ id="tspan5084"

228+ x="117"

229+ y="344.36218">name:TTName</tspan><tspan

230+ style="font-size:15px;fill:#0000ff"

231+ id="tspan5086"

232+ sodipodi:role="line"

233+ x="117"

234+ y="363.11218">arguments:List FunArg</tspan><tspan

235+ style="font-size:15px;fill:#0000ff"

236+ id="tspan5088"

237+ sodipodi:role="line"

238+ x="117"

239+ y="381.86218">returnType:Raw</tspan></text>

240+ <text

241+ xml:space="preserve"

242+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

243+ x="111"

244+ y="313.36218"

245+ id="text5095"

246+ sodipodi:linespacing="125%"

247+ inkscape:export-xdpi="61.120499"

248+ inkscape:export-ydpi="61.120499"><tspan

249+ style="font-size:15px;fill:#0000ff;"

250+ id="tspan5097"

251+ sodipodi:role="line"

252+ x="111"

253+ y="313.36218">TyDecl</tspan></text>

254+ <rect

255+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

256+ id="rect5099"

257+ width="125"

258+ height="88"

259+ x="170"

260+ y="415.36218"

261+ inkscape:export-xdpi="61.120499"

262+ inkscape:export-ydpi="61.120499" />

263+ <path

264+ inkscape:connector-curvature="0"

265+ id="path5101"

266+ d="m 247,364.3622 0,48"

267+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#Arrow2Mend)"

268+ inkscape:export-xdpi="61.120499"

269+ inkscape:export-ydpi="61.120499" />

270+ <text

271+ xml:space="preserve"

272+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

273+ x="260"

274+ y="408.36218"

275+ id="text5103"

276+ sodipodi:linespacing="125%"

277+ inkscape:export-xdpi="61.120499"

278+ inkscape:export-ydpi="61.120499"><tspan

279+ style="font-size:15px;fill:#ff0000"

280+ id="tspan5105"

281+ sodipodi:role="line"

282+ x="260"

283+ y="408.36218">MkFunArg</tspan></text>

284+ <text

285+ sodipodi:linespacing="125%"

286+ id="text5107"

287+ y="437.36218"

288+ x="174"

289+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

290+ xml:space="preserve"

291+ inkscape:export-xdpi="61.120499"

292+ inkscape:export-ydpi="61.120499"><tspan

293+ y="437.36218"

294+ x="174"

295+ id="tspan5109"

296+ sodipodi:role="line"

297+ style="font-size:15px;fill:#0000ff">name:TTName</tspan><tspan

298+ y="456.11218"

299+ x="174"

300+ sodipodi:role="line"

301+ id="tspan5113"

302+ style="font-size:15px;fill:#0000ff">type:Raw</tspan><tspan

303+ y="474.86218"

304+ x="174"

305+ sodipodi:role="line"

306+ style="font-size:15px;fill:#0000ff"

307+ id="tspan5121">plicity:Plicity</tspan><tspan

308+ y="493.61218"

309+ x="174"

310+ sodipodi:role="line"

311+ style="font-size:15px;fill:#0000ff"

312+ id="tspan5123">erasure:Erasure</tspan></text>

313+ <text

314+ sodipodi:linespacing="125%"

315+ id="text5115"

316+ y="409.36218"

317+ x="170"

318+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

319+ xml:space="preserve"

320+ inkscape:export-xdpi="61.120499"

321+ inkscape:export-ydpi="61.120499"><tspan

322+ y="409.36218"

323+ x="170"

324+ sodipodi:role="line"

325+ id="tspan5117"

326+ style="font-size:15px;fill:#0000ff">FunArg</tspan></text>

327+ <text

328+ sodipodi:linespacing="125%"

329+ id="text5125"

330+ y="526.36218"

331+ x="105"

332+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

333+ xml:space="preserve"

334+ inkscape:export-xdpi="61.120499"

335+ inkscape:export-ydpi="61.120499"><tspan

336+ y="526.36218"

337+ x="105"

338+ sodipodi:role="line"

339+ id="tspan5127"

340+ style="font-size:15px;fill:#ff0000">Explicit</tspan><tspan

341+ y="545.11218"

342+ x="105"

343+ sodipodi:role="line"

344+ style="font-size:15px;fill:#ff0000"

345+ id="tspan5129">Implicit</tspan><tspan

346+ y="563.86218"

347+ x="105"

348+ sodipodi:role="line"

349+ style="font-size:15px;fill:#ff0000"

350+ id="tspan5131">Constraint</tspan></text>

351+ <path

352+ inkscape:connector-curvature="0"

353+ id="path5161"

354+ d="m 169,473.3622 c -30.23945,2.9603 -39.98191,17.10078 -41,36"

355+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker5163)"

356+ sodipodi:nodetypes="cc"

357+ inkscape:export-xdpi="61.120499"

358+ inkscape:export-ydpi="61.120499" />

359+ <path

360+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker6325)"

361+ d="m 245,499.3622 0,28"

362+ id="path6319"

363+ inkscape:connector-curvature="0"

364+ sodipodi:nodetypes="cc"

365+ inkscape:export-xdpi="61.120499"

366+ inkscape:export-ydpi="61.120499" />

367+ <text

368+ sodipodi:linespacing="125%"

369+ id="text6321"

370+ y="544.36218"

371+ x="221"

372+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

373+ xml:space="preserve"

374+ inkscape:export-xdpi="61.120499"

375+ inkscape:export-ydpi="61.120499"><tspan

376+ y="544.36218"

377+ x="221"

378+ sodipodi:role="line"

379+ id="tspan6323"

380+ style="font-size:15px;fill:#ff0000">Erased</tspan><tspan

381+ y="563.11218"

382+ x="221"

383+ sodipodi:role="line"

384+ style="font-size:15px;fill:#ff0000"

385+ id="tspan6773">NotErased</tspan></text>

386+ <rect

387+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

388+ id="rect6775"

389+ width="247"

390+ height="49"

391+ x="347"

392+ y="322.36218"

393+ inkscape:export-xdpi="61.120499"

394+ inkscape:export-ydpi="61.120499" />

395+ <path

396+ inkscape:connector-curvature="0"

397+ id="path6777"

398+ d="m 458,271.3622 0,48"

399+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker5133)"

400+ inkscape:export-xdpi="61.120499"

401+ inkscape:export-ydpi="61.120499" />

402+ <text

403+ xml:space="preserve"

404+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

405+ x="469"

406+ y="295.36218"

407+ id="text6779"

408+ sodipodi:linespacing="125%"

409+ inkscape:export-xdpi="61.120499"

410+ inkscape:export-ydpi="61.120499"><tspan

411+ style="font-size:15px;fill:#ff0000"

412+ id="tspan6781"

413+ sodipodi:role="line"

414+ x="469"

415+ y="295.36218">DefineDatatype</tspan></text>

416+ <text

417+ sodipodi:linespacing="125%"

418+ id="text6783"

419+ y="344.36218"

420+ x="351"

421+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

422+ xml:space="preserve"

423+ inkscape:export-xdpi="61.120499"

424+ inkscape:export-ydpi="61.120499"><tspan

425+ y="344.36218"

426+ x="351"

427+ sodipodi:role="line"

428+ id="tspan6789"

429+ style="font-size:15px;fill:#0000ff">name:TTName</tspan><tspan

430+ y="363.11218"

431+ x="351"

432+ sodipodi:role="line"

433+ style="font-size:15px;fill:#0000ff"

434+ id="tspan7130">constructors : List ConstructorDefn</tspan></text>

435+ <text

436+ sodipodi:linespacing="125%"

437+ id="text6791"

438+ y="313.36218"

439+ x="379"

440+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

441+ xml:space="preserve"

442+ inkscape:export-xdpi="61.120499"

443+ inkscape:export-ydpi="61.120499"><tspan

444+ y="313.36218"

445+ x="379"

446+ sodipodi:role="line"

447+ id="tspan6793"

448+ style="font-size:15px;fill:#0000ff">DataDefn</tspan></text>

449+ <rect

450+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

451+ id="rect6799"

452+ width="201"

453+ height="69"

454+ x="380"

455+ y="418.36218"

456+ inkscape:export-xdpi="61.120499"

457+ inkscape:export-ydpi="61.120499" />

458+ <path

459+ inkscape:connector-curvature="0"

460+ id="path6801"

461+ d="m 539,367.3622 0,48"

462+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker6819)"

463+ inkscape:export-xdpi="61.120499"

464+ inkscape:export-ydpi="61.120499" />

465+ <text

466+ xml:space="preserve"

467+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

468+ x="450"

469+ y="386.36218"

470+ id="text6803"

471+ sodipodi:linespacing="125%"

472+ inkscape:export-xdpi="61.120499"

473+ inkscape:export-ydpi="61.120499"><tspan

474+ style="font-size:15px;fill:#ff0000"

475+ id="tspan6805"

476+ sodipodi:role="line"

477+ x="450"

478+ y="386.36218">Constructor</tspan></text>

479+ <text

480+ sodipodi:linespacing="125%"

481+ id="text6807"

482+ y="440.36218"

483+ x="384"

484+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

485+ xml:space="preserve"

486+ inkscape:export-xdpi="61.120499"

487+ inkscape:export-ydpi="61.120499"><tspan

488+ y="440.36218"

489+ x="384"

490+ id="tspan6809"

491+ sodipodi:role="line"

492+ style="font-size:15px;fill:#0000ff">name:TTName</tspan><tspan

493+ y="459.11218"

494+ x="384"

495+ sodipodi:role="line"

496+ id="tspan6811"

497+ style="font-size:15px;fill:#0000ff">arguments:List FunArg</tspan><tspan

498+ y="477.86218"

499+ x="384"

500+ sodipodi:role="line"

501+ id="tspan6813"

502+ style="font-size:15px;fill:#0000ff">returnType:Raw</tspan></text>

503+ <text

504+ sodipodi:linespacing="125%"

505+ id="text6815"

506+ y="409.36218"

507+ x="378"

508+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

509+ xml:space="preserve"

510+ inkscape:export-xdpi="61.120499"

511+ inkscape:export-ydpi="61.120499"><tspan

512+ y="409.36218"

513+ x="378"

514+ sodipodi:role="line"

515+ id="tspan6817"

516+ style="font-size:15px;fill:#0000ff">ConstructorDefn</tspan></text>

517+ <text

518+ inkscape:export-ydpi="61.120499"

519+ inkscape:export-xdpi="61.120499"

520+ sodipodi:linespacing="125%"

521+ id="text7135"

522+ y="425.36218"

523+ x="307"

524+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

525+ xml:space="preserve"><tspan

526+ y="425.36218"

527+ x="307"

528+ sodipodi:role="line"

529+ id="tspan7137"

530+ style="font-size:15px;fill:#ff0000">MkFunArg</tspan></text>

531+ <path

532+ inkscape:export-ydpi="61.120499"

533+ inkscape:export-xdpi="61.120499"

534+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker7147)"

535+ d="m 379,458.3622 -80,-35"

536+ id="path7145"

537+ inkscape:connector-curvature="0"

538+ sodipodi:nodetypes="cc" />

539+ </g>

540+</svg>

docs/image/generateFunction.pngnew file

Binary file not shown.

docs/image/generateFunction.svgnew file+588

@@ -0,0 +1,588 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.91 r13725"

18+ sodipodi:docname="generateFunction.svg">

19+ <defs

20+ id="defs4">

21+ <marker

22+ inkscape:isstock="true"

23+ style="overflow:visible;"

24+ id="marker4348"

25+ refX="0.0"

26+ refY="0.0"

27+ orient="auto"

28+ inkscape:stockid="Arrow2Mend">

29+ <path

30+ transform="scale(0.6) rotate(180) translate(0,0)"

31+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

32+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

33+ id="path4350" />

34+ </marker>

35+ <marker

36+ inkscape:isstock="true"

37+ style="overflow:visible;"

38+ id="marker7147"

39+ refX="0.0"

40+ refY="0.0"

41+ orient="auto"

42+ inkscape:stockid="Arrow2Mend">

43+ <path

44+ transform="scale(0.6) rotate(180) translate(0,0)"

45+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

46+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

47+ id="path7149" />

48+ </marker>

49+ <marker

50+ inkscape:stockid="Arrow2Mend"

51+ orient="auto"

52+ refY="0.0"

53+ refX="0.0"

54+ id="marker6819"

55+ style="overflow:visible;"

56+ inkscape:isstock="true"

57+ inkscape:collect="always">

58+ <path

59+ id="path6821"

60+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

61+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

62+ transform="scale(0.6) rotate(180) translate(0,0)" />

63+ </marker>

64+ <marker

65+ inkscape:isstock="true"

66+ style="overflow:visible;"

67+ id="marker6325"

68+ refX="0.0"

69+ refY="0.0"

70+ orient="auto"

71+ inkscape:stockid="Arrow2Mend">

72+ <path

73+ transform="scale(0.6) rotate(180) translate(0,0)"

74+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

75+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

76+ id="path6327" />

77+ </marker>

78+ <marker

79+ inkscape:stockid="Arrow2Mend"

80+ orient="auto"

81+ refY="0.0"

82+ refX="0.0"

83+ id="marker5163"

84+ style="overflow:visible;"

85+ inkscape:isstock="true">

86+ <path

87+ id="path5165"

88+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

89+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

90+ transform="scale(0.6) rotate(180) translate(0,0)" />

91+ </marker>

92+ <marker

93+ inkscape:isstock="true"

94+ style="overflow:visible;"

95+ id="marker5133"

96+ refX="0.0"

97+ refY="0.0"

98+ orient="auto"

99+ inkscape:stockid="Arrow2Mend"

100+ inkscape:collect="always">

101+ <path

102+ transform="scale(0.6) rotate(180) translate(0,0)"

103+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

104+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

105+ id="path5135" />

106+ </marker>

107+ <marker

108+ inkscape:stockid="Arrow2Mend"

109+ orient="auto"

110+ refY="0.0"

111+ refX="0.0"

112+ id="Arrow2Mend"

113+ style="overflow:visible;"

114+ inkscape:isstock="true"

115+ inkscape:collect="always">

116+ <path

117+ id="path4183"

118+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

119+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

120+ transform="scale(0.6) rotate(180) translate(0,0)" />

121+ </marker>

122+ </defs>

123+ <sodipodi:namedview

124+ id="base"

125+ pagecolor="#ffffff"

126+ bordercolor="#666666"

127+ borderopacity="1.0"

128+ inkscape:pageopacity="0.0"

129+ inkscape:pageshadow="2"

130+ inkscape:zoom="1"

131+ inkscape:cx="380.92935"

132+ inkscape:cy="520"

133+ inkscape:document-units="px"

134+ inkscape:current-layer="layer1"

135+ showgrid="false"

136+ inkscape:window-width="1212"

137+ inkscape:window-height="1011"

138+ inkscape:window-x="0"

139+ inkscape:window-y="0"

140+ inkscape:window-maximized="0" />

141+ <metadata

142+ id="metadata7">

143+ <rdf:RDF>

144+ <cc:Work

145+ rdf:about="">

146+ <dc:format>image/svg+xml</dc:format>

147+ <dc:type

148+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

149+ <dc:title />

150+ </cc:Work>

151+ </rdf:RDF>

152+ </metadata>

153+ <g

154+ inkscape:label="Layer 1"

155+ inkscape:groupmode="layer"

156+ id="layer1">

157+ <rect

158+ style="opacity:1;fill:none;fill-opacity:1;stroke:#000000;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

159+ id="rect4136"

160+ width="201"

161+ height="69"

162+ x="116"

163+ y="203.3622"

164+ inkscape:export-xdpi="61.120499"

165+ inkscape:export-ydpi="61.120499" />

166+ <rect

167+ y="322.36218"

168+ x="113"

169+ height="69"

170+ width="201"

171+ id="rect4138"

172+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

173+ inkscape:export-xdpi="61.120499"

174+ inkscape:export-ydpi="61.120499" />

175+ <rect

176+ y="202.3622"

177+ x="381"

178+ height="69"

179+ width="201"

180+ id="rect4140"

181+ style="opacity:1;fill:none;fill-opacity:1;stroke:#000000;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

182+ inkscape:export-xdpi="61.120499"

183+ inkscape:export-ydpi="61.120499" />

184+ <text

185+ xml:space="preserve"

186+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

187+ x="125"

188+ y="227.3622"

189+ id="text4142"

190+ sodipodi:linespacing="125%"

191+ inkscape:export-xdpi="61.120499"

192+ inkscape:export-ydpi="61.120499"><tspan

193+ sodipodi:role="line"

194+ id="tspan4144"

195+ x="125"

196+ y="227.3622">declareType</tspan></text>

197+ <text

198+ sodipodi:linespacing="125%"

199+ id="text4146"

200+ y="225.3622"

201+ x="389"

202+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

203+ xml:space="preserve"

204+ inkscape:export-xdpi="61.120499"

205+ inkscape:export-ydpi="61.120499"><tspan

206+ y="225.3622"

207+ x="389"

208+ id="tspan4148"

209+ sodipodi:role="line">defineFunction</tspan></text>

210+ <path

211+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker5133)"

212+ d="m 190,271.3622 0,48"

213+ id="path4150"

214+ inkscape:connector-curvature="0"

215+ inkscape:export-xdpi="61.120499"

216+ inkscape:export-ydpi="61.120499" />

217+ <text

218+ sodipodi:linespacing="125%"

219+ id="text5074"

220+ y="295.36218"

221+ x="201"

222+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

223+ xml:space="preserve"

224+ inkscape:export-xdpi="61.120499"

225+ inkscape:export-ydpi="61.120499"><tspan

226+ y="295.36218"

227+ x="201"

228+ sodipodi:role="line"

229+ id="tspan5080"

230+ style="font-size:15px;fill:#ff0000">Declare</tspan></text>

231+ <text

232+ xml:space="preserve"

233+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

234+ x="117"

235+ y="344.36218"

236+ id="text5082"

237+ sodipodi:linespacing="125%"

238+ inkscape:export-xdpi="61.120499"

239+ inkscape:export-ydpi="61.120499"><tspan

240+ style="font-size:15px;fill:#0000ff"

241+ sodipodi:role="line"

242+ id="tspan5084"

243+ x="117"

244+ y="344.36218">name:TTName</tspan><tspan

245+ style="font-size:15px;fill:#0000ff"

246+ id="tspan5086"

247+ sodipodi:role="line"

248+ x="117"

249+ y="363.11218">arguments:List FunArg</tspan><tspan

250+ style="font-size:15px;fill:#0000ff"

251+ id="tspan5088"

252+ sodipodi:role="line"

253+ x="117"

254+ y="381.86218">returnType:Raw</tspan></text>

255+ <text

256+ xml:space="preserve"

257+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

258+ x="111"

259+ y="313.36218"

260+ id="text5095"

261+ sodipodi:linespacing="125%"

262+ inkscape:export-xdpi="61.120499"

263+ inkscape:export-ydpi="61.120499"><tspan

264+ style="font-size:15px;fill:#0000ff;"

265+ id="tspan5097"

266+ sodipodi:role="line"

267+ x="111"

268+ y="313.36218">TyDecl</tspan></text>

269+ <rect

270+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

271+ id="rect5099"

272+ width="125"

273+ height="88"

274+ x="170"

275+ y="415.36218"

276+ inkscape:export-xdpi="61.120499"

277+ inkscape:export-ydpi="61.120499" />

278+ <path

279+ inkscape:connector-curvature="0"

280+ id="path5101"

281+ d="m 247,364.3622 0,48"

282+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#Arrow2Mend)"

283+ inkscape:export-xdpi="61.120499"

284+ inkscape:export-ydpi="61.120499" />

285+ <text

286+ xml:space="preserve"

287+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

288+ x="260"

289+ y="408.36218"

290+ id="text5103"

291+ sodipodi:linespacing="125%"

292+ inkscape:export-xdpi="61.120499"

293+ inkscape:export-ydpi="61.120499"><tspan

294+ style="font-size:15px;fill:#ff0000"

295+ id="tspan5105"

296+ sodipodi:role="line"

297+ x="260"

298+ y="408.36218">MkFunArg</tspan></text>

299+ <text

300+ sodipodi:linespacing="125%"

301+ id="text5107"

302+ y="437.36218"

303+ x="174"

304+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

305+ xml:space="preserve"

306+ inkscape:export-xdpi="61.120499"

307+ inkscape:export-ydpi="61.120499"><tspan

308+ y="437.36218"

309+ x="174"

310+ id="tspan5109"

311+ sodipodi:role="line"

312+ style="font-size:15px;fill:#0000ff">name:TTName</tspan><tspan

313+ y="456.11218"

314+ x="174"

315+ sodipodi:role="line"

316+ id="tspan5113"

317+ style="font-size:15px;fill:#0000ff">type:Raw</tspan><tspan

318+ y="474.86218"

319+ x="174"

320+ sodipodi:role="line"

321+ style="font-size:15px;fill:#0000ff"

322+ id="tspan5121">plicity:Plicity</tspan><tspan

323+ y="493.61218"

324+ x="174"

325+ sodipodi:role="line"

326+ style="font-size:15px;fill:#0000ff"

327+ id="tspan5123">erasure:Erasure</tspan></text>

328+ <text

329+ sodipodi:linespacing="125%"

330+ id="text5115"

331+ y="409.36218"

332+ x="170"

333+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

334+ xml:space="preserve"

335+ inkscape:export-xdpi="61.120499"

336+ inkscape:export-ydpi="61.120499"><tspan

337+ y="409.36218"

338+ x="170"

339+ sodipodi:role="line"

340+ id="tspan5117"

341+ style="font-size:15px;fill:#0000ff">FunArg</tspan></text>

342+ <text

343+ sodipodi:linespacing="125%"

344+ id="text5125"

345+ y="526.36218"

346+ x="105"

347+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

348+ xml:space="preserve"

349+ inkscape:export-xdpi="61.120499"

350+ inkscape:export-ydpi="61.120499"><tspan

351+ y="526.36218"

352+ x="105"

353+ sodipodi:role="line"

354+ id="tspan5127"

355+ style="font-size:15px;fill:#ff0000">Explicit</tspan><tspan

356+ y="545.11218"

357+ x="105"

358+ sodipodi:role="line"

359+ style="font-size:15px;fill:#ff0000"

360+ id="tspan5129">Implicit</tspan><tspan

361+ y="563.86218"

362+ x="105"

363+ sodipodi:role="line"

364+ style="font-size:15px;fill:#ff0000"

365+ id="tspan5131">Constraint</tspan></text>

366+ <path

367+ inkscape:connector-curvature="0"

368+ id="path5161"

369+ d="m 169,473.3622 c -30.23945,2.9603 -39.98191,17.10078 -41,36"

370+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker5163)"

371+ sodipodi:nodetypes="cc"

372+ inkscape:export-xdpi="61.120499"

373+ inkscape:export-ydpi="61.120499" />

374+ <path

375+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker6325)"

376+ d="m 245,499.3622 0,28"

377+ id="path6319"

378+ inkscape:connector-curvature="0"

379+ sodipodi:nodetypes="cc"

380+ inkscape:export-xdpi="61.120499"

381+ inkscape:export-ydpi="61.120499" />

382+ <text

383+ sodipodi:linespacing="125%"

384+ id="text6321"

385+ y="544.36218"

386+ x="221"

387+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

388+ xml:space="preserve"

389+ inkscape:export-xdpi="61.120499"

390+ inkscape:export-ydpi="61.120499"><tspan

391+ y="544.36218"

392+ x="221"

393+ sodipodi:role="line"

394+ id="tspan6323"

395+ style="font-size:15px;fill:#ff0000">Erased</tspan><tspan

396+ y="563.11218"

397+ x="221"

398+ sodipodi:role="line"

399+ style="font-size:15px;fill:#ff0000"

400+ id="tspan6773">NotErased</tspan></text>

401+ <rect

402+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

403+ id="rect6775"

404+ width="247"

405+ height="49"

406+ x="347"

407+ y="322.36218"

408+ inkscape:export-xdpi="61.120499"

409+ inkscape:export-ydpi="61.120499" />

410+ <path

411+ inkscape:connector-curvature="0"

412+ id="path6777"

413+ d="m 458,271.3622 0,48"

414+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker5133)"

415+ inkscape:export-xdpi="61.120499"

416+ inkscape:export-ydpi="61.120499" />

417+ <text

418+ xml:space="preserve"

419+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

420+ x="469"

421+ y="295.36218"

422+ id="text6779"

423+ sodipodi:linespacing="125%"

424+ inkscape:export-xdpi="61.120499"

425+ inkscape:export-ydpi="61.120499"><tspan

426+ style="font-size:15px;fill:#ff0000"

427+ id="tspan6781"

428+ sodipodi:role="line"

429+ x="469"

430+ y="295.36218">DefineFun</tspan></text>

431+ <text

432+ sodipodi:linespacing="125%"

433+ id="text6783"

434+ y="344.36218"

435+ x="351"

436+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

437+ xml:space="preserve"

438+ inkscape:export-xdpi="61.120499"

439+ inkscape:export-ydpi="61.120499"><tspan

440+ y="344.36218"

441+ x="351"

442+ sodipodi:role="line"

443+ id="tspan6789"

444+ style="font-size:15px;fill:#0000ff">name:TTName</tspan><tspan

445+ y="363.11218"

446+ x="351"

447+ sodipodi:role="line"

448+ style="font-size:15px;fill:#0000ff"

449+ id="tspan7130">clauses : List (FunClause a)</tspan></text>

450+ <text

451+ sodipodi:linespacing="125%"

452+ id="text6791"

453+ y="313.36218"

454+ x="379"

455+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

456+ xml:space="preserve"

457+ inkscape:export-xdpi="61.120499"

458+ inkscape:export-ydpi="61.120499"><tspan

459+ y="313.36218"

460+ x="379"

461+ sodipodi:role="line"

462+ id="tspan6793"

463+ style="font-size:15px;fill:#0000ff">FunDefn</tspan></text>

464+ <rect

465+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

466+ id="rect6799"

467+ width="86"

468+ height="64"

469+ x="372"

470+ y="462.36218"

471+ inkscape:export-xdpi="61.120499"

472+ inkscape:export-ydpi="61.120499" />

473+ <path

474+ inkscape:connector-curvature="0"

475+ id="path6801"

476+ d="m 552,370.3622 0,86"

477+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker6819)"

478+ inkscape:export-xdpi="61.120499"

479+ inkscape:export-ydpi="61.120499"

480+ sodipodi:nodetypes="cc" />

481+ <text

482+ xml:space="preserve"

483+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

484+ x="352"

485+ y="418.36218"

486+ id="text6803"

487+ sodipodi:linespacing="125%"

488+ inkscape:export-xdpi="61.120499"

489+ inkscape:export-ydpi="61.120499"><tspan

490+ style="font-size:15px;fill:#ff0000"

491+ id="tspan6805"

492+ sodipodi:role="line"

493+ x="352"

494+ y="418.36218">MkFunClause</tspan></text>

495+ <text

496+ sodipodi:linespacing="125%"

497+ id="text6807"

498+ y="484.36218"

499+ x="376"

500+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

501+ xml:space="preserve"

502+ inkscape:export-xdpi="61.120499"

503+ inkscape:export-ydpi="61.120499"><tspan

504+ y="484.36218"

505+ x="376"

506+ sodipodi:role="line"

507+ id="tspan6813"

508+ style="font-size:15px;fill:#0000ff">lhs:a</tspan><tspan

509+ y="503.11218"

510+ x="376"

511+ sodipodi:role="line"

512+ style="font-size:15px;fill:#0000ff"

513+ id="tspan4330">rhs:a</tspan></text>

514+ <text

515+ sodipodi:linespacing="125%"

516+ id="text6815"

517+ y="453.36218"

518+ x="370"

519+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

520+ xml:space="preserve"

521+ inkscape:export-xdpi="61.120499"

522+ inkscape:export-ydpi="61.120499"><tspan

523+ y="453.36218"

524+ x="370"

525+ sodipodi:role="line"

526+ id="tspan6817"

527+ style="font-size:15px;fill:#0000ff">FunClause</tspan></text>

528+ <text

529+ inkscape:export-ydpi="61.120499"

530+ inkscape:export-xdpi="61.120499"

531+ sodipodi:linespacing="125%"

532+ id="text4321"

533+ y="395.36218"

534+ x="407"

535+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

536+ xml:space="preserve"><tspan

537+ y="395.36218"

538+ x="407"

539+ sodipodi:role="line"

540+ id="tspan4323"

541+ style="font-size:15px;fill:#ff0000">MkImpossibleClause</tspan></text>

542+ <rect

543+ inkscape:export-ydpi="61.120499"

544+ inkscape:export-xdpi="61.120499"

545+ y="461.36218"

546+ x="473"

547+ height="64"

548+ width="86"

549+ id="rect4332"

550+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1" />

551+ <text

552+ inkscape:export-ydpi="61.120499"

553+ inkscape:export-xdpi="61.120499"

554+ xml:space="preserve"

555+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

556+ x="477"

557+ y="483.36218"

558+ id="text4334"

559+ sodipodi:linespacing="125%"><tspan

560+ id="tspan4338"

561+ style="font-size:15px;fill:#0000ff"

562+ sodipodi:role="line"

563+ x="477"

564+ y="483.36218">lhs:a</tspan></text>

565+ <text

566+ inkscape:export-ydpi="61.120499"

567+ inkscape:export-xdpi="61.120499"

568+ xml:space="preserve"

569+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

570+ x="471"

571+ y="452.36218"

572+ id="text4340"

573+ sodipodi:linespacing="125%"><tspan

574+ style="font-size:15px;fill:#0000ff"

575+ id="tspan4342"

576+ sodipodi:role="line"

577+ x="471"

578+ y="452.36218">FunClause</tspan></text>

579+ <path

580+ inkscape:export-ydpi="61.120499"

581+ inkscape:export-xdpi="61.120499"

582+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker4348)"

583+ d="m 450,371.3622 0,84"

584+ id="path4346"

585+ inkscape:connector-curvature="0"

586+ sodipodi:nodetypes="cc" />

587+ </g>

588+</svg>

docs/image/generateFunction2.pngnew file

Binary file not shown.

docs/image/generateFunction2.svgnew file+430

@@ -0,0 +1,430 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.91 r13725"

18+ sodipodi:docname="generateFunction2.svg">

19+ <defs

20+ id="defs4">

21+ <marker

22+ inkscape:isstock="true"

23+ style="overflow:visible;"

24+ id="marker4439"

25+ refX="0.0"

26+ refY="0.0"

27+ orient="auto"

28+ inkscape:stockid="Arrow2Mend">

29+ <path

30+ transform="scale(0.6) rotate(180) translate(0,0)"

31+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

32+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

33+ id="path4441" />

34+ </marker>

35+ <marker

36+ inkscape:stockid="Arrow2Mend"

37+ orient="auto"

38+ refY="0.0"

39+ refX="0.0"

40+ id="marker4433"

41+ style="overflow:visible;"

42+ inkscape:isstock="true">

43+ <path

44+ id="path4435"

45+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

46+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

47+ transform="scale(0.6) rotate(180) translate(0,0)" />

48+ </marker>

49+ <marker

50+ inkscape:isstock="true"

51+ style="overflow:visible;"

52+ id="marker4427"

53+ refX="0.0"

54+ refY="0.0"

55+ orient="auto"

56+ inkscape:stockid="Arrow2Mend"

57+ inkscape:collect="always">

58+ <path

59+ transform="scale(0.6) rotate(180) translate(0,0)"

60+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

61+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

62+ id="path4429" />

63+ </marker>

64+ <marker

65+ inkscape:isstock="true"

66+ style="overflow:visible;"

67+ id="marker4411"

68+ refX="0.0"

69+ refY="0.0"

70+ orient="auto"

71+ inkscape:stockid="Arrow2Mend">

72+ <path

73+ transform="scale(0.6) rotate(180) translate(0,0)"

74+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

75+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

76+ id="path4413" />

77+ </marker>

78+ <marker

79+ inkscape:stockid="Arrow2Mend"

80+ orient="auto"

81+ refY="0.0"

82+ refX="0.0"

83+ id="marker4407"

84+ style="overflow:visible;"

85+ inkscape:isstock="true">

86+ <path

87+ id="path4409"

88+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

89+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

90+ transform="scale(0.6) rotate(180) translate(0,0)" />

91+ </marker>

92+ <marker

93+ inkscape:stockid="Arrow2Mend"

94+ orient="auto"

95+ refY="0.0"

96+ refX="0.0"

97+ id="marker4403"

98+ style="overflow:visible;"

99+ inkscape:isstock="true">

100+ <path

101+ id="path4405"

102+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

103+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

104+ transform="scale(0.6) rotate(180) translate(0,0)" />

105+ </marker>

106+ <marker

107+ inkscape:isstock="true"

108+ style="overflow:visible;"

109+ id="marker4359"

110+ refX="0.0"

111+ refY="0.0"

112+ orient="auto"

113+ inkscape:stockid="Arrow2Mend"

114+ inkscape:collect="always">

115+ <path

116+ transform="scale(0.6) rotate(180) translate(0,0)"

117+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

118+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

119+ id="path4361" />

120+ </marker>

121+ <marker

122+ inkscape:stockid="Arrow2Mend"

123+ orient="auto"

124+ refY="0.0"

125+ refX="0.0"

126+ id="marker4349"

127+ style="overflow:visible;"

128+ inkscape:isstock="true"

129+ inkscape:collect="always">

130+ <path

131+ id="path4351"

132+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

133+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

134+ transform="scale(0.6) rotate(180) translate(0,0)" />

135+ </marker>

136+ <marker

137+ inkscape:isstock="true"

138+ style="overflow:visible;"

139+ id="marker7147"

140+ refX="0.0"

141+ refY="0.0"

142+ orient="auto"

143+ inkscape:stockid="Arrow2Mend">

144+ <path

145+ transform="scale(0.6) rotate(180) translate(0,0)"

146+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

147+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

148+ id="path7149" />

149+ </marker>

150+ <marker

151+ inkscape:isstock="true"

152+ style="overflow:visible;"

153+ id="marker6325"

154+ refX="0.0"

155+ refY="0.0"

156+ orient="auto"

157+ inkscape:stockid="Arrow2Mend">

158+ <path

159+ transform="scale(0.6) rotate(180) translate(0,0)"

160+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

161+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

162+ id="path6327" />

163+ </marker>

164+ <marker

165+ inkscape:stockid="Arrow2Mend"

166+ orient="auto"

167+ refY="0.0"

168+ refX="0.0"

169+ id="marker5163"

170+ style="overflow:visible;"

171+ inkscape:isstock="true">

172+ <path

173+ id="path5165"

174+ style="fill-rule:evenodd;stroke-width:0.625;stroke-linejoin:round;stroke:#ff0000;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

175+ d="M 8.7185878,4.0337352 L -2.2072895,0.016013256 L 8.7185884,-4.0017078 C 6.9730900,-1.6296469 6.9831476,1.6157441 8.7185878,4.0337352 z "

176+ transform="scale(0.6) rotate(180) translate(0,0)" />

177+ </marker>

178+ </defs>

179+ <sodipodi:namedview

180+ id="base"

181+ pagecolor="#ffffff"

182+ bordercolor="#666666"

183+ borderopacity="1.0"

184+ inkscape:pageopacity="0.0"

185+ inkscape:pageshadow="2"

186+ inkscape:zoom="1"

187+ inkscape:cx="380.92935"

188+ inkscape:cy="592.42473"

189+ inkscape:document-units="px"

190+ inkscape:current-layer="layer1"

191+ showgrid="false"

192+ inkscape:window-width="1067"

193+ inkscape:window-height="1011"

194+ inkscape:window-x="0"

195+ inkscape:window-y="0"

196+ inkscape:window-maximized="0" />

197+ <metadata

198+ id="metadata7">

199+ <rdf:RDF>

200+ <cc:Work

201+ rdf:about="">

202+ <dc:format>image/svg+xml</dc:format>

203+ <dc:type

204+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

205+ <dc:title />

206+ </cc:Work>

207+ </rdf:RDF>

208+ </metadata>

209+ <g

210+ inkscape:label="Layer 1"

211+ inkscape:groupmode="layer"

212+ id="layer1">

213+ <rect

214+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

215+ id="rect6799"

216+ width="86"

217+ height="64"

218+ x="203"

219+ y="105.36218"

220+ inkscape:export-xdpi="61.120499"

221+ inkscape:export-ydpi="61.120499" />

222+ <text

223+ xml:space="preserve"

224+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

225+ x="201"

226+ y="211.36218"

227+ id="text6803"

228+ sodipodi:linespacing="125%"

229+ inkscape:export-xdpi="61.120499"

230+ inkscape:export-ydpi="61.120499"><tspan

231+ style="font-size:15px;fill:#ff0000"

232+ id="tspan6805"

233+ sodipodi:role="line"

234+ x="201"

235+ y="211.36218">RBind <tspan

236+ style="fill:#0000ff"

237+ id="tspan4367">TTName</tspan> (<tspan

238+ style="fill:#0000ff"

239+ id="tspan4363">Binder TT</tspan>) <tspan

240+ style="fill:#0000ff"

241+ id="tspan4365"> TT</tspan></tspan></text>

242+ <text

243+ sodipodi:linespacing="125%"

244+ id="text6807"

245+ y="127.36218"

246+ x="207"

247+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

248+ xml:space="preserve"

249+ inkscape:export-xdpi="61.120499"

250+ inkscape:export-ydpi="61.120499"><tspan

251+ y="127.36218"

252+ x="207"

253+ sodipodi:role="line"

254+ id="tspan6813"

255+ style="font-size:15px;fill:#0000ff">lhs:a</tspan><tspan

256+ y="146.11218"

257+ x="207"

258+ sodipodi:role="line"

259+ style="font-size:15px;fill:#0000ff"

260+ id="tspan4330">rhs:a</tspan></text>

261+ <text

262+ sodipodi:linespacing="125%"

263+ id="text6815"

264+ y="96.362183"

265+ x="201"

266+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

267+ xml:space="preserve"

268+ inkscape:export-xdpi="61.120499"

269+ inkscape:export-ydpi="61.120499"><tspan

270+ y="96.362183"

271+ x="201"

272+ sodipodi:role="line"

273+ id="tspan6817"

274+ style="font-size:15px;fill:#0000ff">FunClause</tspan></text>

275+ <rect

276+ inkscape:export-ydpi="61.120499"

277+ inkscape:export-xdpi="61.120499"

278+ y="177.36218"

279+ x="153"

280+ height="142"

281+ width="350"

282+ id="rect4332"

283+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1" />

284+ <text

285+ inkscape:export-ydpi="61.120499"

286+ inkscape:export-xdpi="61.120499"

287+ xml:space="preserve"

288+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

289+ x="162"

290+ y="168.36218"

291+ id="text4340"

292+ sodipodi:linespacing="125%"><tspan

293+ style="font-size:15px;fill:#0000ff"

294+ id="tspan4342"

295+ sodipodi:role="line"

296+ x="162"

297+ y="168.36218">Raw</tspan></text>

298+ <path

299+ inkscape:export-ydpi="61.120499"

300+ inkscape:export-xdpi="61.120499"

301+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker4349)"

302+ d="m 247,145.3622 c 28.96221,0.27049 22.31485,19.06346 -7,48"

303+ id="path4346"

304+ inkscape:connector-curvature="0"

305+ sodipodi:nodetypes="cc" />

306+ <text

307+ inkscape:export-ydpi="61.120499"

308+ inkscape:export-xdpi="61.120499"

309+ sodipodi:linespacing="125%"

310+ id="text4333"

311+ y="362.36218"

312+ x="343"

313+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

314+ xml:space="preserve"><tspan

315+ y="362.36218"

316+ x="343"

317+ sodipodi:role="line"

318+ id="tspan4335"

319+ style="font-size:15px;fill:#ff0000">PVar <tspan

320+ style="fill:#0000ff"

321+ id="tspan4415">a</tspan> (<tspan

322+ style="fill:#0000ff"

323+ id="tspan4369">Binder a</tspan>)</tspan></text>

324+ <path

325+ sodipodi:nodetypes="cc"

326+ inkscape:connector-curvature="0"

327+ id="path4337"

328+ d="m 336,214.3622 0,158"

329+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker4407)"

330+ inkscape:export-xdpi="61.120499"

331+ inkscape:export-ydpi="61.120499" />

332+ <text

333+ xml:space="preserve"

334+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

335+ x="439"

336+ y="196.36218"

337+ id="text4339"

338+ sodipodi:linespacing="125%"

339+ inkscape:export-xdpi="61.120499"

340+ inkscape:export-ydpi="61.120499"><tspan

341+ style="font-size:15px;fill:#ff0000"

342+ id="tspan4341"

343+ sodipodi:role="line"

344+ x="439"

345+ y="196.36218">RApp Raw Raw</tspan></text>

346+ <path

347+ inkscape:export-ydpi="61.120499"

348+ inkscape:export-xdpi="61.120499"

349+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker4359)"

350+ d="m 396,216.3622 c 22.67213,51.77028 75.6614,-87.82153 4,-37"

351+ id="path4343"

352+ inkscape:connector-curvature="0"

353+ sodipodi:nodetypes="cc" />

354+ <rect

355+ style="opacity:1;fill:none;fill-opacity:1;stroke:#0000ff;stroke-width:2;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

356+ id="rect4381"

357+ width="314"

358+ height="63"

359+ x="152"

360+ y="373.36218"

361+ inkscape:export-xdpi="61.120499"

362+ inkscape:export-ydpi="61.120499" />

363+ <text

364+ sodipodi:linespacing="125%"

365+ id="text4383"

366+ y="364.36218"

367+ x="161"

368+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

369+ xml:space="preserve"

370+ inkscape:export-xdpi="61.120499"

371+ inkscape:export-ydpi="61.120499"><tspan

372+ y="364.36218"

373+ x="161"

374+ sodipodi:role="line"

375+ id="tspan4385"

376+ style="font-size:15px;fill:#0000ff">Binder a</tspan></text>

377+ <text

378+ xml:space="preserve"

379+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

380+ x="208"

381+ y="254.36218"

382+ id="text4417"

383+ sodipodi:linespacing="125%"

384+ inkscape:export-xdpi="61.120499"

385+ inkscape:export-ydpi="61.120499"><tspan

386+ style="font-size:15px;fill:#ff0000"

387+ id="tspan4419"

388+ sodipodi:role="line"

389+ x="208"

390+ y="254.36218">`{{code}}</tspan></text>

391+ <text

392+ inkscape:export-ydpi="61.120499"

393+ inkscape:export-xdpi="61.120499"

394+ sodipodi:linespacing="125%"

395+ id="text4421"

396+ y="275.36218"

397+ x="242"

398+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

399+ xml:space="preserve"><tspan

400+ y="275.36218"

401+ x="242"

402+ sodipodi:role="line"

403+ id="tspan4423"

404+ style="font-size:15px;fill:#ff0000">`{{body}}</tspan></text>

405+ <path

406+ inkscape:export-ydpi="61.120499"

407+ inkscape:export-xdpi="61.120499"

408+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker4427)"

409+ d="m 266,218.3622 -26,17"

410+ id="path4425"

411+ inkscape:connector-curvature="0"

412+ sodipodi:nodetypes="cc" />

413+ <path

414+ sodipodi:nodetypes="cc"

415+ inkscape:connector-curvature="0"

416+ id="path4431"

417+ d="m 272,217.3622 9,42"

418+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker4433)"

419+ inkscape:export-xdpi="61.120499"

420+ inkscape:export-ydpi="61.120499" />

421+ <path

422+ sodipodi:nodetypes="cc"

423+ inkscape:connector-curvature="0"

424+ id="path4437"

425+ d="m 248,124.3622 c 30.28183,6.20207 31.24081,36.56361 -10,70"

426+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker4439)"

427+ inkscape:export-xdpi="61.120499"

428+ inkscape:export-ydpi="61.120499" />

429+ </g>

430+</svg>

docs/image/idrisTopLevel.pngnew file

Binary file not shown.

docs/image/idrisTopLevel.svgnew file+524

@@ -0,0 +1,524 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.91 r13725"

18+ sodipodi:docname="idrisTopLevel.svg">

19+ <defs

20+ id="defs4">

21+ <marker

22+ inkscape:stockid="Arrow1Mend"

23+ orient="auto"

24+ refY="0.0"

25+ refX="0.0"

26+ id="marker4198"

27+ style="overflow:visible;"

28+ inkscape:isstock="true">

29+ <path

30+ id="path4200"

31+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

32+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

33+ transform="scale(0.4) rotate(180) translate(10,0)" />

34+ </marker>

35+ <marker

36+ inkscape:isstock="true"

37+ style="overflow:visible;"

38+ id="marker4203"

39+ refX="0.0"

40+ refY="0.0"

41+ orient="auto"

42+ inkscape:stockid="Arrow1Mend"

43+ inkscape:collect="always">

44+ <path

45+ transform="scale(0.4) rotate(180) translate(10,0)"

46+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

47+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

48+ id="path4205" />

49+ </marker>

50+ <marker

51+ inkscape:stockid="Arrow1Mend"

52+ orient="auto"

53+ refY="0.0"

54+ refX="0.0"

55+ id="marker4197"

56+ style="overflow:visible;"

57+ inkscape:isstock="true"

58+ inkscape:collect="always">

59+ <path

60+ id="path4199"

61+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

62+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

63+ transform="scale(0.4) rotate(180) translate(10,0)" />

64+ </marker>

65+ <marker

66+ inkscape:stockid="Arrow1Mend"

67+ orient="auto"

68+ refY="0.0"

69+ refX="0.0"

70+ id="marker4182"

71+ style="overflow:visible;"

72+ inkscape:isstock="true">

73+ <path

74+ id="path4184"

75+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

76+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

77+ transform="scale(0.4) rotate(180) translate(10,0)" />

78+ </marker>

79+ <marker

80+ inkscape:isstock="true"

81+ style="overflow:visible;"

82+ id="marker4176"

83+ refX="0.0"

84+ refY="0.0"

85+ orient="auto"

86+ inkscape:stockid="Arrow1Mend"

87+ inkscape:collect="always">

88+ <path

89+ transform="scale(0.4) rotate(180) translate(10,0)"

90+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

91+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

92+ id="path4178" />

93+ </marker>

94+ <marker

95+ inkscape:stockid="Arrow1Mend"

96+ orient="auto"

97+ refY="0.0"

98+ refX="0.0"

99+ id="marker4830"

100+ style="overflow:visible;"

101+ inkscape:isstock="true"

102+ inkscape:collect="always">

103+ <path

104+ id="path4832"

105+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

106+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

107+ transform="scale(0.4) rotate(180) translate(10,0)" />

108+ </marker>

109+ <marker

110+ inkscape:stockid="Arrow1Mend"

111+ orient="auto"

112+ refY="0.0"

113+ refX="0.0"

114+ id="Arrow1Mend"

115+ style="overflow:visible;"

116+ inkscape:isstock="true"

117+ inkscape:collect="always">

118+ <path

119+ id="path4175"

120+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

121+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

122+ transform="scale(0.4) rotate(180) translate(10,0)" />

123+ </marker>

124+ </defs>

125+ <sodipodi:namedview

126+ id="base"

127+ pagecolor="#ffffff"

128+ bordercolor="#666666"

129+ borderopacity="1.0"

130+ inkscape:pageopacity="0.0"

131+ inkscape:pageshadow="2"

132+ inkscape:zoom="1"

133+ inkscape:cx="353.5"

134+ inkscape:cy="669.5"

135+ inkscape:document-units="px"

136+ inkscape:current-layer="layer1"

137+ showgrid="false"

138+ inkscape:window-width="1744"

139+ inkscape:window-height="1011"

140+ inkscape:window-x="-4"

141+ inkscape:window-y="0"

142+ inkscape:window-maximized="0" />

143+ <metadata

144+ id="metadata7">

145+ <rdf:RDF>

146+ <cc:Work

147+ rdf:about="">

148+ <dc:format>image/svg+xml</dc:format>

149+ <dc:type

150+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

151+ <dc:title />

152+ </cc:Work>

153+ </rdf:RDF>

154+ </metadata>

155+ <g

156+ inkscape:label="Layer 1"

157+ inkscape:groupmode="layer"

158+ id="layer1">

159+ <text

160+ xml:space="preserve"

161+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

162+ x="21"

163+ y="411.36221"

164+ id="text4136"

165+ sodipodi:linespacing="125%"

166+ inkscape:export-xdpi="61.120499"

167+ inkscape:export-ydpi="61.120499"><tspan

168+ sodipodi:role="line"

169+ id="tspan4138"

170+ x="21"

171+ y="411.36221"

172+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:25px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000">Idris</tspan></text>

173+ <text

174+ sodipodi:linespacing="125%"

175+ id="text4140"

176+ y="411.36221"

177+ x="203"

178+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

179+ xml:space="preserve"

180+ inkscape:export-xdpi="61.120499"

181+ inkscape:export-ydpi="61.120499"><tspan

182+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:25px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

183+ y="411.36221"

184+ x="203"

185+ id="tspan4142"

186+ sodipodi:role="line">Idris</tspan></text>

187+ <text

188+ xml:space="preserve"

189+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

190+ x="253"

191+ y="402.36218"

192+ id="text4144"

193+ sodipodi:linespacing="125%"

194+ inkscape:export-xdpi="61.120499"

195+ inkscape:export-ydpi="61.120499"><tspan

196+ sodipodi:role="line"

197+ id="tspan4146"

198+ x="253"

199+ y="402.36218"

200+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:25px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;">~</tspan></text>

201+ <text

202+ sodipodi:linespacing="125%"

203+ id="text4148"

204+ y="411.60635"

205+ x="451"

206+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

207+ xml:space="preserve"

208+ inkscape:export-xdpi="61.120499"

209+ inkscape:export-ydpi="61.120499"><tspan

210+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:25px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

211+ y="411.60635"

212+ x="451"

213+ id="tspan4150"

214+ sodipodi:role="line">TT</tspan></text>

215+ <text

216+ xml:space="preserve"

217+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

218+ x="610"

219+ y="411.36221"

220+ id="text4152"

221+ sodipodi:linespacing="125%"

222+ inkscape:export-xdpi="61.120499"

223+ inkscape:export-ydpi="61.120499"><tspan

224+ sodipodi:role="line"

225+ id="tspan4154"

226+ x="610"

227+ y="411.36221"

228+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:25px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000">Executable</tspan></text>

229+ <text

230+ sodipodi:linespacing="125%"

231+ id="text4156"

232+ y="436.36218"

233+ x="80"

234+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

235+ xml:space="preserve"

236+ inkscape:export-xdpi="61.120499"

237+ inkscape:export-ydpi="61.120499"><tspan

238+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

239+ y="436.36218"

240+ x="80"

241+ id="tspan4158"

242+ sodipodi:role="line">desugaring</tspan></text>

243+ <path

244+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#Arrow1Mend)"

245+ d="M 81.977612,407.11261 188,407.3622"

246+ id="path4160"

247+ inkscape:connector-curvature="0"

248+ inkscape:export-xdpi="61.120499"

249+ inkscape:export-ydpi="61.120499"

250+ sodipodi:nodetypes="cc" />

251+ <text

252+ xml:space="preserve"

253+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

254+ x="281"

255+ y="432.36218"

256+ id="text4790"

257+ sodipodi:linespacing="125%"

258+ inkscape:export-xdpi="61.120499"

259+ inkscape:export-ydpi="61.120499"><tspan

260+ sodipodi:role="line"

261+ id="tspan4792"

262+ x="281"

263+ y="432.36218"

264+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'">elaboration</tspan></text>

265+ <text

266+ sodipodi:linespacing="125%"

267+ id="text4824"

268+ y="394.36218"

269+ x="498"

270+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

271+ xml:space="preserve"

272+ inkscape:export-xdpi="61.120499"

273+ inkscape:export-ydpi="61.120499"><tspan

274+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

275+ y="394.36218"

276+ x="498"

277+ id="tspan4826"

278+ sodipodi:role="line">compilation</tspan></text>

279+ <path

280+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker4830)"

281+ d="m 495,405.33981 105,0.0224"

282+ id="path4828"

283+ inkscape:connector-curvature="0"

284+ inkscape:export-xdpi="61.120499"

285+ inkscape:export-ydpi="61.120499"

286+ sodipodi:nodetypes="cc" />

287+ <text

288+ inkscape:export-ydpi="61.120499"

289+ inkscape:export-xdpi="61.120499"

290+ sodipodi:linespacing="125%"

291+ id="text4166"

292+ y="442.36218"

293+ x="609"

294+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

295+ xml:space="preserve"><tspan

296+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:25px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

297+ y="442.36218"

298+ x="609"

299+ id="tspan4168"

300+ sodipodi:role="line">C</tspan></text>

301+ <text

302+ xml:space="preserve"

303+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

304+ x="609"

305+ y="475.36218"

306+ id="text4170"

307+ sodipodi:linespacing="125%"

308+ inkscape:export-xdpi="61.120499"

309+ inkscape:export-ydpi="61.120499"><tspan

310+ sodipodi:role="line"

311+ id="tspan4172"

312+ x="609"

313+ y="475.36218"

314+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:25px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000">JS</tspan></text>

315+ <path

316+ inkscape:export-ydpi="61.120499"

317+ inkscape:export-xdpi="61.120499"

318+ inkscape:connector-curvature="0"

319+ id="path4174"

320+ d="m 495,406.3622 104,26"

321+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:8, 2;stroke-dashoffset:0;stroke-opacity:1;marker-end:url(#marker4176)"

322+ sodipodi:nodetypes="cc" />

323+ <path

324+ sodipodi:nodetypes="cc"

325+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:12, 2;stroke-dashoffset:0;stroke-opacity:1;marker-end:url(#marker4182)"

326+ d="M 495,405.90781 599,467.3622"

327+ id="path4180"

328+ inkscape:connector-curvature="0"

329+ inkscape:export-xdpi="61.120499"

330+ inkscape:export-ydpi="61.120499" />

331+ <text

332+ inkscape:export-ydpi="61.120499"

333+ inkscape:export-xdpi="61.120499"

334+ xml:space="preserve"

335+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

336+ x="20"

337+ y="523.36218"

338+ id="text4186"

339+ sodipodi:linespacing="125%"><tspan

340+ sodipodi:role="line"

341+ x="20"

342+ y="523.36218"

343+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

344+ id="tspan4190">Add implicitly quantified variables.</tspan><tspan

345+ sodipodi:role="line"

346+ x="20"

347+ y="542.11218"

348+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

349+ id="tspan4191">Conditional expressions replaced by function calls.</tspan></text>

350+ <path

351+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

352+ d="m 120.29902,440.01416 0.098,70.81863"

353+ id="path4192"

354+ inkscape:connector-curvature="0"

355+ inkscape:export-xdpi="61.120499"

356+ inkscape:export-ydpi="61.120499"

357+ sodipodi:nodetypes="cc" />

358+ <text

359+ sodipodi:linespacing="125%"

360+ id="text4194"

361+ y="367.36218"

362+ x="358"

363+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

364+ xml:space="preserve"

365+ inkscape:export-xdpi="61.120499"

366+ inkscape:export-ydpi="61.120499"><tspan

367+ id="tspan4198"

368+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

369+ y="367.36218"

370+ x="358"

371+ sodipodi:role="line">proof tactics</tspan></text>

372+ <path

373+ inkscape:connector-curvature="0"

374+ id="path4202"

375+ d="m 382.73881,368.53384 0.16418,32.3209"

376+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

377+ sodipodi:nodetypes="cc"

378+ inkscape:export-xdpi="61.120499"

379+ inkscape:export-ydpi="61.120499" />

380+ <path

381+ inkscape:export-ydpi="61.120499"

382+ inkscape:export-xdpi="61.120499"

383+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker4197)"

384+ d="m 277,403.3622 37.7728,-0.0912"

385+ id="path4195"

386+ inkscape:connector-curvature="0"

387+ sodipodi:nodetypes="cc" />

388+ <path

389+ sodipodi:nodetypes="cc"

390+ inkscape:connector-curvature="0"

391+ id="path4201"

392+ d="m 335,403.15739 37.8864,-0.31841"

393+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker4203)"

394+ inkscape:export-xdpi="61.120499"

395+ inkscape:export-ydpi="61.120499" />

396+ <text

397+ inkscape:export-ydpi="61.120499"

398+ inkscape:export-xdpi="61.120499"

399+ xml:space="preserve"

400+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

401+ x="215"

402+ y="340.36218"

403+ id="text4207"

404+ sodipodi:linespacing="125%"><tspan

405+ sodipodi:role="line"

406+ x="215"

407+ y="340.36218"

408+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

409+ id="tspan4209">during elaboration</tspan><tspan

410+ sodipodi:role="line"

411+ x="215"

412+ y="359.11218"

413+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

414+ id="tspan4213">may contain holes</tspan><tspan

415+ sodipodi:role="line"

416+ x="215"

417+ y="377.86218"

418+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

419+ id="tspan4199">and guesses</tspan></text>

420+ <path

421+ inkscape:export-ydpi="61.120499"

422+ inkscape:export-xdpi="61.120499"

423+ sodipodi:nodetypes="cc"

424+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

425+ d="m 324,399.3622 0.11194,-38.03731"

426+ id="path4211"

427+ inkscape:connector-curvature="0" />

428+ <text

429+ sodipodi:linespacing="125%"

430+ id="text4215"

431+ y="461.36218"

432+ x="233"

433+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

434+ xml:space="preserve"

435+ inkscape:export-xdpi="61.120499"

436+ inkscape:export-ydpi="61.120499"><tspan

437+ id="tspan4217"

438+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

439+ y="461.36218"

440+ x="233"

441+ sodipodi:role="line">Make explicit all types.</tspan><tspan

442+ id="tspan4223"

443+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

444+ y="480.11218"

445+ x="233"

446+ sodipodi:role="line">Make explicit function and </tspan><tspan

447+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

448+ y="498.86218"

449+ x="233"

450+ sodipodi:role="line"

451+ id="tspan4235"> pattern match variables.</tspan></text>

452+ <path

453+ inkscape:export-ydpi="61.120499"

454+ inkscape:export-xdpi="61.120499"

455+ sodipodi:nodetypes="cc"

456+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

457+ d="m 323.7402,434.372 0.0637,16.14706"

458+ id="path4237"

459+ inkscape:connector-curvature="0" />

460+ <path

461+ inkscape:export-ydpi="61.120499"

462+ inkscape:export-xdpi="61.120499"

463+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker4198)"

464+ d="m 395,402.49819 45.38391,-0.31841"

465+ id="path4196"

466+ inkscape:connector-curvature="0"

467+ sodipodi:nodetypes="cc" />

468+ <text

469+ inkscape:export-ydpi="61.120499"

470+ inkscape:export-xdpi="61.120499"

471+ xml:space="preserve"

472+ style="font-style:normal;font-weight:normal;font-size:15px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

473+ x="431"

474+ y="465.36218"

475+ id="text4202"

476+ sodipodi:linespacing="125%"><tspan

477+ sodipodi:role="line"

478+ x="431"

479+ y="465.36218"

480+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

481+ id="tspan4204">type checker</tspan><tspan

482+ sodipodi:role="line"

483+ x="431"

484+ y="484.11218"

485+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold'"

486+ id="tspan4208">Raw -> TT</tspan></text>

487+ <path

488+ inkscape:export-ydpi="61.120499"

489+ inkscape:export-xdpi="61.120499"

490+ sodipodi:nodetypes="cc"

491+ style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

492+ d="m 421,411.3622 39,40"

493+ id="path4206"

494+ inkscape:connector-curvature="0" />

495+ <text

496+ inkscape:export-ydpi="61.120499"

497+ inkscape:export-xdpi="61.120499"

498+ xml:space="preserve"

499+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

500+ x="378"

501+ y="417.36218"

502+ id="text4203"

503+ sodipodi:linespacing="125%"><tspan

504+ sodipodi:role="line"

505+ id="tspan4205"

506+ x="378"

507+ y="417.36218"

508+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000">Raw</tspan></text>

509+ <text

510+ sodipodi:linespacing="125%"

511+ id="text4205"

512+ y="432.36218"

513+ x="201"

514+ style="font-style:normal;font-weight:normal;font-size:40px;line-height:125%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

515+ xml:space="preserve"

516+ inkscape:export-xdpi="61.120499"

517+ inkscape:export-ydpi="61.120499"><tspan

518+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000"

519+ y="432.36218"

520+ x="201"

521+ id="tspan4207"

522+ sodipodi:role="line">PTerm</tspan></text>

523+ </g>

524+</svg>

docs/image/parserModules.pngnew file

Binary file not shown.

docs/image/parserModules.svgnew file+1251

@@ -0,0 +1,1251 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 210 297"

15+ version="1.1"

16+ id="svg8"

17+ inkscape:version="0.92.2 5c3e80d, 2017-08-06"

18+ sodipodi:docname="parserModules.svg">

19+ <defs

20+ id="defs2">

21+ <marker

22+ inkscape:isstock="true"

23+ style="overflow:visible;"

24+ id="marker1078"

25+ refX="0.0"

26+ refY="0.0"

27+ orient="auto"

28+ inkscape:stockid="Arrow1Mend">

29+ <path

30+ transform="scale(0.4) rotate(180) translate(10,0)"

31+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

32+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

33+ id="path1076" />

34+ </marker>

35+ <marker

36+ inkscape:isstock="true"

37+ style="overflow:visible"

38+ id="marker1074"

39+ refX="0.0"

40+ refY="0.0"

41+ orient="auto"

42+ inkscape:stockid="Arrow1Mstart">

43+ <path

44+ transform="scale(0.4) translate(10,0)"

45+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

46+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

47+ id="path1072" />

48+ </marker>

49+ <marker

50+ inkscape:stockid="Arrow1Mend"

51+ orient="auto"

52+ refY="0.0"

53+ refX="0.0"

54+ id="marker1021"

55+ style="overflow:visible;"

56+ inkscape:isstock="true"

57+ inkscape:collect="always">

58+ <path

59+ id="path1019"

60+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

61+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

62+ transform="scale(0.4) rotate(180) translate(10,0)" />

63+ </marker>

64+ <marker

65+ inkscape:stockid="Arrow1Mstart"

66+ orient="auto"

67+ refY="0.0"

68+ refX="0.0"

69+ id="marker1017"

70+ style="overflow:visible"

71+ inkscape:isstock="true"

72+ inkscape:collect="always">

73+ <path

74+ id="path1015"

75+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

76+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

77+ transform="scale(0.4) translate(10,0)" />

78+ </marker>

79+ <marker

80+ inkscape:isstock="true"

81+ style="overflow:visible;"

82+ id="marker973"

83+ refX="0.0"

84+ refY="0.0"

85+ orient="auto"

86+ inkscape:stockid="Arrow1Mend"

87+ inkscape:collect="always">

88+ <path

89+ transform="scale(0.4) rotate(180) translate(10,0)"

90+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

91+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

92+ id="path971" />

93+ </marker>

94+ <marker

95+ inkscape:isstock="true"

96+ style="overflow:visible"

97+ id="marker969"

98+ refX="0.0"

99+ refY="0.0"

100+ orient="auto"

101+ inkscape:stockid="Arrow1Mstart"

102+ inkscape:collect="always">

103+ <path

104+ transform="scale(0.4) translate(10,0)"

105+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

106+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

107+ id="path967" />

108+ </marker>

109+ <marker

110+ inkscape:stockid="Arrow1Mend"

111+ orient="auto"

112+ refY="0.0"

113+ refX="0.0"

114+ id="Arrow1Mend"

115+ style="overflow:visible;"

116+ inkscape:isstock="true"

117+ inkscape:collect="always">

118+ <path

119+ id="path1214"

120+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

121+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

122+ transform="scale(0.4) rotate(180) translate(10,0)" />

123+ </marker>

124+ <marker

125+ inkscape:stockid="Arrow1Mstart"

126+ orient="auto"

127+ refY="0.0"

128+ refX="0.0"

129+ id="Arrow1Mstart"

130+ style="overflow:visible"

131+ inkscape:isstock="true"

132+ inkscape:collect="always">

133+ <path

134+ id="path1211"

135+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

136+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

137+ transform="scale(0.4) translate(10,0)" />

138+ </marker>

139+ <marker

140+ inkscape:isstock="true"

141+ style="overflow:visible;"

142+ id="marker1000"

143+ refX="0.0"

144+ refY="0.0"

145+ orient="auto"

146+ inkscape:stockid="Arrow1Mend">

147+ <path

148+ transform="scale(0.4) rotate(180) translate(10,0)"

149+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

150+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

151+ id="path998" />

152+ </marker>

153+ <marker

154+ inkscape:isstock="true"

155+ style="overflow:visible;"

156+ id="marker1127"

157+ refX="0.0"

158+ refY="0.0"

159+ orient="auto"

160+ inkscape:stockid="Arrow1Mend">

161+ <path

162+ transform="scale(0.4) rotate(180) translate(10,0)"

163+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

164+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

165+ id="path1125" />

166+ </marker>

167+ <marker

168+ inkscape:isstock="true"

169+ style="overflow:visible;"

170+ id="marker1123"

171+ refX="0.0"

172+ refY="0.0"

173+ orient="auto"

174+ inkscape:stockid="Arrow1Mend">

175+ <path

176+ transform="scale(0.4) rotate(180) translate(10,0)"

177+ style="fill-rule:evenodd;stroke:#00aa3f;stroke-width:1pt;stroke-opacity:1;fill:#00aa3f;fill-opacity:1"

178+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

179+ id="path1121" />

180+ </marker>

181+ <marker

182+ inkscape:isstock="true"

183+ style="overflow:visible;"

184+ id="marker1117"

185+ refX="0.0"

186+ refY="0.0"

187+ orient="auto"

188+ inkscape:stockid="Arrow1Mend">

189+ <path

190+ transform="scale(0.4) rotate(180) translate(10,0)"

191+ style="fill-rule:evenodd;stroke:#00aa3f;stroke-width:1pt;stroke-opacity:1;fill:#00aa3f;fill-opacity:1"

192+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

193+ id="path1115" />

194+ </marker>

195+ <marker

196+ inkscape:stockid="Arrow1Mend"

197+ orient="auto"

198+ refY="0.0"

199+ refX="0.0"

200+ id="marker1111"

201+ style="overflow:visible;"

202+ inkscape:isstock="true"

203+ inkscape:collect="always">

204+ <path

205+ id="path1109"

206+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

207+ style="fill-rule:evenodd;stroke:#00aa3f;stroke-width:1pt;stroke-opacity:1;fill:#00aa3f;fill-opacity:1"

208+ transform="scale(0.4) rotate(180) translate(10,0)" />

209+ </marker>

210+ <marker

211+ inkscape:isstock="true"

212+ style="overflow:visible;"

213+ id="marker1105"

214+ refX="0.0"

215+ refY="0.0"

216+ orient="auto"

217+ inkscape:stockid="Arrow1Mend"

218+ inkscape:collect="always">

219+ <path

220+ transform="scale(0.4) rotate(180) translate(10,0)"

221+ style="fill-rule:evenodd;stroke:#00aa3f;stroke-width:1pt;stroke-opacity:1;fill:#00aa3f;fill-opacity:1"

222+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

223+ id="path1103" />

224+ </marker>

225+ <marker

226+ inkscape:isstock="true"

227+ style="overflow:visible;"

228+ id="marker1057"

229+ refX="0.0"

230+ refY="0.0"

231+ orient="auto"

232+ inkscape:stockid="Arrow1Mend">

233+ <path

234+ transform="scale(0.4) rotate(180) translate(10,0)"

235+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

236+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

237+ id="path1055" />

238+ </marker>

239+ <marker

240+ inkscape:stockid="Arrow1Mend"

241+ orient="auto"

242+ refY="0.0"

243+ refX="0.0"

244+ id="marker1045"

245+ style="overflow:visible;"

246+ inkscape:isstock="true"

247+ inkscape:collect="always">

248+ <path

249+ id="path1043"

250+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

251+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

252+ transform="scale(0.4) rotate(180) translate(10,0)" />

253+ </marker>

254+ <marker

255+ inkscape:stockid="Arrow1Mend"

256+ orient="auto"

257+ refY="0.0"

258+ refX="0.0"

259+ id="marker1033"

260+ style="overflow:visible;"

261+ inkscape:isstock="true">

262+ <path

263+ id="path1031"

264+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

265+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

266+ transform="scale(0.4) rotate(180) translate(10,0)" />

267+ </marker>

268+ <marker

269+ inkscape:stockid="Arrow1Mend"

270+ orient="auto"

271+ refY="0.0"

272+ refX="0.0"

273+ id="marker1027"

274+ style="overflow:visible;"

275+ inkscape:isstock="true">

276+ <path

277+ id="path1025"

278+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

279+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

280+ transform="scale(0.4) rotate(180) translate(10,0)" />

281+ </marker>

282+ <marker

283+ inkscape:isstock="true"

284+ style="overflow:visible;"

285+ id="marker1015"

286+ refX="0.0"

287+ refY="0.0"

288+ orient="auto"

289+ inkscape:stockid="Arrow1Mend"

290+ inkscape:collect="always">

291+ <path

292+ transform="scale(0.4) rotate(180) translate(10,0)"

293+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

294+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

295+ id="path1013" />

296+ </marker>

297+ <marker

298+ inkscape:isstock="true"

299+ style="overflow:visible;"

300+ id="marker1009"

301+ refX="0.0"

302+ refY="0.0"

303+ orient="auto"

304+ inkscape:stockid="Arrow1Mend">

305+ <path

306+ transform="scale(0.4) rotate(180) translate(10,0)"

307+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

308+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

309+ id="path1007" />

310+ </marker>

311+ <marker

312+ inkscape:isstock="true"

313+ style="overflow:visible;"

314+ id="marker1003"

315+ refX="0.0"

316+ refY="0.0"

317+ orient="auto"

318+ inkscape:stockid="Arrow1Mend">

319+ <path

320+ transform="scale(0.4) rotate(180) translate(10,0)"

321+ style="fill-rule:evenodd;stroke:#ff0000;stroke-width:1pt;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

322+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

323+ id="path1001" />

324+ </marker>

325+ <marker

326+ inkscape:stockid="Arrow1Mend"

327+ orient="auto"

328+ refY="0.0"

329+ refX="0.0"

330+ id="marker997"

331+ style="overflow:visible;"

332+ inkscape:isstock="true"

333+ inkscape:collect="always">

334+ <path

335+ id="path995"

336+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

337+ style="fill-rule:evenodd;stroke:#ff0000;stroke-width:1pt;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

338+ transform="scale(0.4) rotate(180) translate(10,0)" />

339+ </marker>

340+ <marker

341+ inkscape:isstock="true"

342+ style="overflow:visible;"

343+ id="marker991"

344+ refX="0.0"

345+ refY="0.0"

346+ orient="auto"

347+ inkscape:stockid="Arrow1Mend"

348+ inkscape:collect="always">

349+ <path

350+ transform="scale(0.4) rotate(180) translate(10,0)"

351+ style="fill-rule:evenodd;stroke:#ff0000;stroke-width:1pt;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

352+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

353+ id="path989" />

354+ </marker>

355+ <marker

356+ inkscape:stockid="Arrow1Mend"

357+ orient="auto"

358+ refY="0.0"

359+ refX="0.0"

360+ id="marker967"

361+ style="overflow:visible;"

362+ inkscape:isstock="true"

363+ inkscape:collect="always">

364+ <path

365+ id="path965"

366+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

367+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

368+ transform="scale(0.4) rotate(180) translate(10,0)" />

369+ </marker>

370+ <marker

371+ inkscape:isstock="true"

372+ style="overflow:visible;"

373+ id="marker961"

374+ refX="0.0"

375+ refY="0.0"

376+ orient="auto"

377+ inkscape:stockid="Arrow1Mend"

378+ inkscape:collect="always">

379+ <path

380+ transform="scale(0.4) rotate(180) translate(10,0)"

381+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

382+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

383+ id="path959" />

384+ </marker>

385+ <marker

386+ inkscape:isstock="true"

387+ style="overflow:visible;"

388+ id="marker3617"

389+ refX="0.0"

390+ refY="0.0"

391+ orient="auto"

392+ inkscape:stockid="Arrow1Mend">

393+ <path

394+ transform="scale(0.4) rotate(180) translate(10,0)"

395+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

396+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

397+ id="path3615" />

398+ </marker>

399+ <marker

400+ inkscape:stockid="Arrow1Mend"

401+ orient="auto"

402+ refY="0.0"

403+ refX="0.0"

404+ id="marker2049"

405+ style="overflow:visible;"

406+ inkscape:isstock="true"

407+ inkscape:collect="always">

408+ <path

409+ id="path2047"

410+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

411+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

412+ transform="scale(0.4) rotate(180) translate(10,0)" />

413+ </marker>

414+ <marker

415+ inkscape:isstock="true"

416+ style="overflow:visible;"

417+ id="marker1539"

418+ refX="0.0"

419+ refY="0.0"

420+ orient="auto"

421+ inkscape:stockid="Arrow1Mend"

422+ inkscape:collect="always">

423+ <path

424+ transform="scale(0.4) rotate(180) translate(10,0)"

425+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

426+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

427+ id="path1537" />

428+ </marker>

429+ </defs>

430+ <sodipodi:namedview

431+ id="base"

432+ pagecolor="#ffffff"

433+ bordercolor="#666666"

434+ borderopacity="1.0"

435+ inkscape:pageopacity="0.0"

436+ inkscape:pageshadow="2"

437+ inkscape:zoom="1"

438+ inkscape:cx="368.33949"

439+ inkscape:cy="547.05121"

440+ inkscape:document-units="mm"

441+ inkscape:current-layer="layer1"

442+ showgrid="false"

443+ inkscape:window-width="1800"

444+ inkscape:window-height="1011"

445+ inkscape:window-x="86"

446+ inkscape:window-y="0"

447+ inkscape:window-maximized="0"

448+ inkscape:snap-nodes="false" />

449+ <metadata

450+ id="metadata5">

451+ <rdf:RDF>

452+ <cc:Work

453+ rdf:about="">

454+ <dc:format>image/svg+xml</dc:format>

455+ <dc:type

456+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

457+ <dc:title />

458+ </cc:Work>

459+ </rdf:RDF>

460+ </metadata>

461+ <g

462+ inkscape:label="Layer 1"

463+ inkscape:groupmode="layer"

464+ id="layer1">

465+ <text

466+ inkscape:export-ydpi="61.120499"

467+ inkscape:export-xdpi="61.120499"

468+ id="text854"

469+ y="119.72919"

470+ x="131.23334"

471+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

472+ xml:space="preserve"><tspan

473+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

474+ y="129.46077"

475+ x="131.23334"

476+ id="tspan852"

477+ sodipodi:role="line" /></text>

478+ <rect

479+ inkscape:export-ydpi="61.120499"

480+ inkscape:export-xdpi="61.120499"

481+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

482+ id="rect875"

483+ width="43.656246"

484+ height="18.520832"

485+ x="92.339577"

486+ y="110.20418" />

487+ <path

488+ inkscape:export-ydpi="61.120499"

489+ inkscape:export-xdpi="61.120499"

490+ inkscape:connector-curvature="0"

491+ id="path881"

492+ d="m 135.73129,118.93554 16.66875,-0.26459"

493+ style="fill:none;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker2049)" />

494+ <text

495+ inkscape:export-ydpi="61.120499"

496+ inkscape:export-xdpi="61.120499"

497+ id="text895"

498+ y="115.76046"

499+ x="138.37698"

500+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

501+ xml:space="preserve"><tspan

502+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

503+ y="115.76046"

504+ x="138.37698"

505+ id="tspan893"

506+ sodipodi:role="line">PTerm</tspan></text>

507+ <text

508+ inkscape:export-ydpi="61.120499"

509+ inkscape:export-xdpi="61.120499"

510+ id="text903"

511+ y="115.23129"

512+ x="93.927078"

513+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

514+ xml:space="preserve"><tspan

515+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;stroke-width:0.26458332"

516+ y="115.23129"

517+ x="93.927078"

518+ id="tspan901"

519+ sodipodi:role="line">module Idris.Parser</tspan><tspan

520+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;stroke-width:0.26458332"

521+ y="128.46045"

522+ x="93.927078"

523+ sodipodi:role="line"

524+ id="tspan1021" /></text>

525+ <rect

526+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

527+ id="rect905"

528+ width="44.185421"

529+ height="18.785423"

530+ x="40.463421"

531+ y="141.50723"

532+ inkscape:export-xdpi="61.120499"

533+ inkscape:export-ydpi="61.120499" />

534+ <rect

535+ y="155.183"

536+ x="95.51458"

537+ height="18.256256"

538+ width="49.212498"

539+ id="rect907"

540+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

541+ inkscape:export-xdpi="61.120499"

542+ inkscape:export-ydpi="61.120499" />

543+ <path

544+ style="fill:none;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker961)"

545+ d="m 84.648837,152.88468 9.013662,7.32603"

546+ id="path909"

547+ inkscape:connector-curvature="0"

548+ inkscape:export-xdpi="61.120499"

549+ inkscape:export-ydpi="61.120499"

550+ sodipodi:nodetypes="cc" />

551+ <path

552+ inkscape:connector-curvature="0"

553+ id="path911"

554+ d="m 22.471756,152.09108 16.66875,-0.26459"

555+ style="fill:none;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker1539)"

556+ inkscape:export-xdpi="61.120499"

557+ inkscape:export-ydpi="61.120499" />

558+ <text

559+ xml:space="preserve"

560+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

561+ x="24.059256"

562+ y="148.91547"

563+ id="text917"

564+ inkscape:export-xdpi="61.120499"

565+ inkscape:export-ydpi="61.120499"><tspan

566+ sodipodi:role="line"

567+ id="tspan915"

568+ x="24.059256"

569+ y="148.91547"

570+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332">String</tspan></text>

571+ <text

572+ id="text923"

573+ y="137.72075"

574+ x="65.087494"

575+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

576+ xml:space="preserve"

577+ inkscape:export-xdpi="61.120499"

578+ inkscape:export-ydpi="61.120499"><tspan

579+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

580+ y="137.72075"

581+ x="65.087494"

582+ sodipodi:role="line"

583+ id="tspan921">List (TokenData Token)</tspan></text>

584+ <text

585+ id="text931"

586+ y="218.41846"

587+ x="36.512497"

588+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:0.26458332;"

589+ xml:space="preserve"

590+ inkscape:export-xdpi="61.120499"

591+ inkscape:export-ydpi="61.120499"><tspan

592+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332;"

593+ y="218.41846"

594+ x="36.512497"

595+ id="tspan929"

596+ sodipodi:role="line">module Text.Lexer</tspan></text>

597+ <text

598+ xml:space="preserve"

599+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

600+ x="98.160408"

601+ y="161.00386"

602+ id="text935"

603+ inkscape:export-xdpi="61.120499"

604+ inkscape:export-ydpi="61.120499"><tspan

605+ sodipodi:role="line"

606+ id="tspan933"

607+ x="98.160408"

608+ y="161.00386"

609+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;stroke-width:0.26458332">module Parser.Support</tspan></text>

610+ <rect

611+ inkscape:export-ydpi="61.120499"

612+ inkscape:export-xdpi="61.120499"

613+ y="214.18488"

614+ x="32.01458"

615+ height="6.3500061"

616+ width="43.656254"

617+ id="rect937"

618+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1" />

619+ <rect

620+ inkscape:export-ydpi="61.120499"

621+ inkscape:export-xdpi="61.120499"

622+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

623+ id="rect939"

624+ width="42.862495"

625+ height="6.8791728"

626+ x="94.985413"

627+ y="214.18488" />

628+ <text

629+ inkscape:export-ydpi="61.120499"

630+ inkscape:export-xdpi="61.120499"

631+ xml:space="preserve"

632+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

633+ x="42.31551"

634+ y="147.59224"

635+ id="text951"><tspan

636+ sodipodi:role="line"

637+ id="tspan949"

638+ x="42.31551"

639+ y="147.59224"

640+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;stroke-width:0.26458332">module Parser.Lexer</tspan></text>

641+ <path

642+ sodipodi:nodetypes="cc"

643+ inkscape:export-ydpi="61.120499"

644+ inkscape:export-xdpi="61.120499"

645+ inkscape:connector-curvature="0"

646+ id="path963"

647+ d="m 53.299561,213.22831 1.53604,-51.85834"

648+ style="fill:none;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker967)" />

649+ <text

650+ inkscape:export-ydpi="61.120499"

651+ inkscape:export-xdpi="61.120499"

652+ xml:space="preserve"

653+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:0.26458332;"

654+ x="23.220526"

655+ y="251.01649"

656+ id="text971"><tspan

657+ sodipodi:role="line"

658+ id="tspan969"

659+ x="23.220526"

660+ y="251.01649"

661+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332;">module Text.Lexer.Core</tspan></text>

662+ <rect

663+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

664+ id="rect973"

665+ width="47.889587"

666+ height="6.3500061"

667+ x="21.633026"

668+ y="246.51833"

669+ inkscape:export-xdpi="61.120499"

670+ inkscape:export-ydpi="61.120499" />

671+ <path

672+ style="fill:none;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker991)"

673+ d="m 48.369316,228.83873 0.04943,-6.71548"

674+ id="path975"

675+ inkscape:connector-curvature="0"

676+ inkscape:export-xdpi="61.120499"

677+ inkscape:export-ydpi="61.120499"

678+ sodipodi:nodetypes="cc" />

679+ <text

680+ id="text979"

681+ y="241.96643"

682+ x="23.283329"

683+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:0.26458332;"

684+ xml:space="preserve"

685+ inkscape:export-xdpi="61.120499"

686+ inkscape:export-ydpi="61.120499"><tspan

687+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332;"

688+ y="241.96643"

689+ x="23.283329"

690+ id="tspan977"

691+ sodipodi:role="line">module Text.Quantity</tspan></text>

692+ <rect

693+ inkscape:export-ydpi="61.120499"

694+ inkscape:export-xdpi="61.120499"

695+ y="237.46826"

696+ x="21.695829"

697+ height="6.2469702"

698+ width="43.853985"

699+ id="rect981"

700+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1" />

701+ <text

702+ inkscape:export-ydpi="61.120499"

703+ inkscape:export-xdpi="61.120499"

704+ xml:space="preserve"

705+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:0.26458332;"

706+ x="23.18244"

707+ y="233.68523"

708+ id="text985"><tspan

709+ sodipodi:role="line"

710+ id="tspan983"

711+ x="23.18244"

712+ y="233.68523"

713+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332;">module Text.Token</tspan></text>

714+ <rect

715+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

716+ id="rect987"

717+ width="39.011257"

718+ height="5.9464455"

719+ x="21.59494"

720+ y="229.18706"

721+ inkscape:export-xdpi="61.120499"

722+ inkscape:export-ydpi="61.120499" />

723+ <path

724+ sodipodi:nodetypes="cc"

725+ inkscape:export-ydpi="61.120499"

726+ inkscape:export-xdpi="61.120499"

727+ inkscape:connector-curvature="0"

728+ id="path993"

729+ d="M 62.998384,237.01083 62.846037,221.92147"

730+ style="fill:#ff0000;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker997)" />

731+ <path

732+ style="fill:#ff0000;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker1003)"

733+ d="M 67.336659,246.29272 67.083422,221.71969"

734+ id="path999"

735+ inkscape:connector-curvature="0"

736+ inkscape:export-xdpi="61.120499"

737+ inkscape:export-ydpi="61.120499"

738+ sodipodi:nodetypes="cc" />

739+ <path

740+ style="fill:none;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker1009)"

741+ d="M 73.937074,214.02206 94.72083,169.47102"

742+ id="path1005"

743+ inkscape:connector-curvature="0"

744+ inkscape:export-xdpi="61.120499"

745+ inkscape:export-ydpi="61.120499"

746+ sodipodi:nodetypes="cc" />

747+ <path

748+ style="fill:none;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker1015)"

749+ d="M 108.0684,213.75748 108.0169,173.5408"

750+ id="path1011"

751+ inkscape:connector-curvature="0"

752+ inkscape:export-xdpi="61.120499"

753+ inkscape:export-ydpi="61.120499"

754+ sodipodi:nodetypes="cc" />

755+ <text

756+ inkscape:export-ydpi="61.120499"

757+ inkscape:export-xdpi="61.120499"

758+ id="text1019"

759+ y="218.94762"

760+ x="96.837494"

761+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:0.26458332;"

762+ xml:space="preserve"><tspan

763+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332;"

764+ y="218.94762"

765+ x="96.837494"

766+ id="tspan1017"

767+ sodipodi:role="line">module Text.Parser</tspan></text>

768+ <path

769+ sodipodi:nodetypes="cc"

770+ inkscape:export-ydpi="61.120499"

771+ inkscape:export-xdpi="61.120499"

772+ inkscape:connector-curvature="0"

773+ id="path1023"

774+ d="m 113.62466,154.75539 0.0397,-25.06978"

775+ style="fill:none;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker1027)" />

776+ <path

777+ sodipodi:nodetypes="cc"

778+ inkscape:export-ydpi="61.120499"

779+ inkscape:export-xdpi="61.120499"

780+ inkscape:connector-curvature="0"

781+ id="path1029"

782+ d="M 83.757032,147.15485 97.991855,129.77582"

783+ style="fill:none;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker1033)" />

784+ <rect

785+ y="142.91107"

786+ x="118.15033"

787+ height="6.6968417"

788+ width="45.2328"

789+ id="rect1035"

790+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

791+ inkscape:export-xdpi="61.120499"

792+ inkscape:export-ydpi="61.120499" />

793+ <path

794+ sodipodi:nodetypes="cc"

795+ inkscape:export-ydpi="61.120499"

796+ inkscape:export-xdpi="61.120499"

797+ inkscape:connector-curvature="0"

798+ id="path1037"

799+ d="m 121.83513,142.5835 -0.0515,-12.72267"

800+ style="fill:none;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker1057)" />

801+ <text

802+ xml:space="preserve"

803+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

804+ x="120.00241"

805+ y="147.67372"

806+ id="text1041"

807+ inkscape:export-xdpi="61.120499"

808+ inkscape:export-ydpi="61.120499"><tspan

809+ sodipodi:role="line"

810+ id="tspan1039"

811+ x="120.00241"

812+ y="147.67372"

813+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;stroke-width:0.26458332">module TTImp.TTImp</tspan></text>

814+ <rect

815+ inkscape:export-ydpi="61.120499"

816+ inkscape:export-xdpi="61.120499"

817+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

818+ id="rect1047"

819+ width="42.862495"

820+ height="6.8791728"

821+ x="125.28364"

822+ y="133.0603" />

823+ <path

824+ style="fill:none;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker1045)"

825+ d="m 145.18016,132.82376 -9.18434,-4.09859"

826+ id="path1049"

827+ inkscape:connector-curvature="0"

828+ inkscape:export-xdpi="61.120499"

829+ inkscape:export-ydpi="61.120499"

830+ sodipodi:nodetypes="cc" />

831+ <text

832+ inkscape:export-ydpi="61.120499"

833+ inkscape:export-xdpi="61.120499"

834+ id="text1053"

835+ y="137.82295"

836+ x="127.13572"

837+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

838+ xml:space="preserve"><tspan

839+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;stroke-width:0.26458332"

840+ y="137.82295"

841+ x="127.13572"

842+ id="tspan1051"

843+ sodipodi:role="line">module Idris.Syntax</tspan></text>

844+ <rect

845+ inkscape:export-ydpi="61.120499"

846+ inkscape:export-xdpi="61.120499"

847+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#00871c;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

848+ id="rect1061"

849+ width="59.266659"

850+ height="16.13958"

851+ x="97.102074"

852+ y="186.93335" />

853+ <path

854+ inkscape:export-ydpi="61.120499"

855+ inkscape:export-xdpi="61.120499"

856+ inkscape:connector-curvature="0"

857+ id="path1063"

858+ d="m 76.993749,160.21044 18.785417,28.83958"

859+ style="fill:none;stroke:#00aa3f;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker1105)"

860+ sodipodi:nodetypes="cc" />

861+ <text

862+ inkscape:export-ydpi="61.120499"

863+ inkscape:export-xdpi="61.120499"

864+ id="text1081"

865+ y="192.48962"

866+ x="157.95586"

867+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#008000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

868+ xml:space="preserve"><tspan

869+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#008000;stroke-width:0.26458332"

870+ y="192.48962"

871+ x="157.95586"

872+ id="tspan1079"

873+ sodipodi:role="line">SExp</tspan></text>

874+ <text

875+ inkscape:export-ydpi="61.120499"

876+ inkscape:export-xdpi="61.120499"

877+ id="text1089"

878+ y="192.75421"

879+ x="98.954155"

880+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#008000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

881+ xml:space="preserve"><tspan

882+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#008000;stroke-width:0.26458332"

883+ y="192.75421"

884+ x="98.954155"

885+ id="tspan1087"

886+ sodipodi:role="line">module Idris.IDEMode.Parser</tspan></text>

887+ <rect

888+ inkscape:export-ydpi="61.120499"

889+ inkscape:export-xdpi="61.120499"

890+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#7c007d;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

891+ id="rect1097"

892+ width="55.033333"

893+ height="14.287498"

894+ x="20.637447"

895+ y="52.524986" />

896+ <text

897+ inkscape:export-ydpi="61.120499"

898+ inkscape:export-xdpi="61.120499"

899+ id="text1101"

900+ y="58.610428"

901+ x="23.54781"

902+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#800080;fill-opacity:1;stroke:none;stroke-width:0.26458332;"

903+ xml:space="preserve"><tspan

904+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#800080;stroke-width:0.26458332;"

905+ y="58.610428"

906+ x="23.54781"

907+ id="tspan1099"

908+ sodipodi:role="line">module Idris.REPL</tspan></text>

909+ <path

910+ sodipodi:nodetypes="cc"

911+ style="fill:none;stroke:#00aa3f;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker1111)"

912+ d="m 112.97708,174.23335 0,14.02292"

913+ id="path1107"

914+ inkscape:connector-curvature="0"

915+ inkscape:export-xdpi="61.120499"

916+ inkscape:export-ydpi="61.120499" />

917+ <path

918+ inkscape:export-ydpi="61.120499"

919+ inkscape:export-xdpi="61.120499"

920+ inkscape:connector-curvature="0"

921+ id="path1113"

922+ d="m 148.43125,150.15592 0.26458,35.71911"

923+ style="fill:none;stroke:#00aa3f;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker1117)"

924+ sodipodi:nodetypes="cc" />

925+ <path

926+ inkscape:export-ydpi="61.120499"

927+ inkscape:export-xdpi="61.120499"

928+ inkscape:connector-curvature="0"

929+ id="path1119"

930+ d="m 156.56889,195.56696 13.16435,-0.41532"

931+ style="fill:none;stroke:#00aa3f;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker1123)"

932+ sodipodi:nodetypes="cc" />

933+ <text

934+ id="text950"

935+ y="104.70191"

936+ x="22.426785"

937+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

938+ xml:space="preserve"

939+ inkscape:export-xdpi="61.120499"

940+ inkscape:export-ydpi="61.120499"><tspan

941+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;stroke-width:0.26458332"

942+ y="104.70191"

943+ x="22.426785"

944+ id="tspan948"

945+ sodipodi:role="line">module Core.Core</tspan></text>

946+ <rect

947+ inkscape:export-ydpi="61.120499"

948+ inkscape:export-xdpi="61.120499"

949+ y="100.20374"

950+ x="20.839275"

951+ height="9.7895899"

952+ width="47.889587"

953+ id="rect952"

954+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1" />

955+ <text

956+ inkscape:export-ydpi="61.120499"

957+ inkscape:export-xdpi="61.120499"

958+ xml:space="preserve"

959+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

960+ x="22.955944"

961+ y="108.40608"

962+ id="text956"><tspan

963+ sodipodi:role="line"

964+ id="tspan954"

965+ x="22.955944"

966+ y="108.40608"

967+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#000000;stroke-width:0.26458332">error messages</tspan></text>

968+ <text

969+ inkscape:export-ydpi="61.120499"

970+ inkscape:export-xdpi="61.120499"

971+ xml:space="preserve"

972+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

973+ x="79.312202"

974+ y="92.266502"

975+ id="text960"><tspan

976+ sodipodi:role="line"

977+ id="tspan958"

978+ x="79.312202"

979+ y="92.266502"

980+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;stroke-width:0.26458332">module Core.CompileExpr</tspan></text>

981+ <rect

982+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

983+ id="rect962"

984+ width="61.912495"

985+ height="18.785419"

986+ x="77.724693"

987+ y="87.768333"

988+ inkscape:export-xdpi="61.120499"

989+ inkscape:export-ydpi="61.120499" />

990+ <text

991+ id="text966"

992+ y="95.970665"

993+ x="79.841362"

994+ style="font-style:normal;font-weight:normal;font-size:3.52777767px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

995+ xml:space="preserve"

996+ inkscape:export-xdpi="61.120499"

997+ inkscape:export-ydpi="61.120499"><tspan

998+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#000000;stroke-width:0.26458332"

999+ y="95.970665"

1000+ x="79.841362"

1001+ sodipodi:role="line"

1002+ id="tspan968">Representation of expressions ready</tspan><tspan

1003+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#000000;stroke-width:0.26458332"

1004+ y="100.38039"

1005+ x="79.841362"

1006+ sodipodi:role="line"

1007+ id="tspan974">for compiling: CExp</tspan><tspan

1008+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#000000;stroke-width:0.26458332"

1009+ y="104.79011"

1010+ x="79.841362"

1011+ sodipodi:role="line"

1012+ id="tspan972">Type erased, explicit case trees</tspan></text>

1013+ <text

1014+ inkscape:export-ydpi="61.120499"

1015+ inkscape:export-xdpi="61.120499"

1016+ xml:space="preserve"

1017+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

1018+ x="22.162193"

1019+ y="73.217979"

1020+ id="text978"><tspan

1021+ sodipodi:role="line"

1022+ id="tspan976"

1023+ x="22.162193"

1024+ y="73.217979"

1025+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;stroke-width:0.26458332">module Idris.CommandLine</tspan></text>

1026+ <rect

1027+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

1028+ id="rect980"

1029+ width="55.827087"

1030+ height="10.054173"

1031+ x="20.574694"

1032+ y="68.719742"

1033+ inkscape:export-xdpi="61.120499"

1034+ inkscape:export-ydpi="61.120499" />

1035+ <text

1036+ id="text984"

1037+ y="76.92215"

1038+ x="22.69136"

1039+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

1040+ xml:space="preserve"

1041+ inkscape:export-xdpi="61.120499"

1042+ inkscape:export-ydpi="61.120499"><tspan

1043+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#000000;stroke-width:0.26458332"

1044+ y="76.92215"

1045+ x="22.69136"

1046+ id="tspan982"

1047+ sodipodi:role="line">command line options</tspan></text>

1048+ <text

1049+ id="text988"

1050+ y="89.886726"

1051+ x="22.162193"

1052+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

1053+ xml:space="preserve"

1054+ inkscape:export-xdpi="61.120499"

1055+ inkscape:export-ydpi="61.120499"><tspan

1056+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;stroke-width:0.26458332"

1057+ y="89.886726"

1058+ x="22.162193"

1059+ id="tspan986"

1060+ sodipodi:role="line">module Idris.Error</tspan></text>

1061+ <rect

1062+ inkscape:export-ydpi="61.120499"

1063+ inkscape:export-xdpi="61.120499"

1064+ y="85.388489"

1065+ x="20.574694"

1066+ height="9.5250101"

1067+ width="37.835419"

1068+ id="rect990"

1069+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1" />

1070+ <text

1071+ inkscape:export-ydpi="61.120499"

1072+ inkscape:export-xdpi="61.120499"

1073+ xml:space="preserve"

1074+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

1075+ x="22.69136"

1076+ y="93.590897"

1077+ id="text994"><tspan

1078+ sodipodi:role="line"

1079+ id="tspan992"

1080+ x="22.69136"

1081+ y="93.590897"

1082+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#000000;stroke-width:0.26458332">perror</tspan></text>

1083+ <path

1084+ style="fill:none;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker1000)"

1085+ d="m 66.876776,99.410007 c -0.17822,-10.50534 -0.880145,-7.9985 -7.143748,-8.99444"

1086+ id="path996"

1087+ inkscape:connector-curvature="0"

1088+ inkscape:export-xdpi="61.120499"

1089+ inkscape:export-ydpi="61.120499"

1090+ sodipodi:nodetypes="cc" />

1091+ <path

1092+ style="fill:none;stroke:#000000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

1093+ d="M 15.081249,210.48125 H 200.02499"

1094+ id="path1201"

1095+ inkscape:connector-curvature="0"

1096+ sodipodi:nodetypes="cc"

1097+ inkscape:export-xdpi="61.120499"

1098+ inkscape:export-ydpi="61.120499" />

1099+ <path

1100+ style="fill:none;stroke:#000000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;stroke-miterlimit:4;stroke-dasharray:none;marker-start:url(#Arrow1Mstart);marker-end:url(#Arrow1Mend)"

1101+ d="m 154.78125,214.97917 -0.26459,40.21666"

1102+ id="path1203"

1103+ inkscape:connector-curvature="0"

1104+ inkscape:export-xdpi="61.120499"

1105+ inkscape:export-ydpi="61.120499" />

1106+ <text

1107+ xml:space="preserve"

1108+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:0.40000001;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:0.26458332;"

1109+ x="158.75"

1110+ y="226.09137"

1111+ id="text1473"

1112+ inkscape:export-xdpi="61.120499"

1113+ inkscape:export-ydpi="61.120499"><tspan

1114+ sodipodi:role="line"

1115+ id="tspan1471"

1116+ x="158.75"

1117+ y="226.09137"

1118+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332;">'text' modules are</tspan><tspan

1119+ sodipodi:role="line"

1120+ x="158.75"

1121+ y="230.92491"

1122+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332;"

1123+ id="tspan1475">also in Idris 1</tspan><tspan

1124+ sodipodi:role="line"

1125+ x="158.75"

1126+ y="235.75845"

1127+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332;"

1128+ id="tspan1477">library.</tspan></text>

1129+ <path

1130+ inkscape:connector-curvature="0"

1131+ id="path957"

1132+ d="m 172.77292,166.03125 -0.26459,40.21666"

1133+ style="fill:none;stroke:#000000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-start:url(#marker969);marker-end:url(#marker973)"

1134+ inkscape:export-xdpi="61.120499"

1135+ inkscape:export-ydpi="61.120499" />

1136+ <text

1137+ inkscape:export-ydpi="61.120499"

1138+ inkscape:export-xdpi="61.120499"

1139+ id="text965"

1140+ y="177.14345"

1141+ x="176.74167"

1142+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:0.40000001;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#008000;fill-opacity:1;stroke:none;stroke-width:0.26458332;"

1143+ xml:space="preserve"><tspan

1144+ id="tspan963"

1145+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#008000;stroke-width:0.26458332;"

1146+ y="177.14345"

1147+ x="176.74167"

1148+ sodipodi:role="line">'IDEMode is for</tspan><tspan

1149+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#008000;stroke-width:0.26458332;"

1150+ y="181.97699"

1151+ x="176.74167"

1152+ sodipodi:role="line"

1153+ id="tspan981">communicating</tspan><tspan

1154+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#008000;stroke-width:0.26458332;"

1155+ y="186.81053"

1156+ x="176.74167"

1157+ sodipodi:role="line"

1158+ id="tspan984">with external</tspan><tspan

1159+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#008000;stroke-width:0.26458332;"

1160+ y="191.64406"

1161+ x="176.74167"

1162+ sodipodi:role="line"

1163+ id="tspan987">editors. It uses</tspan><tspan

1164+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#008000;stroke-width:0.26458332;"

1165+ y="196.4776"

1166+ x="176.74167"

1167+ sodipodi:role="line"

1168+ id="tspan989">SExp structure</tspan><tspan

1169+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#008000;stroke-width:0.26458332;"

1170+ y="201.31114"

1171+ x="176.74167"

1172+ sodipodi:role="line"

1173+ id="tspan991">which is Lisp-</tspan><tspan

1174+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#008000;stroke-width:0.26458332;"

1175+ y="206.14468"

1176+ x="176.74167"

1177+ sodipodi:role="line"

1178+ id="tspan993">like.</tspan></text>

1179+ <path

1180+ style="fill:none;stroke:#000000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-start:url(#marker1017);marker-end:url(#marker1021)"

1181+ d="m 172.77292,110.20417 -0.26459,40.21666"

1182+ id="path997"

1183+ inkscape:connector-curvature="0"

1184+ inkscape:export-xdpi="61.120499"

1185+ inkscape:export-ydpi="61.120499" />

1186+ <text

1187+ xml:space="preserve"

1188+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:0.40000001;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

1189+ x="176.21251"

1190+ y="115.76012"

1191+ id="text1013"

1192+ inkscape:export-xdpi="61.120499"

1193+ inkscape:export-ydpi="61.120499"><tspan

1194+ id="tspan1011"

1195+ sodipodi:role="line"

1196+ x="176.21251"

1197+ y="115.76012"

1198+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#000000;stroke-width:0.26458332">Idris.Parser</tspan><tspan

1199+ sodipodi:role="line"

1200+ x="176.21251"

1201+ y="120.59366"

1202+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#000000;stroke-width:0.26458332"

1203+ id="tspan1050">reads from a</tspan><tspan

1204+ sodipodi:role="line"

1205+ x="176.21251"

1206+ y="125.42719"

1207+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#000000;stroke-width:0.26458332"

1208+ id="tspan1052">file and outputs</tspan><tspan

1209+ sodipodi:role="line"

1210+ x="176.21251"

1211+ y="130.26073"

1212+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#000000;stroke-width:0.26458332"

1213+ id="tspan1054">to a PTerm</tspan><tspan

1214+ sodipodi:role="line"

1215+ x="176.21251"

1216+ y="135.09427"

1217+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#000000;stroke-width:0.26458332"

1218+ id="tspan1056">structure.</tspan></text>

1219+ <path

1220+ inkscape:connector-curvature="0"

1221+ id="path1058"

1222+ d="m 171.97917,51.731253 -0.26459,19.57916"

1223+ style="fill:none;stroke:#000000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-start:url(#marker1074);marker-end:url(#marker1078)"

1224+ sodipodi:nodetypes="cc"

1225+ inkscape:export-xdpi="61.120499"

1226+ inkscape:export-ydpi="61.120499" />

1227+ <text

1228+ inkscape:export-ydpi="61.120499"

1229+ inkscape:export-xdpi="61.120499"

1230+ id="text1070"

1231+ y="57.287201"

1232+ x="175.41876"

1233+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:0.40000001;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#800080;fill-opacity:1;stroke:none;stroke-width:0.26458332;"

1234+ xml:space="preserve"><tspan

1235+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#800080;stroke-width:0.26458332;"

1236+ y="57.287201"

1237+ x="175.41876"

1238+ sodipodi:role="line"

1239+ id="tspan1060">Idris.Parser</tspan><tspan

1240+ id="tspan1068"

1241+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#800080;stroke-width:0.26458332;"

1242+ y="62.120739"

1243+ x="175.41876"

1244+ sodipodi:role="line">reads from the</tspan><tspan

1245+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:0.40000001;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#800080;stroke-width:0.26458332;"

1246+ y="66.954277"

1247+ x="175.41876"

1248+ sodipodi:role="line"

1249+ id="tspan1089">command line.</tspan></text>

1250+ </g>

1251+</svg>

docs/image/parserTopLevel.pngnew file

Binary file not shown.

docs/image/parserTopLevel.svgnew file+294

@@ -0,0 +1,294 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 210 297"

15+ version="1.1"

16+ id="svg8"

17+ inkscape:version="0.92.2 5c3e80d, 2017-08-06"

18+ sodipodi:docname="topLevel.svg">

19+ <defs

20+ id="defs2">

21+ <marker

22+ inkscape:isstock="true"

23+ style="overflow:visible;"

24+ id="marker3617"

25+ refX="0.0"

26+ refY="0.0"

27+ orient="auto"

28+ inkscape:stockid="Arrow1Mend">

29+ <path

30+ transform="scale(0.4) rotate(180) translate(10,0)"

31+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

32+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

33+ id="path3615" />

34+ </marker>

35+ <marker

36+ inkscape:stockid="Arrow1Mend"

37+ orient="auto"

38+ refY="0.0"

39+ refX="0.0"

40+ id="marker2891"

41+ style="overflow:visible;"

42+ inkscape:isstock="true"

43+ inkscape:collect="always">

44+ <path

45+ id="path2889"

46+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

47+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

48+ transform="scale(0.4) rotate(180) translate(10,0)" />

49+ </marker>

50+ <marker

51+ inkscape:stockid="Arrow1Mend"

52+ orient="auto"

53+ refY="0.0"

54+ refX="0.0"

55+ id="marker2049"

56+ style="overflow:visible;"

57+ inkscape:isstock="true">

58+ <path

59+ id="path2047"

60+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

61+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

62+ transform="scale(0.4) rotate(180) translate(10,0)" />

63+ </marker>

64+ <marker

65+ inkscape:isstock="true"

66+ style="overflow:visible;"

67+ id="marker1539"

68+ refX="0.0"

69+ refY="0.0"

70+ orient="auto"

71+ inkscape:stockid="Arrow1Mend"

72+ inkscape:collect="always">

73+ <path

74+ transform="scale(0.4) rotate(180) translate(10,0)"

75+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

76+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

77+ id="path1537" />

78+ </marker>

79+ <marker

80+ inkscape:stockid="Arrow1Mend"

81+ orient="auto"

82+ refY="0.0"

83+ refX="0.0"

84+ id="Arrow1Mend"

85+ style="overflow:visible;"

86+ inkscape:isstock="true"

87+ inkscape:collect="always">

88+ <path

89+ id="path830"

90+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

91+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

92+ transform="scale(0.4) rotate(180) translate(10,0)" />

93+ </marker>

94+ </defs>

95+ <sodipodi:namedview

96+ id="base"

97+ pagecolor="#ffffff"

98+ bordercolor="#666666"

99+ borderopacity="1.0"

100+ inkscape:pageopacity="0.0"

101+ inkscape:pageshadow="2"

102+ inkscape:zoom="1"

103+ inkscape:cx="396.85039"

104+ inkscape:cy="560"

105+ inkscape:document-units="mm"

106+ inkscape:current-layer="layer1"

107+ showgrid="false"

108+ inkscape:window-width="1920"

109+ inkscape:window-height="1015"

110+ inkscape:window-x="0"

111+ inkscape:window-y="0"

112+ inkscape:window-maximized="1" />

113+ <metadata

114+ id="metadata5">

115+ <rdf:RDF>

116+ <cc:Work

117+ rdf:about="">

118+ <dc:format>image/svg+xml</dc:format>

119+ <dc:type

120+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

121+ <dc:title />

122+ </cc:Work>

123+ </rdf:RDF>

124+ </metadata>

125+ <g

126+ inkscape:label="Layer 1"

127+ inkscape:groupmode="layer"

128+ id="layer1">

129+ <rect

130+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

131+ id="rect815"

132+ width="35.983334"

133+ height="18.25625"

134+ x="37.306248"

135+ y="79.512497"

136+ inkscape:export-xdpi="61.120499"

137+ inkscape:export-ydpi="61.120499" />

138+ <rect

139+ y="79.512497"

140+ x="92.339577"

141+ height="18.25625"

142+ width="35.983334"

143+ id="rect817"

144+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

145+ inkscape:export-xdpi="61.120499"

146+ inkscape:export-ydpi="61.120499" />

147+ <path

148+ style="fill:none;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#Arrow1Mend)"

149+ d="m 73.554166,88.508337 16.66875,-0.26459"

150+ id="path819"

151+ inkscape:connector-curvature="0"

152+ inkscape:export-xdpi="61.120499"

153+ inkscape:export-ydpi="61.120499" />

154+ <path

155+ inkscape:connector-curvature="0"

156+ id="path1535"

157+ d="m 18.785416,88.77292 16.66875,-0.26459"

158+ style="fill:none;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker1539)"

159+ inkscape:export-xdpi="61.120499"

160+ inkscape:export-ydpi="61.120499" />

161+ <path

162+ style="fill:none;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker2049)"

163+ d="m 128.32291,88.243753 16.66875,-0.26459"

164+ id="path2045"

165+ inkscape:connector-curvature="0"

166+ inkscape:export-xdpi="61.120499"

167+ inkscape:export-ydpi="61.120499" />

168+ <text

169+ xml:space="preserve"

170+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

171+ x="20.372915"

172+ y="85.597931"

173+ id="text2857"

174+ inkscape:export-xdpi="61.120499"

175+ inkscape:export-ydpi="61.120499"><tspan

176+ sodipodi:role="line"

177+ id="tspan2855"

178+ x="20.372915"

179+ y="85.597931"

180+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332">String</tspan></text>

181+ <text

182+ id="text2861"

183+ y="80.835434"

184+ x="76.199997"

185+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

186+ xml:space="preserve"

187+ inkscape:export-xdpi="61.120499"

188+ inkscape:export-ydpi="61.120499"><tspan

189+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

190+ y="80.835434"

191+ x="76.199997"

192+ sodipodi:role="line"

193+ id="tspan2867">List</tspan><tspan

194+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

195+ y="86.127098"

196+ x="76.199997"

197+ sodipodi:role="line"

198+ id="tspan2871">Token</tspan></text>

199+ <text

200+ xml:space="preserve"

201+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

202+ x="130.96875"

203+ y="85.068764"

204+ id="text2865"

205+ inkscape:export-xdpi="61.120499"

206+ inkscape:export-ydpi="61.120499"><tspan

207+ sodipodi:role="line"

208+ id="tspan2863"

209+ x="130.96875"

210+ y="85.068764"

211+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332">PTerm</tspan></text>

212+ <text

213+ id="text2875"

214+ y="89.302101"

215+ x="47.360416"

216+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332;"

217+ xml:space="preserve"

218+ inkscape:export-xdpi="61.120499"

219+ inkscape:export-ydpi="61.120499"><tspan

220+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332;fill:#0000ff;"

221+ y="89.302101"

222+ x="47.360416"

223+ id="tspan2873"

224+ sodipodi:role="line">Lexer</tspan></text>

225+ <text

226+ xml:space="preserve"

227+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

228+ x="100.27708"

229+ y="89.037521"

230+ id="text2879"

231+ inkscape:export-xdpi="61.120499"

232+ inkscape:export-ydpi="61.120499"><tspan

233+ sodipodi:role="line"

234+ id="tspan2877"

235+ x="100.27708"

236+ y="89.037521"

237+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;stroke-width:0.26458332">Parser</tspan></text>

238+ <path

239+ style="fill:none;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker2891)"

240+ d="m 52.916666,71.575003 v 7.67291"

241+ id="path2887"

242+ inkscape:connector-curvature="0"

243+ sodipodi:nodetypes="cc"

244+ inkscape:export-xdpi="61.120499"

245+ inkscape:export-ydpi="61.120499" />

246+ <path

247+ sodipodi:nodetypes="cc"

248+ inkscape:connector-curvature="0"

249+ id="path3613"

250+ d="m 108.74375,71.575003 v 7.67291"

251+ style="fill:none;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker3617)"

252+ inkscape:export-xdpi="61.120499"

253+ inkscape:export-ydpi="61.120499" />

254+ <text

255+ id="text4173"

256+ y="69.987518"

257+ x="43.391666"

258+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

259+ xml:space="preserve"

260+ inkscape:export-xdpi="61.120499"

261+ inkscape:export-ydpi="61.120499"><tspan

262+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

263+ y="69.987518"

264+ x="43.391666"

265+ id="tspan4171"

266+ sodipodi:role="line">Recogniser</tspan></text>

267+ <text

268+ xml:space="preserve"

269+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

270+ x="97.102081"

271+ y="69.722939"

272+ id="text4177"

273+ inkscape:export-xdpi="61.120499"

274+ inkscape:export-ydpi="61.120499"><tspan

275+ sodipodi:role="line"

276+ id="tspan4175"

277+ x="97.102081"

278+ y="69.722939"

279+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332">Grammar</tspan></text>

280+ <text

281+ inkscape:export-ydpi="61.120499"

282+ inkscape:export-xdpi="61.120499"

283+ id="text854"

284+ y="93.800011"

285+ x="131.23334"

286+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

287+ xml:space="preserve"><tspan

288+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

289+ y="103.5316"

290+ x="131.23334"

291+ id="tspan852"

292+ sodipodi:role="line" /></text>

293+ </g>

294+</svg>

docs/image/plusReducesProof.pngnew file

Binary file not shown.

docs/image/plusReducesProof.svgnew file+339

@@ -0,0 +1,339 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.91 r13725"

18+ sodipodi:docname="plusReducesProof.svg">

19+ <defs

20+ id="defs4">

21+ <marker

22+ inkscape:stockid="Arrow1Mend"

23+ orient="auto"

24+ refY="0.0"

25+ refX="0.0"

26+ id="marker6540"

27+ style="overflow:visible;"

28+ inkscape:isstock="true">

29+ <path

30+ id="path6542"

31+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

32+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

33+ transform="scale(0.4) rotate(180) translate(10,0)" />

34+ </marker>

35+ <marker

36+ inkscape:stockid="Arrow1Mend"

37+ orient="auto"

38+ refY="0.0"

39+ refX="0.0"

40+ id="marker5748"

41+ style="overflow:visible;"

42+ inkscape:isstock="true">

43+ <path

44+ id="path5750"

45+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

46+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

47+ transform="scale(0.4) rotate(180) translate(10,0)" />

48+ </marker>

49+ <marker

50+ inkscape:isstock="true"

51+ style="overflow:visible;"

52+ id="marker5154"

53+ refX="0.0"

54+ refY="0.0"

55+ orient="auto"

56+ inkscape:stockid="Arrow1Mend"

57+ inkscape:collect="always">

58+ <path

59+ transform="scale(0.4) rotate(180) translate(10,0)"

60+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

61+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

62+ id="path5156" />

63+ </marker>

64+ <marker

65+ inkscape:stockid="Arrow1Mend"

66+ orient="auto"

67+ refY="0.0"

68+ refX="0.0"

69+ id="Arrow1Mend"

70+ style="overflow:visible;"

71+ inkscape:isstock="true"

72+ inkscape:collect="always">

73+ <path

74+ id="path4189"

75+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

76+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

77+ transform="scale(0.4) rotate(180) translate(10,0)" />

78+ </marker>

79+ </defs>

80+ <sodipodi:namedview

81+ id="base"

82+ pagecolor="#ffffff"

83+ bordercolor="#666666"

84+ borderopacity="1.0"

85+ inkscape:pageopacity="0.0"

86+ inkscape:pageshadow="2"

87+ inkscape:zoom="1"

88+ inkscape:cx="397.18872"

89+ inkscape:cy="520"

90+ inkscape:document-units="px"

91+ inkscape:current-layer="layer1"

92+ showgrid="false"

93+ inkscape:window-width="1110"

94+ inkscape:window-height="1011"

95+ inkscape:window-x="-4"

96+ inkscape:window-y="0"

97+ inkscape:window-maximized="0" />

98+ <metadata

99+ id="metadata7">

100+ <rdf:RDF>

101+ <cc:Work

102+ rdf:about="">

103+ <dc:format>image/svg+xml</dc:format>

104+ <dc:type

105+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

106+ <dc:title></dc:title>

107+ </cc:Work>

108+ </rdf:RDF>

109+ </metadata>

110+ <g

111+ inkscape:label="Layer 1"

112+ inkscape:groupmode="layer"

113+ id="layer1">

114+ <text

115+ xml:space="preserve"

116+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

117+ x="266"

118+ y="225.36221"

119+ id="text4136"

120+ sodipodi:linespacing="125%"><tspan

121+ sodipodi:role="line"

122+ id="tspan4138"

123+ x="266"

124+ y="225.36221">assumptions</tspan><tspan

125+ sodipodi:role="line"

126+ x="266"

127+ y="250.36221"

128+ id="tspan4140">(context)</tspan></text>

129+ <text

130+ sodipodi:linespacing="125%"

131+ id="text4142"

132+ y="238.36221"

133+ x="526"

134+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:20px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

135+ xml:space="preserve"><tspan

136+ id="tspan4146"

137+ y="238.36221"

138+ x="526"

139+ sodipodi:role="line">goal</tspan></text>

140+ <text

141+ xml:space="preserve"

142+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

143+ x="420"

144+ y="289.36221"

145+ id="text4150"

146+ sodipodi:linespacing="125%"><tspan

147+ sodipodi:role="line"

148+ x="420"

149+ y="289.36221"

150+ id="tspan4152">(k : Nat) -> (k = plus k 0) -> S k = S (plus k 0)</tspan></text>

151+ <path

152+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;stroke-miterlimit:4;stroke-dasharray:none"

153+ d="m 241,262.3622 428,-1"

154+ id="path4154"

155+ inkscape:connector-curvature="0" />

156+ <path

157+ inkscape:connector-curvature="0"

158+ id="path4160"

159+ d="m 241,308.3622 428,-1"

160+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1" />

161+ <text

162+ sodipodi:linespacing="125%"

163+ id="text4162"

164+ y="312.36221"

165+ x="175"

166+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;"

167+ xml:space="preserve"><tspan

168+ id="tspan4164"

169+ y="312.36221"

170+ x="175"

171+ sodipodi:role="line">intro `{{k}}</tspan></text>

172+ <text

173+ sodipodi:linespacing="125%"

174+ id="text4166"

175+ y="333.36221"

176+ x="482"

177+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

178+ xml:space="preserve"><tspan

179+ id="tspan4168"

180+ y="333.36221"

181+ x="482"

182+ sodipodi:role="line">(k = plus k 0) -> S k = S (plus k 0)</tspan></text>

183+ <text

184+ xml:space="preserve"

185+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

186+ x="324"

187+ y="334.36221"

188+ id="text4170"

189+ sodipodi:linespacing="125%"><tspan

190+ sodipodi:role="line"

191+ x="324"

192+ y="334.36221"

193+ id="tspan4172">k : Nat</tspan></text>

194+ <path

195+ style="fill:none;fill-rule:evenodd;stroke:#0000ff;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#Arrow1Mend)"

196+ d="m 441,294.3622 -73,30"

197+ id="path4174"

198+ inkscape:connector-curvature="0"

199+ sodipodi:nodetypes="cc" />

200+ <path

201+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

202+ d="m 241,352.3622 428,-1"

203+ id="path5134"

204+ inkscape:connector-curvature="0" />

205+ <text

206+ xml:space="preserve"

207+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

208+ x="171"

209+ y="355.36221"

210+ id="text5136"

211+ sodipodi:linespacing="125%"><tspan

212+ sodipodi:role="line"

213+ x="171"

214+ y="355.36221"

215+ id="tspan5138">intro `{{ih}}</tspan></text>

216+ <text

217+ xml:space="preserve"

218+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

219+ x="570"

220+ y="372.36221"

221+ id="text5140"

222+ sodipodi:linespacing="125%"><tspan

223+ sodipodi:role="line"

224+ x="570"

225+ y="372.36221"

226+ id="tspan5142">S k = S (plus k 0)</tspan></text>

227+ <text

228+ sodipodi:linespacing="125%"

229+ id="text5144"

230+ y="378.36221"

231+ x="324"

232+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

233+ xml:space="preserve"><tspan

234+ id="tspan5146"

235+ y="378.36221"

236+ x="324"

237+ sodipodi:role="line">k : Nat</tspan></text>

238+ <text

239+ sodipodi:linespacing="125%"

240+ id="text5150"

241+ y="393.36221"

242+ x="323"

243+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

244+ xml:space="preserve"><tspan

245+ id="tspan5152"

246+ y="393.36221"

247+ x="323"

248+ sodipodi:role="line">ih : k = plus k 0</tspan></text>

249+ <path

250+ inkscape:connector-curvature="0"

251+ id="path5728"

252+ d="m 242,404.3622 428,-1"

253+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1" />

254+ <text

255+ sodipodi:linespacing="125%"

256+ id="text5730"

257+ y="408.36221"

258+ x="109"

259+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

260+ xml:space="preserve"><tspan

261+ id="tspan5732"

262+ y="408.36221"

263+ x="109"

264+ sodipodi:role="line">rewriteWith (Var `{{ih}})</tspan></text>

265+ <text

266+ sodipodi:linespacing="125%"

267+ id="text5734"

268+ y="424.36221"

269+ x="587"

270+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

271+ xml:space="preserve"><tspan

272+ id="tspan5736"

273+ y="424.36221"

274+ x="587"

275+ sodipodi:role="line">S k = S k </tspan></text>

276+ <text

277+ xml:space="preserve"

278+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

279+ x="325"

280+ y="430.36221"

281+ id="text5738"

282+ sodipodi:linespacing="125%"><tspan

283+ sodipodi:role="line"

284+ x="325"

285+ y="430.36221"

286+ id="tspan5740">k : Nat</tspan></text>

287+ <path

288+ style="fill:none;fill-rule:evenodd;stroke:#0000ff;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker5748)"

289+ d="m 610,379.3622 1,29"

290+ id="path5742"

291+ inkscape:connector-curvature="0"

292+ sodipodi:nodetypes="cc" />

293+ <text

294+ xml:space="preserve"

295+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

296+ x="324"

297+ y="445.36221"

298+ id="text5744"

299+ sodipodi:linespacing="125%"><tspan

300+ sodipodi:role="line"

301+ x="324"

302+ y="445.36221"

303+ id="tspan5746">ih : k = plus k 0</tspan></text>

304+ <path

305+ inkscape:connector-curvature="0"

306+ id="path7294"

307+ d="m 418,460.3622 -2,-199"

308+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

309+ sodipodi:nodetypes="cc" />

310+ <path

311+ sodipodi:nodetypes="cc"

312+ inkscape:connector-curvature="0"

313+ id="path5148"

314+ d="m 519,339.3622 -107,44"

315+ style="fill:none;fill-rule:evenodd;stroke:#0000ff;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker5154)" />

316+ <path

317+ style="fill:none;fill-rule:evenodd;stroke:#0000ff;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:12, 2;stroke-dashoffset:0;stroke-opacity:1"

318+ d="m 609,391.3622 -197,49"

319+ id="path6538"

320+ inkscape:connector-curvature="0"

321+ sodipodi:nodetypes="cc" />

322+ <path

323+ style="fill:none;fill-rule:evenodd;stroke:#ff0000;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

324+ d="m 242,458.3622 428,-1"

325+ id="path7308"

326+ inkscape:connector-curvature="0" />

327+ <text

328+ xml:space="preserve"

329+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:12.5px;line-height:125%;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

330+ x="177"

331+ y="462.36221"

332+ id="text7310"

333+ sodipodi:linespacing="125%"><tspan

334+ sodipodi:role="line"

335+ x="177"

336+ y="462.36221"

337+ id="tspan7312">reflexivity</tspan></text>

338+ </g>

339+</svg>

docs/image/recogniser.pngnew file

Binary file not shown.

docs/image/recogniser.svgnew file+477

@@ -0,0 +1,477 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 210 297"

15+ version="1.1"

16+ id="svg8"

17+ inkscape:version="0.92.2 5c3e80d, 2017-08-06"

18+ sodipodi:docname="recogniser.svg">

19+ <defs

20+ id="defs2" />

21+ <sodipodi:namedview

22+ id="base"

23+ pagecolor="#ffffff"

24+ bordercolor="#666666"

25+ borderopacity="1.0"

26+ inkscape:pageopacity="0.0"

27+ inkscape:pageshadow="2"

28+ inkscape:zoom="1"

29+ inkscape:cx="384.45994"

30+ inkscape:cy="560"

31+ inkscape:document-units="mm"

32+ inkscape:current-layer="layer1"

33+ showgrid="false"

34+ inkscape:window-width="1920"

35+ inkscape:window-height="1015"

36+ inkscape:window-x="0"

37+ inkscape:window-y="0"

38+ inkscape:window-maximized="1" />

39+ <metadata

40+ id="metadata5">

41+ <rdf:RDF>

42+ <cc:Work

43+ rdf:about="">

44+ <dc:format>image/svg+xml</dc:format>

45+ <dc:type

46+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

47+ <dc:title />

48+ </cc:Work>

49+ </rdf:RDF>

50+ </metadata>

51+ <g

52+ inkscape:label="Layer 1"

53+ inkscape:groupmode="layer"

54+ id="layer1">

55+ <rect

56+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70599997;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

57+ id="rect815"

58+ width="112.44793"

59+ height="77.258354"

60+ x="6.3499999"

61+ y="63.108334"

62+ ry="3.96875"

63+ inkscape:export-xdpi="61.120499"

64+ inkscape:export-ydpi="61.120499" />

65+ <text

66+ xml:space="preserve"

67+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:5.64444447px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

68+ x="11.112496"

69+ y="68.399994"

70+ id="text819"

71+ inkscape:export-xdpi="61.120499"

72+ inkscape:export-ydpi="61.120499"><tspan

73+ sodipodi:role="line"

74+ id="tspan817"

75+ x="11.112496"

76+ y="68.399994"

77+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:5.64444447px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;stroke-width:0.26458332">Text.Lexer.Core</tspan></text>

78+ <text

79+ id="text823"

80+ y="74.749992"

81+ x="8.7312441"

82+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

83+ xml:space="preserve"

84+ inkscape:export-xdpi="61.120499"

85+ inkscape:export-ydpi="61.120499"><tspan

86+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

87+ y="74.749992"

88+ x="8.7312441"

89+ id="tspan821"

90+ sodipodi:role="line">data Recognise : (consumes : Bool) -> Type where</tspan><tspan

91+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

92+ y="80.041656"

93+ x="8.7312441"

94+ sodipodi:role="line"

95+ id="tspan825"> Empty : Recognise False</tspan><tspan

96+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

97+ y="85.333328"

98+ x="8.7312441"

99+ sodipodi:role="line"

100+ id="tspan827"> Fail : Recognise c</tspan><tspan

101+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

102+ y="90.624992"

103+ x="8.7312441"

104+ sodipodi:role="line"

105+ id="tspan829"> Lookahead : (positive : Bool) -> Recognise c -> Recognise False</tspan><tspan

106+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

107+ y="95.916656"

108+ x="8.7312441"

109+ sodipodi:role="line"

110+ id="tspan831"> Pred : (Char -> Bool) -> Recognise True</tspan><tspan

111+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

112+ y="101.20832"

113+ x="8.7312441"

114+ sodipodi:role="line"

115+ id="tspan835"> SeqEat : Recognise True -> Inf (Recognise e) -> Recognise True</tspan><tspan

116+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

117+ y="106.49999"

118+ x="8.7312441"

119+ sodipodi:role="line"

120+ id="tspan837"> SeqEmpty : Recognise e1 -> Recognise e2 -> Recognise (e1 || e2)</tspan><tspan

121+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

122+ y="111.79166"

123+ x="8.7312441"

124+ sodipodi:role="line"

125+ id="tspan839"> Alt : Recognise e1 -> Recognise e2 -> Recognise (e1 && e2)</tspan><tspan

126+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

127+ y="117.08332"

128+ x="8.7312441"

129+ sodipodi:role="line"

130+ id="tspan841" /><tspan

131+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

132+ y="122.37499"

133+ x="8.7312441"

134+ sodipodi:role="line"

135+ id="tspan843">||| A token recogniser. Guaranteed to consume at least one character.</tspan><tspan

136+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

137+ y="127.66666"

138+ x="8.7312441"

139+ sodipodi:role="line"

140+ id="tspan845">public export</tspan><tspan

141+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

142+ y="132.95833"

143+ x="8.7312441"

144+ sodipodi:role="line"

145+ id="tspan847">Lexer : Type</tspan><tspan

146+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

147+ y="138.24998"

148+ x="8.7312441"

149+ sodipodi:role="line"

150+ id="tspan849">Lexer = Recognise True</tspan><tspan

151+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

152+ y="143.54166"

153+ x="8.7312441"

154+ sodipodi:role="line"

155+ id="tspan851" /></text>

156+ <rect

157+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

158+ id="rect850"

159+ width="111.65417"

160+ height="10.318749"

161+ x="9.7895756"

162+ y="97.504166"

163+ inkscape:export-xdpi="61.120499"

164+ inkscape:export-ydpi="61.120499" />

165+ <rect

166+ y="97.504166"

167+ x="9.7895756"

168+ height="15.610415"

169+ width="111.38958"

170+ id="rect852"

171+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

172+ inkscape:export-xdpi="61.120499"

173+ inkscape:export-ydpi="61.120499" />

174+ <text

175+ inkscape:export-ydpi="61.120499"

176+ inkscape:export-xdpi="61.120499"

177+ id="text870"

178+ y="98.297905"

179+ x="129.64584"

180+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

181+ xml:space="preserve"><tspan

182+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

183+ y="98.297905"

184+ x="129.64584"

185+ sodipodi:role="line"

186+ id="tspan908">(<+>) : Recognise c1 -> inf c1 (Recognise c2) -> </tspan><tspan

187+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

188+ y="103.58957"

189+ x="129.64584"

190+ sodipodi:role="line"

191+ id="tspan929"> Recognise (c1 || c2)</tspan><tspan

192+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

193+ y="108.88124"

194+ x="129.64584"

195+ sodipodi:role="line"

196+ id="tspan916">Sequence two recognisers. If either consumes a</tspan><tspan

197+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

198+ y="114.1729"

199+ x="129.64584"

200+ sodipodi:role="line"

201+ id="tspan918">character, the sequence is guaranteed to</tspan><tspan

202+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

203+ y="119.46457"

204+ x="129.64584"

205+ sodipodi:role="line"

206+ id="tspan935">consume a character</tspan><tspan

207+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

208+ y="124.75623"

209+ x="129.64584"

210+ sodipodi:role="line"

211+ id="tspan912" /><tspan

212+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

213+ y="130.04791"

214+ x="129.64584"

215+ sodipodi:role="line"

216+ id="tspan868" /></text>

217+ <path

218+ style="fill:none;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

219+ d="m 129.38124,100.41458 -7.9375,-2.910414"

220+ id="path937"

221+ inkscape:connector-curvature="0"

222+ sodipodi:nodetypes="cc"

223+ inkscape:export-xdpi="61.120499"

224+ inkscape:export-ydpi="61.120499" />

225+ <text

226+ xml:space="preserve"

227+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

228+ x="130.175"

229+ y="129.25418"

230+ id="text953"

231+ inkscape:export-xdpi="61.120499"

232+ inkscape:export-ydpi="61.120499"><tspan

233+ sodipodi:role="line"

234+ x="130.175"

235+ y="129.25418"

236+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

237+ id="tspan973">(<|>) : Recognise c1 -> Recognise c2 -></tspan><tspan

238+ sodipodi:role="line"

239+ x="130.175"

240+ y="134.54584"

241+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

242+ id="tspan975"> Recognise (c1 && c2)</tspan><tspan

243+ sodipodi:role="line"

244+ x="130.175"

245+ y="139.83751"

246+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

247+ id="tspan983">Alternative recognisers. If both consume, the</tspan><tspan

248+ sodipodi:role="line"

249+ x="130.175"

250+ y="145.12917"

251+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

252+ id="tspan985">combination is guaranteed to consumer a</tspan><tspan

253+ sodipodi:role="line"

254+ x="130.175"

255+ y="150.42084"

256+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

257+ id="tspan992">character.</tspan><tspan

258+ sodipodi:role="line"

259+ x="130.175"

260+ y="155.71251"

261+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

262+ id="tspan977" /><tspan

263+ id="tspan949"

264+ sodipodi:role="line"

265+ x="130.175"

266+ y="161.00417"

267+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332" /><tspan

268+ id="tspan951"

269+ sodipodi:role="line"

270+ x="130.175"

271+ y="166.29584"

272+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332" /></text>

273+ <path

274+ inkscape:connector-curvature="0"

275+ id="path996"

276+ d="M 128.05833,126.87292 110.33125,110.46875"

277+ style="fill:none;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

278+ sodipodi:nodetypes="cc"

279+ inkscape:export-xdpi="61.120499"

280+ inkscape:export-ydpi="61.120499" />

281+ <text

282+ xml:space="preserve"

283+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

284+ x="28.045837"

285+ y="51.731236"

286+ id="text1012"

287+ inkscape:export-xdpi="61.120499"

288+ inkscape:export-ydpi="61.120499"><tspan

289+ id="tspan1006"

290+ sodipodi:role="line"

291+ x="28.045837"

292+ y="51.731236"

293+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332">empty : Recognise False</tspan><tspan

294+ sodipodi:role="line"

295+ x="28.045837"

296+ y="57.022903"

297+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

298+ id="tspan1087">Recognise no input (doesn't consume any input)</tspan><tspan

299+ id="tspan1008"

300+ sodipodi:role="line"

301+ x="28.045837"

302+ y="62.314568"

303+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332" /><tspan

304+ id="tspan1010"

305+ sodipodi:role="line"

306+ x="28.045837"

307+ y="67.606232"

308+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332" /></text>

309+ <text

310+ inkscape:export-ydpi="61.120499"

311+ inkscape:export-xdpi="61.120499"

312+ id="text1031"

313+ y="49.614574"

314+ x="114.56458"

315+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

316+ xml:space="preserve"><tspan

317+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

318+ y="49.614574"

319+ x="114.56458"

320+ sodipodi:role="line"

321+ id="tspan1025">fail : Recognise c</tspan><tspan

322+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

323+ y="54.906242"

324+ x="114.56458"

325+ sodipodi:role="line"

326+ id="tspan1089">A recogniser that always fails.</tspan><tspan

327+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

328+ y="60.197906"

329+ x="114.56458"

330+ sodipodi:role="line"

331+ id="tspan1027" /><tspan

332+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

333+ y="65.489571"

334+ x="114.56458"

335+ sodipodi:role="line"

336+ id="tspan1029" /></text>

337+ <text

338+ inkscape:export-ydpi="61.120499"

339+ inkscape:export-xdpi="61.120499"

340+ id="text1039"

341+ y="61.785423"

342+ x="128.32292"

343+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

344+ xml:space="preserve"><tspan

345+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

346+ y="61.785423"

347+ x="128.32292"

348+ sodipodi:role="line"

349+ id="tspan1051">expect : Recognise c -> Recognise False</tspan><tspan

350+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

351+ y="67.077087"

352+ x="128.32292"

353+ sodipodi:role="line"

354+ id="tspan1059">Positive lookahead. Never consumes input.</tspan><tspan

355+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

356+ y="72.368759"

357+ x="128.32292"

358+ sodipodi:role="line"

359+ id="tspan1035" /><tspan

360+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

361+ y="77.660423"

362+ x="128.32292"

363+ sodipodi:role="line"

364+ id="tspan1037" /></text>

365+ <text

366+ xml:space="preserve"

367+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

368+ x="125.14791"

369+ y="86.39167"

370+ id="text1047"

371+ inkscape:export-xdpi="61.120499"

372+ inkscape:export-ydpi="61.120499"><tspan

373+ id="tspan1041"

374+ sodipodi:role="line"

375+ x="125.14791"

376+ y="86.39167"

377+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332">pred : (Char -> Bool) -> Lexer</tspan><tspan

378+ sodipodi:role="line"

379+ x="125.14791"

380+ y="91.683334"

381+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

382+ id="tspan1085">Recognise a character that matches a predicate</tspan><tspan

383+ id="tspan1043"

384+ sodipodi:role="line"

385+ x="125.14791"

386+ y="96.975006"

387+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332" /><tspan

388+ id="tspan1045"

389+ sodipodi:role="line"

390+ x="125.14791"

391+ y="102.26667"

392+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332" /></text>

393+ <rect

394+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

395+ id="rect1053"

396+ width="79.904167"

397+ height="23.283327"

398+ x="121.70833"

399+ y="57.816666"

400+ inkscape:export-xdpi="61.120499"

401+ inkscape:export-ydpi="61.120499" />

402+ <text

403+ xml:space="preserve"

404+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

405+ x="128.32291"

406+ y="72.897926"

407+ id="text1069"

408+ inkscape:export-xdpi="61.120499"

409+ inkscape:export-ydpi="61.120499"><tspan

410+ id="tspan1063"

411+ sodipodi:role="line"

412+ x="128.32291"

413+ y="72.897926"

414+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332">reject : Recognise c -> Recognise False</tspan><tspan

415+ sodipodi:role="line"

416+ x="128.32291"

417+ y="78.18959"

418+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

419+ id="tspan1073">Negative lookahead. Never consumes input.</tspan><tspan

420+ sodipodi:role="line"

421+ x="128.32291"

422+ y="83.481262"

423+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

424+ id="tspan1075" /><tspan

425+ id="tspan1065"

426+ sodipodi:role="line"

427+ x="128.32291"

428+ y="88.772926"

429+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:3.52777767px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332" /><tspan

430+ id="tspan1067"

431+ sodipodi:role="line"

432+ x="128.32291"

433+ y="94.06459"

434+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332" /></text>

435+ <path

436+ sodipodi:nodetypes="cc"

437+ inkscape:connector-curvature="0"

438+ id="path1081"

439+ d="M 124.35416,89.83125 76.99375,94.858333"

440+ style="fill:none;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

441+ inkscape:export-xdpi="61.120499"

442+ inkscape:export-ydpi="61.120499" />

443+ <path

444+ style="fill:none;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

445+ d="M 123.82499,66.01875 112.97708,86.391666"

446+ id="path1083"

447+ inkscape:connector-curvature="0"

448+ sodipodi:nodetypes="cc"

449+ inkscape:export-xdpi="61.120499"

450+ inkscape:export-ydpi="61.120499" />

451+ <path

452+ sodipodi:nodetypes="cc"

453+ inkscape:connector-curvature="0"

454+ id="path1091"

455+ d="M 33.33749,59.139583 20.90208,76.337499"

456+ style="fill:none;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

457+ inkscape:export-xdpi="61.120499"

458+ inkscape:export-ydpi="61.120499" />

459+ <path

460+ style="fill:none;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

461+ d="M 113.77082,51.73125 42.068747,83.481249"

462+ id="path1093"

463+ inkscape:connector-curvature="0"

464+ sodipodi:nodetypes="cc"

465+ inkscape:export-xdpi="61.120499"

466+ inkscape:export-ydpi="61.120499" />

467+ <rect

468+ y="94.064583"

469+ x="129.64583"

470+ height="27.51667"

471+ width="78.316658"

472+ id="rect899"

473+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

474+ inkscape:export-xdpi="61.120499"

475+ inkscape:export-ydpi="61.120499" />

476+ </g>

477+</svg>

docs/image/solve.pngnew file

Binary file not shown.

docs/image/solve.svgnew file+163

@@ -0,0 +1,163 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 210 297"

15+ version="1.1"

16+ id="svg8"

17+ inkscape:version="0.92.2 5c3e80d, 2017-08-06"

18+ sodipodi:docname="solve.svg">

19+ <defs

20+ id="defs2">

21+ <marker

22+ inkscape:isstock="true"

23+ style="overflow:visible;"

24+ id="marker838"

25+ refX="0.0"

26+ refY="0.0"

27+ orient="auto"

28+ inkscape:stockid="Arrow1Mend">

29+ <path

30+ transform="scale(0.4) rotate(180) translate(10,0)"

31+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

32+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

33+ id="path836" />

34+ </marker>

35+ <marker

36+ inkscape:stockid="Arrow1Mend"

37+ orient="auto"

38+ refY="0.0"

39+ refX="0.0"

40+ id="Arrow1Mend"

41+ style="overflow:visible;"

42+ inkscape:isstock="true"

43+ inkscape:collect="always">

44+ <path

45+ id="path4529"

46+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

47+ style="fill-rule:evenodd;stroke:#ff0000;stroke-width:1pt;stroke-opacity:1;fill:#ff0000;fill-opacity:1"

48+ transform="scale(0.4) rotate(180) translate(10,0)" />

49+ </marker>

50+ </defs>

51+ <sodipodi:namedview

52+ id="base"

53+ pagecolor="#ffffff"

54+ bordercolor="#666666"

55+ borderopacity="1.0"

56+ inkscape:pageopacity="0.0"

57+ inkscape:pageshadow="2"

58+ inkscape:zoom="1"

59+ inkscape:cx="313.5"

60+ inkscape:cy="696.5"

61+ inkscape:document-units="mm"

62+ inkscape:current-layer="layer1"

63+ showgrid="false"

64+ inkscape:window-width="1920"

65+ inkscape:window-height="1015"

66+ inkscape:window-x="0"

67+ inkscape:window-y="0"

68+ inkscape:window-maximized="1" />

69+ <metadata

70+ id="metadata5">

71+ <rdf:RDF>

72+ <cc:Work

73+ rdf:about="">

74+ <dc:format>image/svg+xml</dc:format>

75+ <dc:type

76+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

77+ <dc:title />

78+ </cc:Work>

79+ </rdf:RDF>

80+ </metadata>

81+ <g

82+ inkscape:label="Layer 1"

83+ inkscape:groupmode="layer"

84+ id="layer1">

85+ <rect

86+ style="fill:#ffff00;fill-opacity:1;stroke-width:0.26458332"

87+ id="rect22"

88+ width="31.75"

89+ height="5.5562501"

90+ x="70.114571"

91+ y="114.96667"

92+ inkscape:export-xdpi="61.120499"

93+ inkscape:export-ydpi="61.120499" />

94+ <text

95+ id="text16"

96+ y="118.67083"

97+ x="72.231262"

98+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

99+ xml:space="preserve"

100+ inkscape:export-xdpi="61.120499"

101+ inkscape:export-ydpi="61.120499"><tspan

102+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332"

103+ y="118.67083"

104+ x="72.231262"

105+ id="tspan14"

106+ sodipodi:role="line">Prelude.Nat.Z </tspan></text>

107+ <text

108+ id="text20"

109+ y="110.99791"

110+ x="82.814583"

111+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

112+ xml:space="preserve"

113+ inkscape:export-xdpi="61.120499"

114+ inkscape:export-ydpi="61.120499"><tspan

115+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;stroke-width:0.26458332"

116+ y="110.99791"

117+ x="82.814583"

118+ id="tspan18"

119+ sodipodi:role="line">solve</tspan></text>

120+ <path

121+ style="fill:none;stroke:#ff0000;stroke-width:0.5291667;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#Arrow1Mend)"

122+ d="m 80.668481,106.30075 -0.0032,7.57492"

123+ id="path4518"

124+ inkscape:connector-curvature="0"

125+ sodipodi:nodetypes="cc"

126+ inkscape:export-xdpi="61.120499"

127+ inkscape:export-ydpi="61.120499" />

128+ <text

129+ inkscape:export-ydpi="61.120499"

130+ inkscape:export-xdpi="61.120499"

131+ xml:space="preserve"

132+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:0.26458332"

133+ x="56.620823"

134+ y="93.006248"

135+ id="text832"><tspan

136+ sodipodi:role="line"

137+ id="tspan830"

138+ x="56.620823"

139+ y="93.006248"

140+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;stroke-width:0.26458332">focus</tspan></text>

141+ <path

142+ inkscape:export-ydpi="61.120499"

143+ inkscape:export-xdpi="61.120499"

144+ sodipodi:nodetypes="cc"

145+ inkscape:connector-curvature="0"

146+ id="path834"

147+ d="m 57.649725,94.659084 -0.0032,5.458256"

148+ style="fill:none;stroke:#0000ff;stroke-width:0.5291667;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker838)" />

149+ <text

150+ inkscape:export-ydpi="61.120499"

151+ inkscape:export-xdpi="61.120499"

152+ xml:space="preserve"

153+ style="font-style:normal;font-weight:normal;font-size:10.58333302px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.26458332"

154+ x="56.356247"

155+ y="104.91254"

156+ id="text842"><tspan

157+ sodipodi:role="line"

158+ id="tspan840"

159+ x="56.356247"

160+ y="104.91254"

161+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.26458332">?{hole} ≈ Prelude.Nat.Z . {hole}</tspan></text>

162+ </g>

163+</svg>

docs/image/tokenise.pngnew file

Binary file not shown.

docs/image/tokenise.svgnew file+740

@@ -0,0 +1,740 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 210 297"

15+ version="1.1"

16+ id="svg8"

17+ inkscape:version="0.92.2 5c3e80d, 2017-08-06"

18+ sodipodi:docname="tokenise.svg">

19+ <defs

20+ id="defs2">

21+ <marker

22+ inkscape:isstock="true"

23+ style="overflow:visible;"

24+ id="marker7119"

25+ refX="0.0"

26+ refY="0.0"

27+ orient="auto"

28+ inkscape:stockid="Arrow1Mend">

29+ <path

30+ transform="scale(0.4) rotate(180) translate(10,0)"

31+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

32+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

33+ id="path7117" />

34+ </marker>

35+ <marker

36+ inkscape:stockid="Arrow1Mend"

37+ orient="auto"

38+ refY="0.0"

39+ refX="0.0"

40+ id="marker4031"

41+ style="overflow:visible;"

42+ inkscape:isstock="true"

43+ inkscape:collect="always">

44+ <path

45+ id="path4029"

46+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

47+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

48+ transform="scale(0.4) rotate(180) translate(10,0)" />

49+ </marker>

50+ <marker

51+ inkscape:isstock="true"

52+ style="overflow:visible;"

53+ id="marker1931"

54+ refX="0.0"

55+ refY="0.0"

56+ orient="auto"

57+ inkscape:stockid="Arrow1Mend"

58+ inkscape:collect="always">

59+ <path

60+ transform="scale(0.4) rotate(180) translate(10,0)"

61+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

62+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

63+ id="path1929" />

64+ </marker>

65+ <marker

66+ inkscape:stockid="Arrow1Mend"

67+ orient="auto"

68+ refY="0.0"

69+ refX="0.0"

70+ id="Arrow1Mend"

71+ style="overflow:visible;"

72+ inkscape:isstock="true"

73+ inkscape:collect="always">

74+ <path

75+ id="path1036"

76+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

77+ style="fill-rule:evenodd;stroke:#000000;stroke-width:1pt;stroke-opacity:1;fill:#000000;fill-opacity:1"

78+ transform="scale(0.4) rotate(180) translate(10,0)" />

79+ </marker>

80+ </defs>

81+ <sodipodi:namedview

82+ id="base"

83+ pagecolor="#ffffff"

84+ bordercolor="#666666"

85+ borderopacity="1.0"

86+ inkscape:pageopacity="0.0"

87+ inkscape:pageshadow="2"

88+ inkscape:zoom="1"

89+ inkscape:cx="497.48698"

90+ inkscape:cy="885.5"

91+ inkscape:document-units="mm"

92+ inkscape:current-layer="layer1"

93+ showgrid="false"

94+ inkscape:window-width="1920"

95+ inkscape:window-height="1015"

96+ inkscape:window-x="0"

97+ inkscape:window-y="0"

98+ inkscape:window-maximized="1" />

99+ <metadata

100+ id="metadata5">

101+ <rdf:RDF>

102+ <cc:Work

103+ rdf:about="">

104+ <dc:format>image/svg+xml</dc:format>

105+ <dc:type

106+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

107+ <dc:title></dc:title>

108+ </cc:Work>

109+ </rdf:RDF>

110+ </metadata>

111+ <g

112+ inkscape:label="Layer 1"

113+ inkscape:groupmode="layer"

114+ id="layer1">

115+ <rect

116+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

117+ id="rect815"

118+ width="4.3310161"

119+ height="4.3471913"

120+ x="61.383358"

121+ y="51.995804"

122+ inkscape:export-xdpi="61.120499"

123+ inkscape:export-ydpi="61.120499" />

124+ <text

125+ xml:space="preserve"

126+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

127+ x="62.917812"

128+ y="55.649193"

129+ id="text819"

130+ inkscape:export-xdpi="61.120499"

131+ inkscape:export-ydpi="61.120499"><tspan

132+ sodipodi:role="line"

133+ id="tspan817"

134+ x="62.917812"

135+ y="55.649193"

136+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none">i</tspan></text>

137+ <rect

138+ y="51.995804"

139+ x="65.714371"

140+ height="4.3471913"

141+ width="4.3310161"

142+ id="rect823"

143+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

144+ inkscape:export-xdpi="61.120499"

145+ inkscape:export-ydpi="61.120499" />

146+ <text

147+ id="text827"

148+ y="55.307304"

149+ x="66.760414"

150+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

151+ xml:space="preserve"

152+ inkscape:export-xdpi="61.120499"

153+ inkscape:export-ydpi="61.120499"><tspan

154+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

155+ y="55.307304"

156+ x="66.760414"

157+ id="tspan825"

158+ sodipodi:role="line">n</tspan></text>

159+ <rect

160+ y="51.995804"

161+ x="70.045387"

162+ height="4.3471913"

163+ width="4.3310161"

164+ id="rect829"

165+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

166+ inkscape:export-xdpi="61.120499"

167+ inkscape:export-ydpi="61.120499" />

168+ <text

169+ id="text833"

170+ y="55.063095"

171+ x="71.237953"

172+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

173+ xml:space="preserve"

174+ inkscape:export-xdpi="61.120499"

175+ inkscape:export-ydpi="61.120499"><tspan

176+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

177+ y="55.063095"

178+ x="71.237953"

179+ id="tspan831"

180+ sodipodi:role="line">p</tspan></text>

181+ <rect

182+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

183+ id="rect835"

184+ width="4.3310161"

185+ height="4.3471913"

186+ x="74.376404"

187+ y="51.995804"

188+ inkscape:export-xdpi="61.120499"

189+ inkscape:export-ydpi="61.120499" />

190+ <text

191+ xml:space="preserve"

192+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

193+ x="75.422447"

194+ y="55.356148"

195+ id="text839"

196+ inkscape:export-xdpi="61.120499"

197+ inkscape:export-ydpi="61.120499"><tspan

198+ sodipodi:role="line"

199+ id="tspan837"

200+ x="75.422447"

201+ y="55.356148"

202+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none">u</tspan></text>

203+ <rect

204+ y="51.995804"

205+ x="78.70742"

206+ height="4.3471913"

207+ width="4.3310161"

208+ id="rect841"

209+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

210+ inkscape:export-xdpi="61.120499"

211+ inkscape:export-ydpi="61.120499" />

212+ <text

213+ id="text845"

214+ y="55.649193"

215+ x="80.241875"

216+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

217+ xml:space="preserve"

218+ inkscape:export-xdpi="61.120499"

219+ inkscape:export-ydpi="61.120499"><tspan

220+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

221+ y="55.649193"

222+ x="80.241875"

223+ id="tspan843"

224+ sodipodi:role="line">t</tspan></text>

225+ <rect

226+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

227+ id="rect847"

228+ width="4.3310161"

229+ height="4.3471913"

230+ x="83.038437"

231+ y="51.995804"

232+ inkscape:export-xdpi="61.120499"

233+ inkscape:export-ydpi="61.120499" />

234+ <text

235+ xml:space="preserve"

236+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

237+ x="59.172871"

238+ y="88.457558"

239+ id="text851"><tspan

240+ sodipodi:role="line"

241+ id="tspan849"

242+ x="59.172871"

243+ y="92.350197"

244+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none" /></text>

245+ <rect

246+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

247+ id="rect853"

248+ width="4.3310161"

249+ height="4.3471913"

250+ x="87.369453"

251+ y="51.995804"

252+ inkscape:export-xdpi="61.120499"

253+ inkscape:export-ydpi="61.120499" />

254+ <text

255+ xml:space="preserve"

256+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

257+ x="88.46434"

258+ y="55.453827"

259+ id="text857"

260+ inkscape:export-xdpi="61.120499"

261+ inkscape:export-ydpi="61.120499"><tspan

262+ sodipodi:role="line"

263+ id="tspan855"

264+ x="88.46434"

265+ y="55.453827"

266+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none">s</tspan></text>

267+ <rect

268+ y="51.995804"

269+ x="91.70047"

270+ height="4.3471913"

271+ width="4.3310161"

272+ id="rect859"

273+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

274+ inkscape:export-xdpi="61.120499"

275+ inkscape:export-ydpi="61.120499" />

276+ <text

277+ id="text863"

278+ y="55.649193"

279+ x="93.234924"

280+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

281+ xml:space="preserve"

282+ inkscape:export-xdpi="61.120499"

283+ inkscape:export-ydpi="61.120499"><tspan

284+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

285+ y="55.649193"

286+ x="93.234924"

287+ id="tspan861"

288+ sodipodi:role="line">t</tspan></text>

289+ <rect

290+ y="51.995804"

291+ x="96.031487"

292+ height="4.3471913"

293+ width="4.3310161"

294+ id="rect865"

295+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

296+ inkscape:export-xdpi="61.120499"

297+ inkscape:export-ydpi="61.120499" />

298+ <text

299+ id="text869"

300+ y="55.649193"

301+ x="97.565941"

302+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

303+ xml:space="preserve"

304+ inkscape:export-xdpi="61.120499"

305+ inkscape:export-ydpi="61.120499"><tspan

306+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

307+ y="55.649193"

308+ x="97.565941"

309+ id="tspan867"

310+ sodipodi:role="line">r</tspan></text>

311+ <rect

312+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

313+ id="rect871"

314+ width="4.3310161"

315+ height="4.3471913"

316+ x="100.3625"

317+ y="51.995804"

318+ inkscape:export-xdpi="61.120499"

319+ inkscape:export-ydpi="61.120499" />

320+ <text

321+ xml:space="preserve"

322+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

323+ x="101.89697"

324+ y="55.649193"

325+ id="text875"

326+ inkscape:export-xdpi="61.120499"

327+ inkscape:export-ydpi="61.120499"><tspan

328+ sodipodi:role="line"

329+ id="tspan873"

330+ x="101.89697"

331+ y="55.649193"

332+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none">i</tspan></text>

333+ <rect

334+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

335+ id="rect877"

336+ width="4.3310161"

337+ height="4.3471913"

338+ x="104.69353"

339+ y="51.995804"

340+ inkscape:export-xdpi="61.120499"

341+ inkscape:export-ydpi="61.120499" />

342+ <text

343+ xml:space="preserve"

344+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

345+ x="105.73955"

346+ y="55.50267"

347+ id="text881"

348+ inkscape:export-xdpi="61.120499"

349+ inkscape:export-ydpi="61.120499"><tspan

350+ sodipodi:role="line"

351+ id="tspan879"

352+ x="105.73955"

353+ y="55.50267"

354+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none">n</tspan></text>

355+ <rect

356+ y="51.995804"

357+ x="109.0245"

358+ height="4.3471913"

359+ width="4.3310161"

360+ id="rect883"

361+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

362+ inkscape:export-xdpi="61.120499"

363+ inkscape:export-ydpi="61.120499" />

364+ <text

365+ id="text887"

366+ y="54.965416"

367+ x="110.21709"

368+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

369+ xml:space="preserve"

370+ inkscape:export-xdpi="61.120499"

371+ inkscape:export-ydpi="61.120499"><tspan

372+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

373+ y="54.965416"

374+ x="110.21709"

375+ id="tspan885"

376+ sodipodi:role="line">g</tspan></text>

377+ <text

378+ xml:space="preserve"

379+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

380+ x="125.67681"

381+ y="55.359386"

382+ id="text893"

383+ inkscape:export-xdpi="61.120499"

384+ inkscape:export-ydpi="61.120499"><tspan

385+ sodipodi:role="line"

386+ id="tspan891"

387+ x="125.67681"

388+ y="55.359386"

389+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none">:String</tspan></text>

390+ <rect

391+ y="51.995804"

392+ x="113.35551"

393+ height="4.3471913"

394+ width="4.3310161"

395+ id="rect895"

396+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

397+ inkscape:export-xdpi="61.120499"

398+ inkscape:export-ydpi="61.120499" />

399+ <text

400+ id="text899"

401+ y="55.50267"

402+ x="114.40154"

403+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

404+ xml:space="preserve"><tspan

405+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

406+ y="59.395306"

407+ x="114.40154"

408+ id="tspan897"

409+ sodipodi:role="line" /></text>

410+ <rect

411+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#0000ff;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

412+ id="rect901"

413+ width="4.3310161"

414+ height="4.3471913"

415+ x="117.68649"

416+ y="51.995804"

417+ inkscape:export-xdpi="61.120499"

418+ inkscape:export-ydpi="61.120499" />

419+ <text

420+ xml:space="preserve"

421+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

422+ x="118.87907"

423+ y="55.494583"

424+ id="text905"

425+ inkscape:export-xdpi="61.120499"

426+ inkscape:export-ydpi="61.120499"><tspan

427+ sodipodi:role="line"

428+ id="tspan903"

429+ x="118.87907"

430+ y="55.494583"

431+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none">1</tspan></text>

432+ <g

433+ id="g950"

434+ transform="translate(-15.319488,0.319156)"

435+ inkscape:export-xdpi="61.120499"

436+ inkscape:export-ydpi="61.120499">

437+ <rect

438+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

439+ id="rect907"

440+ width="11.990757"

441+ height="4.3471909"

442+ x="47.978806"

443+ y="69.310013" />

444+ <text

445+ xml:space="preserve"

446+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

447+ x="48.706326"

448+ y="72.963402"

449+ id="text911"><tspan

450+ sodipodi:role="line"

451+ id="tspan909"

452+ x="48.706326"

453+ y="72.963402"

454+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none">token</tspan></text>

455+ <rect

456+ y="69.310013"

457+ x="59.969563"

458+ height="4.2674026"

459+ width="10.075821"

460+ id="rect913"

461+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1" />

462+ <text

463+ id="text917"

464+ y="72.940666"

465+ x="61.015606"

466+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

467+ xml:space="preserve"><tspan

468+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

469+ y="72.940666"

470+ x="61.015606"

471+ id="tspan915"

472+ sodipodi:role="line">line</tspan></text>

473+ <rect

474+ y="69.389801"

475+ x="70.045387"

476+ height="4.1876144"

477+ width="7.5225825"

478+ id="rect919"

479+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1" />

480+ <text

481+ id="text923"

482+ y="72.935829"

483+ x="70.998589"

484+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

485+ xml:space="preserve"><tspan

486+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

487+ y="72.935829"

488+ x="70.998589"

489+ id="tspan921"

490+ sodipodi:role="line">col</tspan></text>

491+ </g>

492+ <text

493+ id="text927"

494+ y="80.971657"

495+ x="40.541954"

496+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

497+ xml:space="preserve"

498+ inkscape:export-xdpi="61.120499"

499+ inkscape:export-ydpi="61.120499"><tspan

500+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:4.23333311px;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

501+ y="80.971657"

502+ x="40.541954"

503+ sodipodi:role="line"

504+ id="tspan933">:(List (TokenData Token), Int, Int, String)</tspan></text>

505+ <g

506+ id="g970"

507+ transform="translate(16.596112,0.319156)"

508+ inkscape:export-xdpi="61.120499"

509+ inkscape:export-ydpi="61.120499">

510+ <rect

511+ y="69.310013"

512+ x="47.978806"

513+ height="4.3471909"

514+ width="11.990757"

515+ id="rect952"

516+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1" />

517+ <text

518+ id="text956"

519+ y="72.963402"

520+ x="48.706326"

521+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

522+ xml:space="preserve"><tspan

523+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

524+ y="72.963402"

525+ x="48.706326"

526+ id="tspan954"

527+ sodipodi:role="line">token</tspan></text>

528+ <rect

529+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

530+ id="rect958"

531+ width="10.075821"

532+ height="4.2674026"

533+ x="59.969563"

534+ y="69.310013" />

535+ <text

536+ xml:space="preserve"

537+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

538+ x="61.015606"

539+ y="72.940666"

540+ id="text962"><tspan

541+ sodipodi:role="line"

542+ id="tspan960"

543+ x="61.015606"

544+ y="72.940666"

545+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none">line</tspan></text>

546+ <rect

547+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

548+ id="rect964"

549+ width="7.5225825"

550+ height="4.1876144"

551+ x="70.045387"

552+ y="69.389801" />

553+ <text

554+ xml:space="preserve"

555+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

556+ x="70.998589"

557+ y="72.935829"

558+ id="text968"><tspan

559+ sodipodi:role="line"

560+ id="tspan966"

561+ x="70.998589"

562+ y="72.935829"

563+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none">col</tspan></text>

564+ </g>

565+ <g

566+ transform="translate(48.591501,0.319156)"

567+ id="g990"

568+ inkscape:export-xdpi="61.120499"

569+ inkscape:export-ydpi="61.120499">

570+ <rect

571+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

572+ id="rect972"

573+ width="11.990757"

574+ height="4.3471909"

575+ x="47.978806"

576+ y="69.310013" />

577+ <text

578+ xml:space="preserve"

579+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

580+ x="48.706326"

581+ y="72.963402"

582+ id="text976"><tspan

583+ sodipodi:role="line"

584+ id="tspan974"

585+ x="48.706326"

586+ y="72.963402"

587+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none">token</tspan></text>

588+ <rect

589+ y="69.310013"

590+ x="59.969563"

591+ height="4.2674026"

592+ width="10.075821"

593+ id="rect978"

594+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1" />

595+ <text

596+ id="text982"

597+ y="72.940666"

598+ x="61.015606"

599+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

600+ xml:space="preserve"><tspan

601+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

602+ y="72.940666"

603+ x="61.015606"

604+ id="tspan980"

605+ sodipodi:role="line">line</tspan></text>

606+ <rect

607+ y="69.389801"

608+ x="70.045387"

609+ height="4.1876144"

610+ width="7.5225825"

611+ id="rect984"

612+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1" />

613+ <text

614+ id="text988"

615+ y="72.935829"

616+ x="70.998589"

617+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

618+ xml:space="preserve"><tspan

619+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

620+ y="72.935829"

621+ x="70.998589"

622+ id="tspan986"

623+ sodipodi:role="line">col</tspan></text>

624+ </g>

625+ <path

626+ style="fill:none;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;stroke-miterlimit:4;stroke-dasharray:none"

627+ d="m 125.97308,68.549658 1.30238,0.0089 -0.0153,6.481345 h -1.30803"

628+ id="path992"

629+ inkscape:connector-curvature="0"

630+ sodipodi:nodetypes="cccc"

631+ inkscape:export-xdpi="61.120499"

632+ inkscape:export-ydpi="61.120499" />

633+ <path

634+ sodipodi:nodetypes="cccc"

635+ inkscape:connector-curvature="0"

636+ id="path994"

637+ d="m 32.561899,68.619523 -1.30238,0.0089 0.0153,6.481345 h 1.30803"

638+ style="fill:none;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

639+ inkscape:export-xdpi="61.120499"

640+ inkscape:export-ydpi="61.120499" />

641+ <rect

642+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

643+ id="rect996"

644+ width="11.990757"

645+ height="4.3471909"

646+ x="155.60759"

647+ y="69.899559"

648+ inkscape:export-xdpi="61.120499"

649+ inkscape:export-ydpi="61.120499" />

650+ <text

651+ xml:space="preserve"

652+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

653+ x="156.33508"

654+ y="73.552948"

655+ id="text1000"

656+ inkscape:export-xdpi="61.120499"

657+ inkscape:export-ydpi="61.120499"><tspan

658+ sodipodi:role="line"

659+ id="tspan998"

660+ x="156.33508"

661+ y="73.552948"

662+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none">string</tspan></text>

663+ <rect

664+ y="69.750786"

665+ x="130.3979"

666+ height="4.2674026"

667+ width="10.075821"

668+ id="rect1002"

669+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

670+ inkscape:export-xdpi="61.120499"

671+ inkscape:export-ydpi="61.120499" />

672+ <text

673+ id="text1006"

674+ y="73.381439"

675+ x="131.44394"

676+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

677+ xml:space="preserve"

678+ inkscape:export-xdpi="61.120499"

679+ inkscape:export-ydpi="61.120499"><tspan

680+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

681+ y="73.381439"

682+ x="131.44394"

683+ id="tspan1004"

684+ sodipodi:role="line">line</tspan></text>

685+ <rect

686+ y="69.830574"

687+ x="143.64868"

688+ height="4.1876144"

689+ width="7.5225825"

690+ id="rect1008"

691+ style="opacity:1;vector-effect:none;fill:none;fill-opacity:0.97596154;fill-rule:evenodd;stroke:#ff0000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1"

692+ inkscape:export-xdpi="61.120499"

693+ inkscape:export-ydpi="61.120499" />

694+ <text

695+ id="text1012"

696+ y="73.376602"

697+ x="144.60188"

698+ style="font-style:normal;font-weight:normal;font-size:4.23333311px;line-height:1.25;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

699+ xml:space="preserve"

700+ inkscape:export-xdpi="61.120499"

701+ inkscape:export-ydpi="61.120499"><tspan

702+ style="font-size:4.23333311px;stroke-width:0.70555556;stroke-miterlimit:4;stroke-dasharray:none"

703+ y="73.376602"

704+ x="144.60188"

705+ id="tspan1010"

706+ sodipodi:role="line">col</tspan></text>

707+ <path

708+ style="fill:none;stroke:#000000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#Arrow1Mend)"

709+ d="m 58.415342,69.700595 -0.143613,-5.887785 4.912582,-0.06048 0.03784,-6.371998"

710+ id="path1025"

711+ inkscape:connector-curvature="0"

712+ sodipodi:nodetypes="cccc"

713+ inkscape:export-xdpi="61.120499"

714+ inkscape:export-ydpi="61.120499" />

715+ <path

716+ inkscape:connector-curvature="0"

717+ id="path1927"

718+ d="m 89.918872,69.996556 -0.02264,-12.07186"

719+ style="fill:none;stroke:#000000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker1931)"

720+ sodipodi:nodetypes="cc"

721+ inkscape:export-xdpi="61.120499"

722+ inkscape:export-ydpi="61.120499" />

723+ <path

724+ sodipodi:nodetypes="cccc"

725+ style="fill:none;stroke:#000000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker4031)"

726+ d="m 122.08751,69.519138 -0.0832,-5.464386 -2.3456,-0.06048 -0.20406,-6.674425"

727+ id="path4027"

728+ inkscape:connector-curvature="0"

729+ inkscape:export-xdpi="61.120499"

730+ inkscape:export-ydpi="61.120499" />

731+ <path

732+ inkscape:connector-curvature="0"

733+ id="path7115"

734+ d="m 147.18896,69.882051 -0.0832,-5.827299 -22.72919,0 -0.446,-6.251027"

735+ style="fill:none;stroke:#000000;stroke-width:0.70555556;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker7119)"

736+ sodipodi:nodetypes="cccc"

737+ inkscape:export-xdpi="61.120499"

738+ inkscape:export-ydpi="61.120499" />

739+ </g>

740+</svg>

docs/image/tree.pngnew file

Binary file not shown.

docs/image/tree.svgnew file+212

@@ -0,0 +1,212 @@

1+<?xml version="1.0" encoding="UTF-8" standalone="no"?>

2+

3+

4+<svg

5+ xmlns:dc="http://purl.org/dc/elements/1.1/"

6+ xmlns:cc="http://creativecommons.org/ns#"

7+ xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

8+ xmlns:svg="http://www.w3.org/2000/svg"

9+ xmlns="http://www.w3.org/2000/svg"

10+ xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

11+ xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

12+ width="210mm"

13+ height="297mm"

14+ viewBox="0 0 744.09448819 1052.3622047"

15+ id="svg2"

16+ version="1.1"

17+ inkscape:version="0.92.2 5c3e80d, 2017-08-06"

18+ sodipodi:docname="tree.svg">

19+ <defs

20+ id="defs4">

21+ <marker

22+ inkscape:isstock="true"

23+ style="overflow:visible;"

24+ id="marker5204"

25+ refX="0.0"

26+ refY="0.0"

27+ orient="auto"

28+ inkscape:stockid="Arrow1Mend">

29+ <path

30+ transform="scale(0.4) rotate(180) translate(10,0)"

31+ style="fill-rule:evenodd;stroke:#0000ff;stroke-width:1pt;stroke-opacity:1;fill:#0000ff;fill-opacity:1"

32+ d="M 0.0,0.0 L 5.0,-5.0 L -12.5,0.0 L 5.0,5.0 L 0.0,0.0 z "

33+ id="path5206" />

34+ </marker>

35+ </defs>

36+ <sodipodi:namedview

37+ id="base"

38+ pagecolor="#ffffff"

39+ bordercolor="#666666"

40+ borderopacity="1.0"

41+ inkscape:pageopacity="0.0"

42+ inkscape:pageshadow="2"

43+ inkscape:zoom="1"

44+ inkscape:cx="383.03443"

45+ inkscape:cy="690.88799"

46+ inkscape:document-units="px"

47+ inkscape:current-layer="layer1"

48+ showgrid="false"

49+ inkscape:window-width="1129"

50+ inkscape:window-height="730"

51+ inkscape:window-x="671"

52+ inkscape:window-y="0"

53+ inkscape:window-maximized="0" />

54+ <metadata

55+ id="metadata7">

56+ <rdf:RDF>

57+ <cc:Work

58+ rdf:about="">

59+ <dc:format>image/svg+xml</dc:format>

60+ <dc:type

61+ rdf:resource="http://purl.org/dc/dcmitype/StillImage" />

62+ <dc:title />

63+ </cc:Work>

64+ </rdf:RDF>

65+ </metadata>

66+ <g

67+ inkscape:label="Layer 1"

68+ inkscape:groupmode="layer"

69+ id="layer1">

70+ <text

71+ xml:space="preserve"

72+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

73+ x="348.5"

74+ y="334.92474"

75+ id="text4136"

76+ inkscape:export-xdpi="61.120499"

77+ inkscape:export-ydpi="61.120499"><tspan

78+ sodipodi:role="line"

79+ id="tspan4138"

80+ x="348.5"

81+ y="334.92474"

82+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;fill-opacity:1">{hole2} :Nat->Nat</tspan></text>

83+ <text

84+ id="text4152"

85+ y="364.17471"

86+ x="380.375"

87+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

88+ xml:space="preserve"

89+ inkscape:export-xdpi="61.120499"

90+ inkscape:export-ydpi="61.120499"><tspan

91+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#000000;fill-opacity:1"

92+ y="364.17471"

93+ x="380.375"

94+ id="tspan4154"

95+ sodipodi:role="line">intro `{{x}}</tspan></text>

96+ <text

97+ xml:space="preserve"

98+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

99+ x="381.0625"

100+ y="470.23721"

101+ id="text4156"

102+ inkscape:export-xdpi="61.120499"

103+ inkscape:export-ydpi="61.120499"><tspan

104+ sodipodi:role="line"

105+ id="tspan4158"

106+ x="381.0625"

107+ y="470.23721"

108+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#000000;fill-opacity:1">solve</tspan></text>

109+ <text

110+ id="text4160"

111+ y="414.42471"

112+ x="380.5625"

113+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

114+ xml:space="preserve"

115+ inkscape:export-xdpi="61.120499"

116+ inkscape:export-ydpi="61.120499"><tspan

117+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#000000;fill-opacity:1"

118+ y="414.42471"

119+ x="380.5625"

120+ id="tspan4162"

121+ sodipodi:role="line">fill (Var `{{x}})</tspan></text>

122+ <path

123+ style="fill:#0000ff;fill-rule:evenodd;stroke:#0000ff;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker5204)"

124+ d="m 371.4375,343.4872 0.875,29.125"

125+ id="path5202"

126+ inkscape:connector-curvature="0"

127+ sodipodi:nodetypes="cc"

128+ inkscape:export-xdpi="61.120499"

129+ inkscape:export-ydpi="61.120499" />

130+ <path

131+ inkscape:export-ydpi="61.120499"

132+ inkscape:export-xdpi="61.120499"

133+ sodipodi:nodetypes="cc"

134+ inkscape:connector-curvature="0"

135+ id="path89"

136+ d="m 371.4375,395.9872 0.875,29.125"

137+ style="fill:#0000ff;fill-rule:evenodd;stroke:#0000ff;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker5204)" />

138+ <path

139+ style="fill:#0000ff;fill-rule:evenodd;stroke:#0000ff;stroke-width:2;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;marker-end:url(#marker5204)"

140+ d="m 371.4375,450.3622 0.875,29.125"

141+ id="path91"

142+ inkscape:connector-curvature="0"

143+ sodipodi:nodetypes="cc"

144+ inkscape:export-xdpi="61.120499"

145+ inkscape:export-ydpi="61.120499" />

146+ <text

147+ inkscape:export-ydpi="61.120499"

148+ inkscape:export-xdpi="61.120499"

149+ id="text95"

150+ y="332.11224"

151+ x="295.0625"

152+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

153+ xml:space="preserve"><tspan

154+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1"

155+ y="332.11224"

156+ x="295.0625"

157+ id="tspan93"

158+ sodipodi:role="line">state</tspan></text>

159+ <text

160+ xml:space="preserve"

161+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

162+ x="295.0625"

163+ y="386.48724"

164+ id="text99"

165+ inkscape:export-xdpi="61.120499"

166+ inkscape:export-ydpi="61.120499"><tspan

167+ sodipodi:role="line"

168+ id="tspan97"

169+ x="295.0625"

170+ y="386.48724"

171+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1">state</tspan></text>

172+ <text

173+ inkscape:export-ydpi="61.120499"

174+ inkscape:export-xdpi="61.120499"

175+ id="text103"

176+ y="444.61224"

177+ x="295.0625"

178+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#ff0000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

179+ xml:space="preserve"><tspan

180+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#ff0000;fill-opacity:1"

181+ y="444.61224"

182+ x="295.0625"

183+ id="tspan101"

184+ sodipodi:role="line">state</tspan></text>

185+ <text

186+ inkscape:export-ydpi="61.120499"

187+ inkscape:export-xdpi="61.120499"

188+ id="text3796"

189+ y="389.29974"

190+ x="345.6875"

191+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

192+ xml:space="preserve"><tspan

193+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;fill-opacity:1"

194+ y="389.29974"

195+ x="345.6875"

196+ id="tspan3794"

197+ sodipodi:role="line">λ x:Nat . ? {hole 2}</tspan></text>

198+ <text

199+ xml:space="preserve"

200+ style="font-style:normal;font-weight:normal;line-height:0%;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#0000ff;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

201+ x="344.75"

202+ y="442.73724"

203+ id="text3800"

204+ inkscape:export-xdpi="61.120499"

205+ inkscape:export-ydpi="61.120499"><tspan

206+ sodipodi:role="line"

207+ id="tspan3798"

208+ x="344.75"

209+ y="442.73724"

210+ style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:15px;line-height:1.25;font-family:sans-serif;-inkscape-font-specification:'sans-serif Bold';fill:#0000ff;fill-opacity:1">λ x:Nat . x</tspan></text>

211+ </g>

212+</svg>

docs/index.rst+3−1

@@ -13,7 +13,7 @@ Documentation for the Idris Language

13 Idris Community* has waived all copyright and related or neighboring

14 rights to Documentation for Idris.

15

16− More information concerning the CC0 can be found online at: http://creativecommons.org/publicdomain/zero/1.0/

16+ More information concerning the CC0 can be found online at: https://creativecommons.org/publicdomain/zero/1.0/

17

18

19.. toctree::

@@ -24,5 +24,7 @@ Documentation for the Idris Language

24 st/index

25 effects/index

26 proofs/index

27+ elaboratorReflection/index

28+ parserLibrary/index

27 reference/index

29 reference/index

28 guides/index

30 guides/index

docs/listing/idris-prompt-helloworld.txt+2−2

@@ -1,8 +1,8 @@

1$ idris hello.idr

2 ____ __ _

3 / _/___/ /____(_)____

4− / // __ / ___/ / ___/ Version 1.3.0

4+ / // __ / ___/ / ___/ Version 1.3.2

5− _/ // /_/ / / / (__ ) http://www.idris-lang.org/

5+ _/ // /_/ / / / (__ ) https://www.idris-lang.org/

6 /___/\__,_/_/ /_/____/ Type :? for help

7

8Type checking ./hello.idr

docs/listing/idris-prompt-interp.txt+2−2

@@ -1,8 +1,8 @@

1$ idris interp.idr

2 ____ __ _

3 / _/___/ /____(_)____

4− / // __ / ___/ / ___/ Version 1.3.0

4+ / // __ / ___/ / ___/ Version 1.3.2

5− _/ // /_/ / / / (__ ) http://www.idris-lang.org/

5+ _/ // /_/ / / / (__ ) https://www.idris-lang.org/

6 /___/\__,_/_/ /_/____/ Type :? for help

7

8Type checking ./interp.idr

docs/listing/idris-prompt-start.txt+2−2

@@ -1,8 +1,8 @@

1$ idris

2 ____ __ _

3 / _/___/ /____(_)____

4− / // __ / ___/ / ___/ Version 1.3.0

4+ / // __ / ___/ / ___/ Version 1.3.2

5− _/ // /_/ / / / (__ ) http://www.idris-lang.org/

5+ _/ // /_/ / / / (__ ) https://www.idris-lang.org/

6/___/\__,_/_/ /_/____/ Type :? for help

7

8Idris>

docs/make.bat+1−1

@@ -65,7 +65,7 @@ if errorlevel 9009 (

65 echo.may add the Sphinx directory to PATH.

66 echo.

67 echo.If you don't have Sphinx installed, grab it from

68− echo.http://sphinx-doc.org/

68+ echo.https://www.sphinx-doc.org/

69 exit /b 1

70)

71

docs/parserLibrary/index.rstnew file+24

@@ -0,0 +1,24 @@

1+.. _parserLibrary:

2+

3+########################

4+Lexer and Parser Library

5+########################

6+

7+A tutorial on the lexer and parser library in Idris.

8+

9+.. note::

10+

11+ The documentation for Idris has been published under the Creative

12+ Commons CC0 License. As such to the extent possible under law, *The

13+ Idris Community* has waived all copyright and related or neighboring

14+ rights to Documentation for Idris.

15+

16+ More information concerning the CC0 can be found online at: http://creativecommons.org/publicdomain/zero/1.0/

17+

18+.. toctree::

19+ :maxdepth: 1

20+

21+ introduction

22+ lexer

23+ parser

24+ whitespace

docs/parserLibrary/introduction.rstnew file+76

@@ -0,0 +1,76 @@

1+.. _parserLibraryIntro:

2+

3+***************************

4+Parser Library Introduction

5+***************************

6+

7+The parser library can be used to build Idris structures from text. It involves a

8+certain amount of complexity and so it would typically be used for big projects.

9+An example might be a compiler for another language, written in Idris.

10+

11+Of course the parser library can also be used to compile to Idris, this is what

12+is done in Idris 2 and that is what the this library appears to have been

13+written for.

14+

15+So a secondary use for this tutorial would be to help understanding the internal

16+workings of Idris 2.

17+

18+The parser library is used in a similar way to Parsec which is a library for

19+writing parsers in Haskell. It is based on higher-order parser combinators, so a

20+complicated parser can be made out of many smaller ones.

21+

22+.. list-table::

23+

24+ * - This is a two stage process:

25+ - Lexer - This takes the input string and turns it into a list of Tokens.

26+ - Parser - This takes the list of tokens and outputs the code.

27+

28+ - .. image:: ../image/parserTopLevel.png

29+ :width: 307px

30+ :height: 76px

31+ :alt: diagram illustrating these stages of lexer and parser

32+

33+The advantage of using two stages, like this, is that things like whitespace and

34+comments don't need to be considered in every parser rule.

35+

36+The Idris parser library differs from Parsec in that you need to say, in the

37+Recogniser, whether a rule is guaranteed to consume input. This means that the

38+Idris type system prevents the construction of recognisers/rules that can't

39+consume the input.

40+

41+The Lexer is similar but works at the level of characters rather than tokens, and

42+you need to provide a TokenMap which defines how to build a token from

43+a string when a rule is matched.

44+

45+The following pages contain a tutorial for the :ref:`parserLibraryLexer` and a

46+tutorial for the :ref:`parserLibraryParser`. These tutorials have a running

47+example of a parser for integer expressions. This is a very simple example, there

48+may be easier ways to do something so simple, but it illustrates some of the

49+principles.

50+

51+Parser Library and Idris 2

52+--------------------------

53+

54+The parser library, in Idris 1, is almost the same as the code that the Idris 2

55+parser is built on. Even if you only want to use the Idris 1 parser library it

56+is useful to look at the code in the Idris 2 compilers to see how the library

57+can be used.

58+

59+Idris 2 has at least 3 compilers:

60+

61+- IDEMode - complies to SExp which is a Lisp-like structure used to communicate

62+ with external editors like Emacs and Vim.

63+- Idris.Parser - This is the main compiler which compiles from a file to

64+ PTerm (and eventually TT structure).

65+- REPL - compiles input from the command line.

66+

67+The following diagram is my first attempt to work out how some of the modules in

68+Idris 2 fit together (with a few of the dependencies between them shown). The

69+Idris 1 library is based on the modules at the bottom of the diagram (shown

70+in red).

71+

72+.. image:: ../image/parserModules.png

73+ :width: 460px

74+ :height: 496px

75+ :alt: diagram illustrating these stages of lexer and parser

76+

docs/parserLibrary/lexer.rstnew file+288

@@ -0,0 +1,288 @@

1+.. _parserLibraryLexer:

2+

3+Lexer

4+=====

5+

6+The lexer is run by calling the 'lex' function in the Text.Lexer.Core

7+module:

8+

9+.. code-block:: idris

10+

11+ lex : TokenMap a -> String -> (List (TokenData a), (Int, Int, String))

12+

13+.. list-table::

14+

15+ * - This function takes a String and returns a list of tokens. With the

16+ tokens we have indexes back to the original string which can be used

17+ in error messages:

18+

19+ - .. image:: ../image/tokenise.png

20+ :width: 330px

21+ :height: 73px

22+ :alt: diagram illustrating these stages of lexer

23+

24+TokenMap

25+--------

26+

27+In order to construct this list of tokens we need:

28+

29+- A way to recognise the tokens in the input string.

30+- A way to construct these individual tokens.

31+

32+This is given by the TokenMap which is a list of pairs containing

33+this information:

34+

35+.. code-block:: idris

36+

37+ (Lexer, String -> tokenType)

38+

39+So for each Lexer in the list, if a substring in the input matches, run

40+the associated function to produce a token of type ``tokenType``

41+

42+.. list-table::

43+

44+ * - from Text.Lexer.Core

45+ : https://github.com/idris-lang/Idris-dev/blob/master/libs/contrib/Text/Lexer/Core.idr

46+

47+ - .. code-block:: idris

48+

49+ TokenMap : (tokenType : Type) -> Type

50+ TokenMap tokenType = List (Lexer, String -> tokenType)

51+

52+ * - We can create a tokenMap by using a function like this:

53+

54+ - .. code-block:: idris

55+

56+ myTokenMap : TokenMap Token

57+ myTokenMap = [(is 'a',CharLit)]

58+

59+Once we have a TokenMap we can use it to lex many strings.

60+

61+Recognisers

62+-----------

63+

64+The first part of each entry in the TokenMap is the recogniser.

65+

66+A simple recogniser is 'Pred' which uses a predicate (Char -> Bool) to

67+test whether to accept the character. It can be constructed using the

68+'is' function:

69+

70+.. code-block:: idris

71+

72+ *parserEx> is 'a'

73+ Pred (\ARG =>

74+ intToBool (prim__eqChar ARG 'a'))

75+ : Recognise True

76+

77+More complicated structures can be recognised as tokens, this is done using

78+the combinator structure of recognisers. This allows recognisers to be

79+combined, for example,

80+

81+.. list-table::

82+

83+ * - ``<+>`` means sequence two recognisers. If either consumes a character,

84+ the sequence is guaranteed to consume a character.

85+

86+ - .. code-block:: idris

87+

88+ *parserEx> is 'a' <+> is 'b'

89+ SeqEat (Pred (\ARG => intToBool (prim__eqChar ARG 'a')))

90+ (Delay (is 'b')) : Recognise True

91+

92+ * - ``<|>`` means if both consume, the combination is guaranteed

93+ to consumer a character:

94+

95+ - .. code-block:: idris

96+

97+ *parserEx> is 'a' <|> is 'b'

98+ Alt (Pred (\ARG => intToBool (prim__eqChar ARG 'a')))

99+ (Pred (\ARG => intToBool (prim__eqChar ARG 'b')))

100+ : Recognise True

101+

102+This diagram shows the recogniser combinator with some of its constructors:

103+

104+.. image:: ../image/recogniser.png

105+ :width: 487px

106+ :height: 249px

107+ :alt: recogniser data structure

108+

109+A recogniser consumes its input, that is it advances the index to its input

110+string, as it generates the token list. In some cases we don't want this to

111+happen, for instance, we may need to lookahead before consuming the input

112+string.

113+

114+If a recogniser does not consume input there is a danger of an infinite loop.

115+To prevent this the recogniser is dependent on a boolean called 'consumes' which

116+is true if the recogniser is guaranteed to consume at least one character.

117+

118+The constructors of Recognise allow us to ensure that, even though parts of

119+the recogniser may not consume, overall the recogniser will consume.

120+

121+Since 'Recognise True' is more common than 'Recognise False' it is convenient to

122+use 'Lexer' as a type synonym for 'Recognise True'.

123+

124+Whitespace and Comments

125+-----------------------

126+

127+An important reason to have a lexer is to simplify the parser when whitespace

128+or comments are required. Without this the parser would require a match for

129+every combination, with and without, whitespace and comments.

130+

131+In some languages the lexer needs to remove whitespace and comments so that

132+they don't appear in the token list. In some cases whitespace is significant

133+but a single whitespace token can stand for any number of spaces, tabs,

134+carriage returns and so on.

135+

136+In some cases, such as when parsing the Idris language itself, whitespace

137+is important to indicate blocks. In this case we might want to output a

138+start-of-block token when the indent increases and an end-of-block token

139+when the indent decreases.

140+

141+This topic will be discussed more fully on this page

142+:ref:`parserLibraryWhitespace`.

143+

144+Simple Expression Example for Lexer

145+-----------------------------------

146+

147+On this page we will implement a lexer to 'lex' a very simple expression as

148+a running example, on the next page, we will go on to implement a parser for it.

149+

150+First import the lexer and parser code:

151+

152+.. code-block:: idris

153+

154+ module ParserExample

155+

156+ import Text.Lexer

157+ import public Text.Parser.Core

158+ import public Text.Parser

159+

160+Then decide on the tokens that are needed. For this example the idea is to be

161+able to parse simple arithmetic expressions, like this:

162+

163+.. code-block:: idris

164+

165+ 1+(2*3)

166+

167+so we need:

168+

169+- Numbers (for now integer literals are good enough).

170+- Some operators (for now ``+``, ``-`` and ``*`` will do.

171+- Opening and closing Parentheses.

172+

173+We can define these, as tokens, like this:

174+

175+.. code-block:: idris

176+

177+ %default total

178+

179+ public export

180+ data ExpressionToken = Number Integer

181+ | Operator String

182+ | OParen

183+ | CParen

184+ | EndInput

185+

186+It may help with debugging and to implement error messages to

187+implement ``show`` for these tokens:

188+

189+.. code-block:: idris

190+

191+ export

192+ Show ExpressionToken where

193+ show (Number x) = "number " ++ show x

194+ show (Operator x) = "operator " ++ x

195+ show OParen = "("

196+ show CParen = ")"

197+ show EndInput = "end of input"

198+

199+ export

200+ Show (TokenData ExpressionToken) where

201+ show (MkToken l c t) = "line=" ++ show l ++ " col=" ++ show c ++ "tok=" ++ show t

202+

203+The following defines the 'TokenMap' for this example:

204+

205+.. code-block:: idris

206+

207+ ||| integer arithmetic operators plus, minus and multiply.

208+ export

209+ opChars : String

210+ opChars = "+-*"

211+

212+ operator : Lexer

213+ operator = some (oneOf opChars)

214+

215+ toInt' : String -> Integer

216+ toInt' = cast

217+

218+ expressionTokens : TokenMap ExpressionToken

219+ expressionTokens =

220+ [(digits, \x => Number (toInt' x)),

221+ (operator, \x => Operator x),

222+ (is '(' ,\x => OParen),

223+ (is ')' ,\x => CParen)]

224+

225+This specifies the lexer. It gives, for each token, a function to recognise

226+the token type and a function to construct the token.

227+

228+The library module 'Text.Lexer' contains useful functions to help with this.

229+For example, the digits function used above, which reads one or more

230+numeric characters.

231+

232+We can now run the code with various strings to see what output the lexer

233+produces. This is done by calling the 'lex' function with the TokenMap and

234+input string as parameters:

235+

236+.. code-block:: idris

237+

238+ cd Idris-dev/libs/contrib

239+ idris -p contrib parserEx.idr

240+ ____ __ _

241+ / _/___/ /____(_)____

242+ / // __ / ___/ / ___/ Version 1.3.2

243+ _/ // /_/ / / / (__ ) http://www.idris-lang.org/

244+ /___/\__,_/_/ /_/____/ Type :? for help

245+

246+ Idris is free software with ABSOLUTELY NO WARRANTY.

247+ For details type :warranty.

248+ Type checking ./Text/Token.idr

249+ Type checking ./Text/Quantity.idr

250+ Type checking ./Control/Delayed.idr

251+ Type checking ./Data/Bool/Extra.idr

252+ Type checking ./Text/Lexer/Core.idr

253+ Type checking ./Text/Lexer.idr

254+ Type checking ./parserEx.idr

255+

256+ *parserEx> lex expressionTokens "1+2"

257+ ([MkToken 0 0 (Number 1),

258+ MkToken 0

259+ (case fspan (\ARG => not (intToBool (prim__eqChar ARG '\n'))) "1" of

260+ (incol, "") => c + cast (length incol)

261+ (incol, b) => cast (length incol))

262+ (Operator "+"),

263+ MkToken 0

264+ (case fspan (\ARG => not (intToBool (prim__eqChar ARG '\n'))) "+" of

265+ (incol, "") => c + cast (length incol)

266+ (incol, b) => cast (length incol))

267+ (Number 2)],

268+ 0,

269+ case fspan (\ARG => not (intToBool (prim__eqChar ARG '\n'))) "2" of

270+ (incol, "") => c + cast (length incol)

271+ (incol, b) => cast (length incol),

272+ getString (MkStrLen "" 0)) : (List (TokenData ExpressionToken),

273+ Int,

274+ Int,

275+ String)

276+

277+The lexer uses potentially infinite data structures. It has recursive

278+arguments (codata type) so code is lazy. In the output above the indexes

279+have not been computed but we can pick out the tokens:

280+

281+- (Number 1)

282+- (Operator "+")

283+- (Number 2)

284+

285+So the code is working.

286+

287+We can now go ahead and parse this token list. A parser for this example will

288+be constructed on the next page.

docs/parserLibrary/parser.rstnew file+700

@@ -0,0 +1,700 @@

1+.. _parserLibraryParser:

2+

3+Parser

4+======

5+

6+To run the parser we call ``parse``. This requires a grammar and the output

7+from the lexer (which is a list of tokens).

8+

9+.. code-block:: idris

10+

11+ parse : (act : Grammar tok c ty) -> (xs : List tok) ->

12+ Either (ParseError tok) (ty, List tok)

13+

14+If successful this returns 'Right' with a pair of

15+

16+- the parse result.

17+- the unparsed tokens (the remaining input).

18+

19+otherwise it returns 'Left' with the error message.

20+

21+So we need to define the grammar for our parser, this is done using the following

22+'Grammar' data structure. This is a combinator structure, similar in principle

23+to the recogniser combinator for the lexer, which was discussed on the

24+previous page.

25+

26+As with the Recogniser the ``Grammar`` type is dependent on a boolean 'consumes'

27+value which allows us to ensure that complicated ``Grammar`` structures will always

28+consume input.

29+

30+.. code-block:: idris

31+

32+ ||| Description of a language's grammar. The `tok` parameter is the type

33+ ||| of tokens, and the `consumes` flag is True if the language is guaranteed

34+ ||| to be non-empty - that is, successfully parsing the language is guaranteed

35+ ||| to consume some input.

36+ public export

37+ data Grammar : (tok : Type) -> (consumes : Bool) -> Type -> Type where

38+ Empty : (val : ty) -> Grammar tok False ty

39+ Terminal : String -> (tok -> Maybe a) -> Grammar tok True a

40+ NextIs : String -> (tok -> Bool) -> Grammar tok False tok

41+ EOF : Grammar tok False ()

42+

43+ Fail : Bool -> String -> Grammar tok c ty

44+ Commit : Grammar tok False ()

45+ MustWork : Grammar tok c a -> Grammar tok c a

46+

47+ SeqEat : Grammar tok True a -> Inf (a -> Grammar tok c2 b) ->

48+ Grammar tok True b

49+ SeqEmpty : {c1, c2 : Bool} ->

50+ Grammar tok c1 a -> (a -> Grammar tok c2 b) ->

51+ Grammar tok (c1 || c2) b

52+ Alt : {c1, c2 : Bool} ->

53+ Grammar tok c1 ty -> Grammar tok c2 ty ->

54+ Grammar tok (c1 && c2) ty

55+

56+So an example of a grammer type may look something like this:

57+``Grammar (TokenData ExpressionToken) True Integer``.

58+This is a complicated type name and a given parser will need to use it a lot.

59+So to reduce the amount of typing we can use the following type synonym (similar

60+to what is done in Idris 2

61+: https://github.com/edwinb/Idris2/blob/master/src/Parser/Support.idr

62+)

63+

64+.. code-block:: idris

65+

66+ public export

67+ Rule : Type -> Type

68+ Rule ty = Grammar (TokenData ExpressionToken) True ty

69+

70+Parser Example

71+--------------

72+

73+On the previous page we implemented a lexer to 'lex' a very simple expression, on

74+this page we will go on to add a parser for this running example.

75+

76+.. list-table::

77+

78+ * - The syntax we are aiming at is something

79+ like this (expressed in Backus–Naur form (BNF)):

80+ - .. code-block:: idris

81+

82+ <expr> ::= <integer literal>

83+ | <expr>'+'<expr>

84+ | <expr>'-'<expr>

85+ | <expr>'*'<expr>

86+ | '('<expr>')'

87+

88+ <integer literal> ::= <digit>|<integer literal><digit>

89+

90+.. list-table::

91+

92+ * - To start, here is a grammar to parse an integer literal (that is, a

93+ sequence of numeric characters).

94+

95+ - .. code-block:: idris

96+

97+ export

98+ intLiteral : Rule Integer

99+ intLiteral

100+ = terminal (\x => case tok x of

101+ Number i => Just i

102+ _ => Nothing)

103+

104+In order to try this out, here is a temporary function, this calls

105+parse which takes two parameters:

106+

107+- The grammar (in this case intLiteral)

108+- The token list from the lexer.

109+

110+.. code-block:: idris

111+

112+ test1 : String -> Either (ParseError (TokenData ExpressionToken))

113+ (Integer, List (TokenData ExpressionToken))

114+ test1 s = parse intLiteral (fst (lex expressionTokens s))

115+

116+As required, if we pass it a string which is a number literal then it will

117+return the number in the 'Right' option.

118+

119+.. code-block:: idris

120+

121+ *parserEx> test1 "123"

122+ Right (123, []) : Either (ParseError (TokenData ExpressionToken))

123+ (Integer, List (TokenData ExpressionToken))

124+

125+If we pass it a string which is not a number literal then it will return an

126+error message.

127+

128+.. code-block:: idris

129+

130+ *parserEx> test1 "a"

131+ Left (Error "End of input"

132+ []) : Either (ParseError (TokenData ExpressionToken))

133+ (Integer, List (TokenData ExpressionToken))

134+

135+If we pass it a number followed by something else, then it will still be

136+successful, this is because we are not specifically checking for end-of-file.

137+

138+.. code-block:: idris

139+

140+ *parserEx> test1 "123a"

141+ Right (123, []) : Either (ParseError (TokenData ExpressionToken))

142+ (Integer, List (TokenData ExpressionToken))

143+ *parserEx>

144+

145+.. list-table::

146+

147+ * - The ``intLiteral`` function above uses the ``terminal`` function to

148+ construct the grammar

149+ - .. code-block:: idris

150+

151+ ||| Succeeds if running the predicate on the

152+ ||| next token returns Just x, returning x.

153+ ||| Otherwise fails.

154+ export

155+ terminal : (tok -> Maybe a) -> Grammar tok True a

156+ terminal = Terminal

157+

158+This is defined here

159+: https://github.com/idris-lang/Idris-dev/blob/master/libs/contrib/Text/Parser/Core.idr

160+Idris 2 uses a slightly different version which stores an error message like

161+"Expected integer literal" which can be output if the rule fails

162+: https://github.com/edwinb/Idris2/blob/master/src/Text/Parser/Core.idr

163+

164+.. list-table::

165+

166+ * - The 'terminal' function is also used to construct the other

167+ elements of the grammar that we require, for instance,

168+ opening parenthesis:

169+

170+ - .. code-block:: idris

171+

172+ openParen : Rule Integer

173+ openParen = terminal (\x => case tok x of

174+ OParen => Just 0

175+ _ => Nothing)

176+

177+Integer value is not really relevant for parenthesis so ``0`` (zero) is used as

178+a default value.

179+

180+As before, this can be tested with a function like this:

181+

182+.. code-block:: idris

183+

184+ test2 : String -> Either (ParseError (TokenData ExpressionToken))

185+ (Integer, List (TokenData ExpressionToken))

186+ test2 s = parse openParen (fst (lex expressionTokens s))

187+

188+We can see below that it correctly parses an open parenthesis and gives an

189+error for anything else:

190+

191+.. code-block:: idris

192+

193+ *parserEx> test2 "("

194+ Right (0, []) : Either (ParseError (TokenData ExpressionToken))

195+ (Integer, List (TokenData ExpressionToken))

196+ *parserEx> test2 "123"

197+ Left (Error "Unrecognised token"

198+ [MkToken 0

199+ 0

200+ (Number 123)]) : Either (ParseError (TokenData ExpressionToken))

201+ (Integer,

202+ List (TokenData ExpressionToken))

203+

204+Now we have two Grammars we can try combining them. The following test looks

205+for ``openParen`` followed by ``intLiteral``, the two Grammars are combined using

206+``<*>``. The ``map const`` part uses the integer value from the first.

207+

208+The following test is looking for ``(`` followed by a number:

209+

210+.. code-block:: idris

211+

212+ test3 : String -> Either (ParseError (TokenData ExpressionToken))

213+ (Integer, List (TokenData ExpressionToken))

214+ test3 s = parse (map const openParen <*> intLiteral) (fst (lex expressionTokens s))

215+

216+We can see below that ``(`` followed by a number is successfully parsed but, as

217+required, other token lists are not:

218+

219+.. code-block:: idris

220+

221+ *parserEx> test3 "(123"

222+ Right (0, []) : Either (ParseError (TokenData ExpressionToken))

223+ (Integer, List (TokenData ExpressionToken))

224+ *parserEx> test3 "(("

225+ Left (Error "Unrecognised token"

226+ [MkToken 0

227+ (case fspan (\ARG => not (intToBool (prim__eqChar ARG '\n')))

228+ "(" of

229+ (incol, "") => c + cast (length incol)

230+ (incol, b) => cast (length incol))

231+ OParen]) : Either (ParseError (TokenData ExpressionToken))

232+ (Integer, List (TokenData ExpressionToken))

233+

234+ *parserEx> test3 "123"

235+ Left (Error "Unrecognised token"

236+ [MkToken 0

237+ 0

238+ (Number 123)]) : Either (ParseError (TokenData ExpressionToken))

239+ (Integer,

240+ List (TokenData ExpressionToken))

241+ *parserEx> test3 "123("

242+ Left (Error "Unrecognised token"

243+ [MkToken 0 0 (Number 123),

244+ MkToken 0

245+ (case fspan (\ARG => not (intToBool (prim__eqChar ARG '\n')))

246+ "321" of

247+ (incol, "") => c + cast (length incol)

248+ (incol, b) => cast (length incol))

249+ OParen]) : Either (ParseError (TokenData ExpressionToken))

250+ (Integer, List (TokenData ExpressionToken))

251+

252+.. list-table::

253+

254+ * - The closing parenthesis is constructed in the same way.

255+

256+ - .. code-block:: idris

257+

258+ closeParen : Rule Integer

259+ closeParen = terminal (\x => case tok x of

260+ CParen => Just 0

261+ _ => Nothing)

262+

263+.. list-table::

264+

265+ * - Now we can generate a Grammar for an expression inside parenthesis

266+ like this.

267+

268+ - .. code-block:: idris

269+

270+ paren : Rule Integer -> Rule Integer

271+ paren exp = openParen *> exp <* closeParen

272+

273+The use of ``*>`` and ``<*`` instead of ``<*>`` is an easy way to use the integer

274+value from the inner expression.

275+

276+So lets try to use this to define a grammar which recognises either:

277+

278+- An integer literal

279+- An integer literal inside parenthesis

280+- An integer literal inside parenthesis inside parenthesis

281+- ... and so on.

282+

283+.. list-table::

284+

285+ * - This requires a recursively defined structure like this:

286+

287+ - .. code-block:: idris

288+

289+ partial

290+ expr : Rule Integer

291+ expr = intLiteral <|> (paren expr)

292+

293+This is a valid grammar because every time it is called it is guaranteed to

294+consume a token. However, as an Idris structure, it is problematic due to

295+the recursion. Defining it as partial allows it to compile but at runtime

296+we are likely to get a crash with an (unhelpful) error message like

297+``killed by signal 11``.

298+

299+So a better method is to use ``do`` notation as described in the following

300+section.

301+

302+Monadic Combinator

303+------------------

304+

305+In addition to ``<|>`` and ``<*>`` there is a ``>>=`` combinator, which is

306+defined like this:

307+

308+.. code-block:: idris

309+

310+ ||| Sequence two grammars. If either consumes some input, the sequence is

311+ ||| guaranteed to consume some input. If the first one consumes input, the

312+ ||| second is allowed to be recursive (because it means some input has been

313+ ||| consumed and therefore the input is smaller)

314+ export %inline

315+ (>>=) : {c1 : Bool} ->

316+ Grammar tok c1 a ->

317+ inf c1 (a -> Grammar tok c2 b) ->

318+ Grammar tok (c1 || c2) b

319+ (>>=) {c1 = False} = SeqEmpty

320+ (>>=) {c1 = True} = SeqEat

321+

322+.. list-table::

323+

324+ * - This allows us to use ``do`` notation for the previous parenthesis example:

325+

326+ - .. code-block:: idris

327+

328+ expr = intLiteral <|> do

329+ openParen

330+ r <- expr

331+ closeParen

332+ pure r

333+

334+This can be more flexible than using the ``<*>`` operator. Also it is defined

335+using ``Inf`` so we can implement recursively defined grammars as above.

336+

337+Implementing the Arithmetic Operators

338+-------------------------------------

339+

340+.. list-table::

341+

342+ * - Now for the operations, in this case: ``+``, ``-`` and ``*``.

343+ The syntax we require for these infix operators

344+ would require recursive grammars like this:

345+

346+ - .. code-block:: idris

347+

348+ expr = expr (op "+") expr

349+

350+As already explained, ``do`` notation can allow us to use recursive

351+definitions but not necessarily left-recursion like this.

352+

353+In order to work up to this gradually lets start with prefix operators

354+(sometimes known as Polish notation) then modify later for infix operators.

355+

356+.. list-table::

357+

358+ * - So prefix operators would have this sort of form:

359+

360+ - .. code-block:: idris

361+

362+ expr = (add (op "+") expr expr)

363+

364+where ``op`` is defined like this:

365+

366+.. code-block:: idris

367+

368+ ||| Matches if this is an operator token and string matches, that is,

369+ ||| it is the required type of operator.

370+ op : String -> Rule Integer

371+ op s = terminal (\x => case tok x of

372+ (Operator s1) => if s==s1 then Just 0 else Nothing

373+ _ => Nothing)

374+

375+.. list-table::

376+

377+ * - and ``add`` is defined like this:

378+

379+ Where:

380+

381+ - x is the add operator.

382+ - y is the first operand.

383+ - z is the second operand.

384+

385+ - .. code-block:: idris

386+

387+ addInt : Integer -> Integer -> Integer

388+ addInt a b = a+b

389+

390+ export

391+ add : Grammar tok c1 Integer ->

392+ Grammar tok c2 Integer ->

393+ Grammar tok c3 Integer ->

394+ Grammar tok ((c1 || c2) || c3) Integer

395+ add x y z = map addInt (x *> y) <*> z

396+

397+

398+

399+The resulting integer will be the sum of the two operands.

400+

401+.. list-table::

402+

403+ * - The other operators are defined in a similar way:

404+

405+ - .. code-block:: idris

406+

407+ subInt : Integer -> Integer -> Integer

408+ subInt a b = a-b

409+

410+ export

411+ sub : Grammar tok c1 Integer ->

412+ Grammar tok c2 Integer ->

413+ Grammar tok c3 Integer ->

414+ Grammar tok ((c1 || c2) || c3) Integer

415+ sub x y z = map subInt (x *> y) <*> z

416+

417+ multInt : Integer -> Integer -> Integer

418+ multInt a b = a*b

419+

420+ export

421+ mult : Grammar tok c1 Integer ->

422+ Grammar tok c2 Integer ->

423+ Grammar tok c3 Integer ->

424+ Grammar tok ((c1 || c2) || c3) Integer

425+ mult x y z = map multInt (x *> y) <*> z

426+

427+So the top level ``Grammar`` can now be defined as follows. Note that this is

428+partial as it is a potentially infinite structure and so not total.

429+

430+.. code-block:: idris

431+

432+ partial

433+ expr : Rule Integer

434+ expr = (add (op "+") expr expr)

435+ <|> (sub (op "-") expr expr)

436+ <|> (mult (op "*") expr expr)

437+ <|> intLiteral <|> (paren expr)

438+

439+.. list-table::

440+

441+ * - To make the testing easier we can use this function:

442+

443+ - .. code-block:: idris

444+

445+ partial

446+ test : String -> Either (ParseError (TokenData ExpressionToken))

447+ (Integer, List (TokenData ExpressionToken))

448+ test s = parse expr (fst (lex expressionTokens s))

449+

450+.. list-table::

451+

452+ * - First test a valid (prefix) expression:

453+

454+ - .. code-block:: idris

455+

456+ *parserEx> test "+1*6(4)"

457+ Right (25,

458+ []) : Either (ParseError (TokenData ExpressionToken))

459+ (Integer, List (TokenData ExpressionToken))

460+

461+Then an invalid syntax:

462+

463+.. code-block:: idris

464+

465+ *parserEx> test "))"

466+ Left (Error "Unrecognised token"

467+ [MkToken 0 0 CParen,

468+ MkToken 0

469+ (case fspan (\ARG =>

470+ not (intToBool (prim__eqChar ARG

471+ '\n')))

472+ ")" of

473+ (incol, "") => c + cast (length incol)

474+ (incol, b) => cast (length incol))

475+ CParen]) : Either (ParseError (TokenData ExpressionToken))

476+ (Integer,

477+ List (TokenData ExpressionToken))

478+

479+However if we try something that is invalid, but starts with a valid token,

480+then it will return ``Right`` (to indicate success)

481+

482+.. code-block:: idris

483+

484+ *parserEx> test "1))"

485+ Right (1,

486+ [MkToken 0

487+ (case fspan (\ARG =>

488+ not (intToBool (prim__eqChar ARG '\n')))

489+ "1" of

490+ (incol, "") => c + cast (length incol)

491+ (incol, b) => cast (length incol))

492+ CParen,

493+ MkToken 0

494+ (case fspan (\ARG =>

495+ not (intToBool (prim__eqChar ARG '\n')))

496+ ")" of

497+ (incol, "") => c + cast (length incol)

498+ (incol, b) => cast (length incol))

499+ CParen]) : Either (ParseError (TokenData ExpressionToken))

500+ (Integer,

501+ List (TokenData ExpressionToken))

502+

503+Infix Notation

504+--------------

505+

506+So far we have implemented a prefix notation for operators (like this:

507+``+ expr expr``) but the aim is to implemented an infix notation (like this:

508+``expr + expr``). To do this we must be able to deal with potentially

509+infinite data structures (see Codata Types here :ref:`sect-typefuns`).

510+

511+First alter the grammar to have infix operations:

512+

513+.. code-block:: idris

514+

515+ addInt : Integer -> Integer -> Integer

516+ addInt a b = a+b

517+

518+ export

519+ add : Grammar tok c1 Integer ->

520+ Grammar tok c2 Integer ->

521+ Grammar tok c3 Integer ->

522+ Grammar tok ((c1 || c2) || c3) Integer

523+ add x y z = map addInt (x <* y) <*> z

524+

525+ subInt : Integer -> Integer -> Integer

526+ subInt a b = a-b

527+

528+ export

529+ sub : Grammar tok c1 Integer ->

530+ Grammar tok c2 Integer ->

531+ Grammar tok c3 Integer ->

532+ Grammar tok ((c1 || c2) || c3) Integer

533+ sub x y z = map subInt (x <* y) <*> z

534+

535+

536+ multInt : Integer -> Integer -> Integer

537+ multInt a b = a*b

538+

539+ export

540+ mult : Grammar tok c1 Integer ->

541+ Grammar tok c2 Integer ->

542+ Grammar tok c3 Integer ->

543+ Grammar tok ((c1 || c2) || c3) Integer

544+ mult x y z = map multInt (x <* y) <*> z

545+

546+ partial

547+ expr : Rule Integer

548+ expr = (add expr (op "+") expr)

549+ <|> (sub expr (op "-") expr)

550+ <|> (mult expr (op "*") expr)

551+ <|> intLiteral <|> (paren expr)

552+

553+However, if this was run, the code would not terminate.

554+

555+Implement Left Recursion Elimination

556+------------------------------------

557+

558+Left factoring, like this, is a general problem.

559+

560+If we have a rule like this:

561+

562+.. code-block:: idris

563+

564+ A -> (x<*>y) <|> (x<*>z)

565+

566+If ``x<*>y`` fails but ``x<*>z`` would succeed a problem is that, ``x<*>y`` has

567+already consumed ``x``, so now ``x<*>z`` will fail.

568+

569+so we could write code to backtrack. That is ``try`` ``x<*>y`` without consuming

570+so that, if the first token succeeds but the following tokens fail, then the

571+first tokens would not be consumed.

572+

573+Another approach is left factoring:

574+

575+Left Factoring

576+--------------

577+

578+Replace the rule with two rules (that is we add a non-terminal symbol) so

579+for example, instead of:

580+

581+.. code-block:: idris

582+

583+ A -> (x<*>y) <|> (x<*>z)

584+

585+we add an extra rule to give:

586+

587+.. code-block:: idris

588+

589+ A -> x<*>N

590+ N -> y <|> z

591+

592+That is we convert a general context-free grammar to a LL(1) grammar. Although

593+not every context-free grammar can be converted to a LL(1) grammar.

594+

595+This still does not solve the infinite recursion issue and there is another

596+problem: the precedence of the operators ``+``, ``-`` and ``*`` is not explicit.

597+

598+.. list-table::

599+

600+ * - To resolve this we can alter the example to have a BNF like this:

601+ Where braces ``{ ... }`` mean the contents can occur 1 or more times.

602+

603+ - .. code-block:: idris

604+

605+ 'expression' ::= ('+'|'-') 'term' {('+'|'-') 'term'}

606+

607+ 'term' ::= 'factor' {'*' 'factor'}

608+

609+ 'factor' ::=

610+ number

611+ | '(' 'expression' ')'

612+

613+

614+.. code-block:: idris

615+

616+ expr : Rule Integer

617+

618+ factor : Rule Integer

619+ factor = intLiteral <|> do

620+ openParen

621+ r <- expr

622+ closeParen

623+ pure r

624+

625+ term : Rule Integer

626+ term = map multInt factor <*> (

627+ (op "*")

628+ *> factor)

629+ <|> factor

630+

631+ expr = map addInt term <*> (

632+ (op "+")

633+ *> term)

634+ <|> map subInt term <*> (

635+ (op "-")

636+ *> term)

637+ <|> term

638+

639+ calc : String -> Either (ParseError (TokenData ExpressionToken))

640+ (Integer, List (TokenData ExpressionToken))

641+ calc s = parse expr (fst (lex expressionTokens s))

642+

643+ lft : (ParseError (TokenData ExpressionToken)) -> IO ()

644+ lft (Error s lst) = putStrLn ("error:"++s)

645+

646+ rht : (Integer, List (TokenData ExpressionToken)) -> IO ()

647+ rht i = putStrLn ("right " ++ (show i))

648+

649+ main : IO ()

650+ main = do

651+ putStr "alg>"

652+ x <- getLine

653+ either lft rht (calc x) -- eliminator for Either

654+

655+As the following tests show, this now handles infix operators and precedence.

656+

657+.. list-table::

658+

659+ * - For example '*' is an infix operator:

660+

661+ - .. code-block:: idris

662+

663+ *algebraREPL> :exec

664+ alg>2*3

665+ right (6, [])

666+

667+ * - Check that atomic number literals work:

668+

669+ - .. code-block:: idris

670+

671+ *algebraREPL> :exec

672+ alg>2

673+ right (2, [])

674+

675+ * - Check that '*' has a higher precedence than '+'.

676+

677+ - .. code-block:: idris

678+

679+ *algebraREPL> :exec

680+ alg>2+3*4

681+ right (14, [])

682+

683+ * - Also '*' has a higher precedence than '+' when the order is reversed.

684+

685+ - .. code-block:: idris

686+

687+ *algebraREPL> :exec

688+ alg>3*4+2

689+ right (14, [])

690+

691+ * - Also precedence can be overridden by parenthesis.

692+

693+ - .. code-block:: idris

694+

695+ *algebraREPL> :exec

696+ alg>(2+3)*4

697+ right (20, [])

698+

699+This is still not correct because it does not correctly parse multiple sums or terms

700+like ``1+2+3`` or ``1*2*3``.

docs/parserLibrary/whitespace.rstnew file+250

@@ -0,0 +1,250 @@

1+.. _parserLibraryWhitespace:

2+

3+Whitespace and Comments

4+=======================

5+

6+The previous two pages introduced the lexer and parser but have not yet

7+discussed how to handle whitespace and comments.

8+

9+In some grammars whitespace and comments would not be considered significant and

10+so we might be tempted not to generate any tokens for them. However, in the

11+running example, we may want to make spaces significant in the future. For

12+example, we might want to implement function application expressed by

13+juxtaposition as in Haskell and Idris like this: ``f x``.

14+

15+So, on this page, we will add a token for whitespace and comments. We will

16+then consider two ways to process this:

17+

18+- Filter all whitespace tokens from the lexer results before passing to

19+ the parser.

20+- Process the whitespace tokens in the parser.

21+

22+Whitespace and Comments in Lexer

23+--------------------------------

24+

25+To start with we can use the same token for both whitespace and comments. Here

26+it is called ``Comment`` and added to the ``ExpressionToken`` data structure

27+like this:

28+

29+.. code-block:: idris

30+

31+ public export

32+ data ExpressionToken = Number Integer

33+ | Operator String

34+ | OParen

35+ | CParen

36+ | Comment String

37+ | EndInput

38+

39+This is added to the ``TokenMap`` like this:

40+

41+.. code-block:: idris

42+

43+ ||| from https://github.com/edwinb/Idris2/blob/master/src/Parser/Lexer.idr

44+ comment : Lexer

45+ comment = is '-' <+> is '-' <+> many (isNot '\n')

46+

47+ expressionTokens : TokenMap ExpressionToken

48+ expressionTokens =

49+ [(digits, \x => Number (toInt' x)),

50+ (operator, \x => Operator x),

51+ (is '(' ,\x => OParen),

52+ (is ')' ,\x => CParen),

53+ (spaces, Comment),

54+ (comment, Comment)]

55+

56+As you can see, the comment is defined like a single line Idris comment,

57+it starts with ``--`` and continues for the remainder of the line.

58+

59+We don't need to define ``spaces`` because it is already defined in

60+: https://github.com/idris-lang/Idris-dev/blob/master/libs/contrib/Text/Lexer.idr

61+like this:

62+

63+.. code-block:: idris

64+

65+ ||| Recognise a single whitespace character

66+ ||| /\\s/

67+ space : Lexer

68+ space = pred isSpace

69+

70+ ||| Recognise one or more whitespace characters

71+ ||| /\\s+/

72+ spaces : Lexer

73+ spaces = some space

74+

75+If these whitespace tokens are not significant, that is, they can appear

76+anywhere and they are optional then we can filter them out before the parser

77+gets them like this:

78+

79+.. code-block:: idris

80+

81+ processWhitespace : (List (TokenData ExpressionToken), Int, Int, String)

82+ -> (List (TokenData ExpressionToken), Int, Int, String)

83+ processWhitespace (x,l,c,s) = ((filter notComment x),l,c,s) where

84+ notComment : TokenData ExpressionToken -> Bool

85+ notComment t = case tok t of

86+ Comment _ => False

87+ _ => True

88+

89+ calc : String -> Either (ParseError (TokenData ExpressionToken))

90+ (Integer, List (TokenData ExpressionToken))

91+ calc s = parse expr (fst (processWhitespace (lex expressionTokens s)))

92+

93+

94+Whitespace and Comments in Parser

95+---------------------------------

96+

97+If we sometimes require whitespace to be significant then we can't filter

98+them out as above. In this case the ``Comment`` tokens are sent to the parser

99+which now needs to be able to handle them.

100+

101+.. code-block:: idris

102+

103+ commentSpace : Rule Integer

104+ commentSpace = terminal (\x => case tok x of

105+ Comment s => Just 0

106+ _ => Nothing)

107+

108+So far we don't have any syntax that requires spaces to be significant so we

109+need to define the grammar so that it will parse with, or without, spaces.

110+This needs to be done in a systematic way, here I have defined the grammar so

111+that there is an optional space to the right of every atom or operator.

112+First add versions of ``intLiteral`` , ``openParen`` , ``closeParen``

113+and ``op`` that allow optional spaces/comments to the right of them:

114+

115+.. code-block:: idris

116+

117+ intLiteralC : Rule Integer

118+ intLiteralC = (intLiteral <* commentSpace) <|> intLiteral

119+

120+ openParenC : Rule Integer

121+ openParenC = (openParen <* commentSpace) <|> openParen

122+

123+ closeParenC : Rule Integer

124+ closeParenC = (closeParen <* commentSpace) <|> closeParen

125+

126+ ||| like op but followed by optional comment or space

127+ opC : String -> Rule Integer

128+ opC s = ((op s) <* commentSpace) <|> (op s)

129+

130+Then just use these functions instead of the original functions:

131+

132+.. code-block:: idris

133+

134+ expr : Rule Integer

135+

136+ factor : Rule Integer

137+ factor = intLiteralC <|> do

138+ openParenC

139+ r <- expr

140+ closeParenC

141+ pure r

142+

143+ term : Rule Integer

144+ term = map multInt factor <*> (

145+ (opC "*")

146+ *> factor)

147+ <|> factor

148+

149+ expr = map addInt term <*> (

150+ (opC "+")

151+ *> term)

152+ <|> map subInt term <*> (

153+ (opC "-")

154+ *> term)

155+ <|> term

156+

157+ calc : String -> Either (ParseError (TokenData ExpressionToken))

158+ (Integer, List (TokenData ExpressionToken))

159+ calc s = parse expr (fst (lex expressionTokens s))

160+

161+ lft : (ParseError (TokenData ExpressionToken)) -> IO ()

162+ lft (Error s lst) = putStrLn ("error:"++s)

163+

164+ rht : (Integer, List (TokenData ExpressionToken)) -> IO ()

165+ rht i = putStrLn ("right " ++ (show i))

166+

167+ main : IO ()

168+ main = do

169+ putStr "alg>"

170+ x <- getLine

171+ either lft rht (calc x) -- eliminator for Either

172+

173+

174+Defining Block Structure using Indents

175+--------------------------------------

176+

177+Many languages such as Python, Haskell and Idris use indents to delimit

178+the block structure of the language.

179+

180+We can see how Idris2 does it here

181+: https://github.com/edwinb/Idris2/blob/master/src/Parser/Support.idr

182+

183+.. code-block:: idris

184+

185+ export

186+ IndentInfo : Type

187+ IndentInfo = Int

188+

189+ export

190+ init : IndentInfo

191+ init = 0

192+

193+EndInput Token

194+--------------

195+

196+So far, the parser will return a successful result even if the full input

197+is not consumed. To ensure that the top level syntax is fully matched we

198+add a ``EndInput`` token to indicate the last token.

199+

200+``EndInput`` is added to the other tokens like this:

201+

202+.. code-block:: idris

203+

204+ data ExpressionToken = Number Integer

205+ | Operator String

206+ | OParen

207+ | CParen

208+ | Comment String

209+ | EndInput

210+

211+A rule to consume this token is added:

212+

213+.. code-block:: idris

214+

215+ eoi : Rule Integer

216+ eoi = terminal (\x => case tok x of

217+ EndInput => Just 0

218+ _ => Nothing)

219+

220+Instead of using ``expr`` at the top level of the syntax we can now define

221+``exprFull`` as shown here. This will make sure that only when ``EndInput``

222+is consumed will the parse be successful:

223+

224+.. code-block:: idris

225+

226+ exprFull : Rule Integer

227+ exprFull = expr <* eoi

228+

229+The following code makes sure ``EndInput`` is added to the end of the token

230+list:

231+

232+.. code-block:: idris

233+

234+ processWhitespace : (List (TokenData ExpressionToken), Int, Int, String)

235+ -> (List (TokenData ExpressionToken), Int, Int, String)

236+ processWhitespace (x,l,c,s) = ((filter notComment x)++

237+ [MkToken l c EndInput],l,c,s) where

238+ notComment : TokenData ExpressionToken -> Bool

239+ notComment t = case tok t of

240+ Comment _ => False

241+ _ => True

242+

243+All we have to do now is use ``exprFull`` instead of ``expr``:

244+

245+.. code-block:: idris

246+

247+ calc : String -> Either (ParseError (TokenData ExpressionToken))

248+ (Integer, List (TokenData ExpressionToken))

249+ calc s = parse exprFull (fst (processWhitespace (lex expressionTokens s)))

250+

docs/proofs/definitional.rstnew file+235

@@ -0,0 +1,235 @@

1+*******************

2+Background Material

3+*******************

4+

5+In order to understand how to write proofs in Idris I think its worth clarifying some fundamentals, such as,

6+

7+- Propositions and judgments

8+- Boolean and constructive logic

9+- Curry-Howard correspondence

10+- Definitional and propositional equalities

11+- Axiomatic and constructive approaches

12+

13+Propositions and Judgments

14+==========================

15+

16+Propositions are the subject of our proofs, before the proof then we can't formally say if they are true or not. If the proof is successful then the result is a 'judgment'.

17+For instance, if the ``proposition`` is,

18+

19++-------+

20+| 1+1=2 |

21++-------+

22+

23+When we prove it, the ``judgment`` is,

24+

25++------------+

26+| 1+1=2 true |

27++------------+

28+

29+Or if the ``proposition`` is,

30+

31++-------+

32+| 1+1=3 |

33++-------+

34+

35+Obviously we can't prove it is true, but it is still a valid proposition and perhaps we can prove it is false so the ``judgment`` is,

36+

37++-------------+

38+| 1+1=3 false |

39++-------------+

40+

41+This may seem a bit pedantic but it is important to be careful, in mathematics not every proposition is true or false for instance, a proposition may be unproven or even unprovable.

42+

43+So the logic here is different from the logic that comes from boolean algebra. In that case what is not true is false and what is not false is true. The logic we are using here does not have this 'law of excluded middle' so we have to be careful not to use it.

44+

45+A false proposition is taken to be a contradiction and if we have a contradiction then we can prove anything, so we need to avoid this. Some languages, used in proof assistants, prevent contradictions but such languages cannot be Turing complete, so Idris does not prevent contradictions.

46+

47+The logic we are using is called constructive (or sometimes intuitional) because we are constructing a 'database' of judgments.

48+

49+There are also many other types of logic, another important type of logic for Idris programmers is '``linear logic``' but that's not discussed on this page.

50+

51+Curry-Howard correspondence

52+===========================

53+

54+So how to we relate these proofs to Idris programs? It turns out that there is a correspondence between constructive logic and type theory. They are the same structure and we can switch backward and forward between the two notations because they are the same thing.

55+

56+The way that this works is that a proposition is a type so this,

57+

58+.. code-block:: idris

59+

60+ Idris> 1+1=2

61+ 2 = 2 : Type

62+

63+is a proposition and it is also a type. This is built into Idris so when an '=' equals sign appears in a function type an equality type is generated. The following will also produce an equality type:

64+

65+

66+.. code-block:: idris

67+

68+ Idris> 1+1=3

69+ 2 = 3 : Type

70+

71+Both of these are valid propositions so both are valid equality types. But how do we represent true judgment, that is, how do we denote 1+1=2 is true but not 1+1=3.

72+A type that is true is inhabited, that is, it can be constructed. An equality type has only one constructor 'Refl' so a proof of 1+1=2 is

73+

74+.. code-block:: idris

75+

76+ onePlusOne : 1+1=2

77+ onePlusOne = Refl

78+

79+So how can Refl, which is a constructor without any parameters, construct an equality type? If we type it on its own then it can't:

80+

81+.. code-block:: idris

82+

83+ Idris> Refl

84+ (input):Can't infer argument A to Refl, Can't infer argument x to Refl

85+

86+So it must pattern match on its return type:

87+

88+.. code-block:: idris

89+

90+ Idris> the (1=1) Refl

91+ Refl : 1 = 1

92+

93+So now that we can represent propositions as types other aspects of propositional logic can also be translated to types as follows:

94+

95++----------+-------------------+--------------------------+

96+| | propositions | example of possible type |

97++----------+-------------------+--------------------------+

98+| A | x=y | |

99++----------+-------------------+--------------------------+

100+| B | y=z | |

101++----------+-------------------+--------------------------+

102+| and | A /\\ B | ``Pair(x=y,y=z)`` |

103++----------+-------------------+--------------------------+

104+| or | A \\/ B | ``Either(x=y,y=z)`` |

105++----------+-------------------+--------------------------+

106+| implies | A -> B | ``(x=y) -> (y=x)`` |

107++----------+-------------------+--------------------------+

108+| for all | y=z | |

109++----------+-------------------+--------------------------+

110+| exists | y=z | |

111++----------+-------------------+--------------------------+

112+

113+

114+And (conjunction)

115+-----------------

116+

117+We can have a type which corresponds to conjunction:

118+

119+.. code-block:: idris

120+

121+ AndIntro : a -> b -> A a b

122+

123+There is a built in type called 'Pair'.

124+

125+Or (disjunction)

126+----------------

127+

128+We can have a type which corresponds to disjunction:

129+

130+.. code-block:: idris

131+

132+ data Or : Type -> Type -> Type where

133+ OrIntroLeft : a -> A a b

134+ OrIntroRight : b -> A a b

135+

136+There is a built in type called 'Either'.

137+

138+Definitional and Propositional Equalities

139+=========================================

140+

141+We have seen that we can 'prove' a type by finding a way to construct a term. In the case of equality types there is only one constructor which is 'Refl'.

142+We have also seen that each side of the equation does not have to be identical like '2=2'. It is enough that both sides are ``definitionaly equal`` like this:

143+

144+.. code-block:: idris

145+

146+ onePlusOne : 1+1=2

147+ onePlusOne = Refl

148+

149+So both sides of this equation nomalise to 2 and so Refl will type match and the proposition is proved.

150+

151+We don't have to stick to terms, can also use symbolic parameters so the following will compile:

152+

153+.. code-block:: idris

154+

155+ varIdentity : m = m

156+ varIdentity = Refl

157+

158+If a proposition/equality type is not definitionaly equal but is still true then it is ``propositionaly equal``. In this case we may still be able to prove it but some steps in the proof may require us to add something into the terms or at least to take some sideways steps to get to a proof.

159+

160+Especially when working with equalities containing variable terms (inside functions) it can be hard to know which equality types are definitially equal, in this example plusReducesL is '``definitially equal``' but plusReducesR is not (although it is '``propositionaly equal``'). The only difference between them is the order of the operands.

161+

162+.. code-block:: idris

163+

164+ plusReducesL : (n:Nat) -> plus Z n = n

165+ plusReducesL n = Refl

166+

167+ plusReducesR : (n:Nat) -> plus n Z = n

168+ plusReducesR n = Refl

169+

170+plusReducesR gives the following error:

171+

172+

173+.. code-block:: idris

174+

175+ - + Errors (1)

176+ `-- proof.idr line 6 col 17:

177+ When checking right hand side of plusReducesR with expected type

178+ plus n 0 = n

179+

180+ Type mismatch between

181+ n = n (Type of Refl)

182+ and

183+ plus n 0 = n (Expected type)

184+

185+ Specifically:

186+ Type mismatch between

187+ n

188+ and

189+ plus n 0

190+

191+So why is 'Refl' able to prove some equality types but not others?

192+

193+The first answer is that 'plus' is defined in such a way that it splits on its first argument so it is simple to prove when 0 is the first argument but not the second. So what is the general way to know if Refl will work?

194+

195+If an equality type can be proved/constructed by using Refl alone it is known as a ``definitional equality``. In order to be definitinally equal both sides of the equation must normalise to unique values. That is, each step in the proof must reduce the term so each step is effectively forced.

196+

197+So when we type 1+1 in Idris it is immediately converted to 2 because definitional equality is built in.

198+

199+.. code-block:: idris

200+

201+ Idris> 1+1

202+ 2 : Integer

203+

204+In the following pages we discuss how to resolve propositionaly equalies.

205+

206+Axiomatic and Constructive Approaches

207+=====================================

208+

209+How should we define types so that we can do proofs on them? In the natural numbers with the plus example we could have started by treating it as a group based on the plus operator. So we have axioms:

210+

211+- for all x,y : ``x+y=y+x``

212+- for all x: ``x + 0 = x = 0 + x``

213+- for all x,y,z: ``(x + y) + z = x + (x + z)``

214+

215+Then we can implement '+' so that it respects these axioms (presumably implemented in hardware).

216+

217+These are axioms, that is a propositions/types that are asserted to be true without proof. In Idris we can use the 'postulate' keyword

218+

219+

220+.. code-block:: idris

221+

222+ postulate commutePlus: (x:Nat) -> (y:Nat) -> plus x y = plus y x

223+

224+Alternatively we could define the natural numbers based on Zero and Successor. The axioms above then become derived rules and we also gain the ability to do inductive proofs.

225+

226+As we know, Idris uses both of these approaches with automatic coercion between them which gives the best of both worlds.

227+

228+So what can we learn from this to implement our own types:

229+

230+- Should we try to implement both approaches?

231+- Should we define our types by constructing up from primitive types?

232+

233+Proof theory affects these design decisions.

234+

235+

docs/proofs/index.rst+5−2

@@ -4,7 +4,7 @@

4Theorem Proving

5###############

6

7−A tutorial on theorem proving in Idris.

7+A tutorial on theorem proving in Idris.

8

9.. note::

10

@@ -13,13 +13,16 @@ A tutorial on theorem proving in Idris.

13 Idris Community* has waived all copyright and related or neighboring

14 rights to Documentation for Idris.

15

16− More information concerning the CC0 can be found online at: http://creativecommons.org/publicdomain/zero/1.0/

16+ More information concerning the CC0 can be found online at: https://creativecommons.org/publicdomain/zero/1.0/

17

18.. toctree::

19 :maxdepth: 1

20

21+ definitional

21 pluscomm

22 pluscomm

22 inductive

23 inductive

23 patterns

24 patterns

25+ propositional

24 interactive

26 interactive

27+ interactiveOld

25

28

docs/proofs/interactive.rst+224−97

@@ -1,15 +1,102 @@

1−***************************************

1+***************************

2−DEPRECATED: Interactive Theorem Proving

2+Interactive Theorem Proving

3−***************************************

3+***************************

4

5−.. warning::

6− The interactive theorem-proving interface documented here has been

5+Idris supports interactive theorem proving via elaborator reflection.

7− deprecated in favor of :ref:`elaborator-reflection`.

8

6

9−Idris also supports interactive theorem proving via tactics. This

7+:ref:`elaborator-reflection` is also used to convert high-level Idris code into

10−is generally not recommended to be used directly, but rather used as a

8+the core language and for customising the language. Here we show how to use it

11−mechanism for building proof automation which is beyond the scope of this

9+to interactively construct proofs.

12−tutorial. In this section, we briefly discus tactics.

10+

11+The primary purpose of the elaboration mechanism is to elaborate Idris and so it

12+is not optimised to work as a proof assistant, however it can interactively

13+construct proofs as described on this page.

14+

15+Elab and Pruviloj Libraries

16+===========================

17+

18+Elaborator reflection is defined in ``prelude/Language/Reflection/Elab.idr``

19+and ``pruviloj`` is defined in ``Idris-dev/libs/pruviloj/``.

20+

21+``Elab`` defines the basics such as: ``solve``, ``attack``, ``intro``, ``compute``,

22+``rewriteWith`` and others.

23+``pruviloj`` defines some more advanced derived commands such as:

24+``reflexivity`` and others.

25+

26+To use ``pruviloj`` call Idris with the ``-p pruviloj`` option and add:

27+

28+.. code-block:: idris

29+

30+ import Pruviloj

31+ import Pruviloj.Induction

32+

33+to the top of your file.

34+

35+It is useful to get the docs at the REPL by using the ``:doc`` command, and

36+search the docstrings using ``:apropos``. So to introduce the functions from

37+``Elab`` and ``Pruviloj``, that we will need for the following example, here are

38+their docstrings:

39+

40+.. code-block:: idris

41+

42+ *plusReducesZ> :doc solve

43+ Language.Reflection.Elab.Tactics.solve : Elab ()

44+ Substitute a guess into a hole.

45+

46+.. code-block:: idris

47+

48+ *plusReducesZ> :doc attack

49+ Language.Reflection.Elab.Tactics.attack : Elab ()

50+ Convert a hole to make it suitable for bindings - that is, transform

51+ it such that it has the form ?h : t . h as opposed to ?h : t . f h.

52+

53+ The binding tactics require that a hole be directly under its binding,

54+ or else the scopes of the generated terms won't make sense. This

55+ tactic creates a new hole of the proper form, and points the old hole

56+ at it.

57+

58+.. code-block:: idris

59+

60+ *plusReducesZ> :doc intro

61+ Language.Reflection.Elab.Tactics.intro : (n : TTName) -> Elab ()

62+ Introduce a lambda binding around the current hole and focus on the

63+ body. Requires that the hole be in binding form (use attack).

64+ Arguments:

65+ n : TTName -- the name to use for the argument

66+

67+.. code-block:: idris

68+

69+ *plusReducesZ> :doc compute

70+ Language.Reflection.Elab.Tactics.compute : Elab ()

71+ Normalise the goal.

72+

73+.. code-block:: idris

74+

75+ *plusReducesZ> :doc rewriteWith

76+ Language.Reflection.Elab.Tactics.rewriteWith : Raw -> Elab ()

77+ Attempt to rewrite the goal using an equality.

78+

79+ The tactic searches the goal for applicable subterms, and constructs a

80+ context for replace using them. In some cases, this is not possible,

81+ and replace must be called manually with an appropriate context.

82+

83+ Because this tactic internally introduces a let binding, it requires

84+ that the hole be immediately under its binder (use attack if it might

85+ not be).

86+

87+Here is the command from ``pruviloj`` that we will need for the example on

88+this page:

89+

90+.. code-block:: idris

91+

92+ *plusReducesZ> :doc reflexivity

93+ Pruviloj.Core.reflexivity : Elab ()

94+ A special-purpose tactic that attempts to solve a goal using Refl.

95+ This is useful for ensuring that goals in fact are trivial when

96+ developing or testing other tactics; otherwise, consider using search.

97+

98+Interactive Example: plusReduces

99+================================

13

100

14One way to write proofs interactively is to write the general *structure* of

101One way to write proofs interactively is to write the general *structure* of

15the proof, and use the interactive mode to complete the details.

102the proof, and use the interactive mode to complete the details.

@@ -25,145 +112,185 @@ hypothesis, and insert *holes* for the rest of the definition:

25

112

26.. code-block:: idris

113.. code-block:: idris

27

114

115+ import Pruviloj

116+ import Pruviloj.Induction

117+

28 plusReducesZ' : (n:Nat) -> n = plus n Z

118 plusReducesZ' : (n:Nat) -> n = plus n Z

29 plusReducesZ' Z = ?plusredZ_Z

119 plusReducesZ' Z = ?plusredZ_Z

30 plusReducesZ' (S k) = let ih = plusReducesZ' k in

120 plusReducesZ' (S k) = let ih = plusReducesZ' k in

31 ?plusredZ_S

121 ?plusredZ_S

32

122

33On running , two global names are created, ``plusredZ_Z`` and

123On running , two global names are created, ``plusredZ_Z`` and

34−``plusredZ_S``, with no definition. We can use the ``:m`` command at the

124+``plusredZ_S``, with no definition.

35−prompt to find out which holes are still to be solved (or, more

36−precisely, which functions exist but have no definitions), then the

37−``:t`` command to see their types:

38

125

39.. code-block:: idris

126.. code-block:: idris

40

127

41− *theorems> :m

128+ *theorems> : idris plusReducesZ.idr -p pruviloj

42− Global holes:

43− [plusredZ_S,plusredZ_Z]

44

129

45−.. code-block:: idris

130+ . / _/___/ /____(_)____

131+ / // __ / ___/ / ___/ Version 1.2.0

132+ _/ // /_/ / / / (__ ) https://www.idris-lang.org/

133+ /___/\__,_/_/ /_/____/ Type :? for help

46

134

47− *theorems> :t plusredZ_Z

135+ Idris is free software with ABSOLUTELY NO WARRANTY.

48− plusredZ_Z : Z = plus Z Z

136+ For details type :warranty.

137+ Holes: Main.plusredZ_S, Main.plusredZ_Z

49

138

50− *theorems> :t plusredZ_S

139+This tells us that we have two holes ``Main.plusredZ_S`` and ``Main.plusredZ_Z``. We can solve

51− plusredZ_S : (k : Nat) -> (k = plus k Z) -> S k = plus (S k) Z

140+these separately, ``plusredZ_Z`` is the simplest so we will do that first.

52

141

53−The ``:p`` command enters interactive proof mode, which can be used to

142+The ``:elab plusredZ_Z`` command enters interactive elaboration mode, which can be used to

54−complete the missing definitions.

143+complete the missing definition for ``plusredZ_Z``.

55

144

56.. code-block:: idris

145.. code-block:: idris

57

146

58− *theorems> :p plusredZ_Z

147+ *plusReducesZ> :elab plusredZ_Z

59

148

60− ---------------------------------- (plusredZ_Z) --------

149+ ---------- Goal: ----------

61− {hole0} : Z = plus Z Z

150+ {hole_0} : 0 = 0

62

151

63−This gives us a list of premises (above the line; there are none here)

152+This has been normalised to ``0 = 0`` so now we have to prove that ``0`` equals ``0``, which

64−and the current goal (below the line; named ``{hole0}`` here). At the

153+is easy to prove by ``reflexivity`` from the ``pruviloj`` library:

65−prompt we can enter tactics to direct the construction of the proof. In

66−this case, we can normalise the goal with the ``compute`` tactic:

67

154

68.. code-block:: idris

155.. code-block:: idris

69

156

70− -plusredZ_Z> compute

157+ -Main.plusredZ_Z> reflexivity

71−

72− ---------------------------------- (plusredZ_Z) --------

158+ plusredZ_Z: No more goals.

73− {hole0} : Z = Z

74

159

75−Now we have to prove that ``Z`` equals ``Z``, which is easy to prove by

160+This tells us that the proof is complete. We can now leave the interactive mode which

76−``Refl``. To apply a function, such as ``Refl``, we use ``refine`` which

161+we entered with the ``:elab`` command. We do this with the ``:qed`` command:

77−introduces subgoals for each of the function’s explicit arguments

78−(``Refl`` has none):

79

162

80.. code-block:: idris

163.. code-block:: idris

81

164

82− -plusredZ_Z> refine Refl

165+ -Main.plusredZ_Z> :qed

83− plusredZ_Z: no more goals

166+ Proof completed!

167+ Main.plusredZ_Z = %runElab (do reflexivity)

168+ Holes: Main.plusredZ_S

84

169

85−Here, we could also have used the ``trivial`` tactic, which tries to

170+This gives us a trace of the proof which is ``plusredZ_Z = %runElab (do reflexivity)``. We

86−refine by ``Refl``, and if that fails, tries to refine by each name in

171+can cut & paste this into the hole in the original file. This also tells us that we

87−the local context. When a proof is complete, we use the ``qed`` tactic

172+have another hole ``Main.plusredZ_S`` remaining.

88−to add the proof to the global context, and remove the hole from the

89−unsolved holes list. This also outputs a trace of the proof:

90

173

91−.. code-block:: idris

174+This remaining proof is bit more complicated, the following diagram gives an overview:

92−

93− -plusredZ_Z> qed

94− plusredZ_Z = proof

95− compute

96− refine Refl

97−

98−.. code-block:: idris

99

175

100− *theorems> :m

176+|image|

101− Global holes:

102− [plusredZ_S]

103

177

104−The ``:addproof`` command, at the interactive prompt, will add the proof

178+We approach this remaining proof in the same way by using the ``:elab`` command:

105−to the source file (effectively in an appendix). Let us now prove the

106−other required lemma, ``plusredZ_S``:

107

179

108.. code-block:: idris

180.. code-block:: idris

109

181

110− *theorems> :p plusredZ_S

182+ *plusReducesZ> :elab plusredZ_S

111

183

112− ---------------------------------- (plusredZ_S) --------

184+

185+ ---------- Goal: ----------

113− {hole0} : (k : Nat) -> (k = plus k Z) -> S k = plus (S k) Z

186+ {hole_0} : (k : Nat) -> (k = plus k 0) -> S k = S (plus k 0)

114

187

115In this case, the goal is a function type, using ``k`` (the argument

188In this case, the goal is a function type, using ``k`` (the argument

116accessible by pattern matching) and ``ih`` — the local variable

189accessible by pattern matching) and ``ih`` — the local variable

117containing the result of the recursive call. We can introduce these as

190containing the result of the recursive call. We can introduce these as

118−premises using the ``intro`` tactic twice (or ``intros``, which

191+assumptions using the ``intro`` tactic twice. The parameter is entered as

119−introduces all arguments as premises). This gives:

192+a constant of type ``TTName`` which is entered as a backtick with double

193+braces ```{{ih}}``. This gives:

194+

195+.. code-block:: idris

196+

197+ -Main.plusredZ_S> intro `{{k}}

198+

199+ ---------- Assumptions: ----------

200+ k : Nat

201+ ---------- Goal: ----------

202+ {hole_0} : (k = plus k 0) -> S k = S (plus k 0)

203+ -Main.plusredZ_S> intro `{{ih}}

204+

205+ ---------- Assumptions: ----------

206+ k : Nat

207+ ih : k = plus k 0

208+ ---------- Goal: ----------

209+ {hole_0} : S k = S (plus k 0)

210+

211+We know, from the type of ``ih``, that ``k = plus k 0``, so we would

212+like to use this knowledge to replace ``plus k 0`` in the goal with

213+``k``. We can achieve this with the ``rewriteWith`` tactic:

120

214

121.. code-block:: idris

215.. code-block:: idris

122

216

123− k : Nat

217+ -Main.plusredZ_S> rewriteWith (Var `{{ih}})

124− ih : k = plus k Z

125− ---------------------------------- (plusredZ_S) --------

126− {hole2} : S k = plus (S k) Z

127

218

128−Since plus is defined by recursion on its first argument, the term

219+ ---------- Assumptions: ----------

129−``plus (S k) Z`` in the goal can be simplified, so we use ``compute``.

220+ k : Nat

221+ ih : k = plus k 0

222+ ---------- Goal: ----------

223+ {hole_0} : S k = S k

224+

225+The ``rewriteWith`` tactic takes an equality proof as an argument, and tries

226+to rewrite the goal using that proof. The ``ih`` value is entered as a constant

227+of type ``TTName`` which is entered as a backtick with double braces ```{{ih}}`` but

228+``rewriteWith`` requires an expression of type ``Raw``, rather than just a name,

229+so the ``Var`` constructor is used to make a variable. Here, it results in an equality

230+which is trivially provable using ``reflexivity``:

130

231

131.. code-block:: idris

232.. code-block:: idris

132

233

133− k : Nat

234+ -Main.plusredZ_S> reflexivity

134− ih : k = plus k Z

235+ plusredZ_S: No more goals.

135− ---------------------------------- (plusredZ_S) --------

236+ -Main.plusredZ_S> :qed

136− {hole2} : S k = S (plus k Z)

237+ Proof completed!

238+ Main.plusredZ_S = %runElab (do intro `{{k}}

239+ intro `{{ih}}

240+ rewriteWith (Var `{{ih}})

241+ reflexivity)

137

242

138−We know, from the type of ``ih``, that ``k = plus k Z``, so we would

243+We can't just cut & paste this into the hole in the original file like this:

139−like to use this knowledge to replace ``plus k Z`` in the goal with

140−``k``. We can achieve this with the ``rewrite`` tactic:

141

244

142.. code-block:: idris

245.. code-block:: idris

143

246

144− -plusredZ_S> rewrite ih

247+ import Pruviloj

248+ import Pruviloj.Induction

249+

250+ %language ElabReflection

251+

252+ plusReducesZ' : (n:Nat) -> n = plus n Z

253+ plusReducesZ' Z = %runElab (do reflexivity)

254+ plusReducesZ' (S k) = let ih = plusReducesZ' k in

255+ (%runElab (do intro `{{k}}

256+ intro `{{ih}}

257+ rewriteWith (Var `{{ih}})

258+ reflexivity)

259+ )

145

260

146− k : Nat

261+because this gives the following error:

147− ih : k = plus k Z

148− ---------------------------------- (plusredZ_S) --------

149− {hole3} : S k = S k

150

262

151− -plusredZ_S>

263+.. code-block:: idris

264+

265+ Idris> :load elabInteractiveEx2.idr

266+ elabInteractiveEx2.idr:10:32:

267+ |

268+ 10 | intro `{{ih}}

269+ | ^

270+ unexpected "in"

271+ expecting dependent type signature

152

272

153−The ``rewrite`` tactic takes an equality proof as an argument, and tries

273+However if we put the proof into a separate function like this:

154−to rewrite the goal using that proof. Here, it results in an equality

155−which is trivially provable:

156

274

157.. code-block:: idris

275.. code-block:: idris

158

276

159− -plusredZ_S> trivial

277+ import Pruviloj

160− plusredZ_S: no more goals

278+ import Pruviloj.Induction

279+

280+ %language ElabReflection

281+

282+ plusredZ_S : (k : Nat) -> (ih:(k = plus k Z)) -> (S k = S (plus k Z))

161− -plusredZ_S> qed

283+ plusredZ_S = %runElab (do intro `{{k}}

162− plusredZ_S = proof {

284+ intro `{{ih}}

163− intros;

285+ rewriteWith (Var `{{ih}})

164− rewrite ih;

286+ reflexivity)

165− trivial;

287+

166− }

288+ plusReducesZ' : (n:Nat) -> n = plus n Z

289+ plusReducesZ' Z = %runElab (do reflexivity)

290+ plusReducesZ' (S k) = let ih = plusReducesZ' k in plusredZ_S k ih

291+

292+This then loads [#f1]_ .

293+

294+.. [#f1] https://github.com/idris-lang/Idris-dev/issues/4556

167

295

168−Again, we can add this proof to the end of our source file using the

296+.. |image| image:: ../image/plusReducesProof.png

169−``:addproof`` command at the interactive prompt.

docs/proofs/interactiveOld.rstnew file+169

@@ -0,0 +1,169 @@

1+**************************************************************

2+DEPRECATED: Interactive Theorem Proving Using Old Tactics Code

3+**************************************************************

4+

5+.. warning::

6+ The interactive theorem-proving interface documented here has been

7+ deprecated in favor of :ref:`elaborator-reflection`.

8+

9+Idris also supports interactive theorem proving via tactics. This

10+is generally not recommended to be used directly, but rather used as a

11+mechanism for building proof automation which is beyond the scope of this

12+tutorial. In this section, we briefly discus tactics.

13+

14+One way to write proofs interactively is to write the general *structure* of

15+the proof, and use the interactive mode to complete the details.

16+Consider the following definition, proved in :ref:`sect-theorems`:

17+

18+.. code-block:: idris

19+

20+ plusReduces : (n:Nat) -> plus Z n = n

21+

22+We’ll be constructing the proof by *induction*, so we write the cases for ``Z``

23+and ``S``, with a recursive call in the ``S`` case giving the inductive

24+hypothesis, and insert *holes* for the rest of the definition:

25+

26+.. code-block:: idris

27+

28+ plusReducesZ' : (n:Nat) -> n = plus n Z

29+ plusReducesZ' Z = ?plusredZ_Z

30+ plusReducesZ' (S k) = let ih = plusReducesZ' k in

31+ ?plusredZ_S

32+

33+On running , two global names are created, ``plusredZ_Z`` and

34+``plusredZ_S``, with no definition. We can use the ``:m`` command at the

35+prompt to find out which holes are still to be solved (or, more

36+precisely, which functions exist but have no definitions), then the

37+``:t`` command to see their types:

38+

39+.. code-block:: idris

40+

41+ *theorems> :m

42+ Global holes:

43+ [plusredZ_S,plusredZ_Z]

44+

45+.. code-block:: idris

46+

47+ *theorems> :t plusredZ_Z

48+ plusredZ_Z : Z = plus Z Z

49+

50+ *theorems> :t plusredZ_S

51+ plusredZ_S : (k : Nat) -> (k = plus k Z) -> S k = plus (S k) Z

52+

53+The ``:p`` command enters interactive proof mode, which can be used to

54+complete the missing definitions.

55+

56+.. code-block:: idris

57+

58+ *theorems> :p plusredZ_Z

59+

60+ ---------------------------------- (plusredZ_Z) --------

61+ {hole0} : Z = plus Z Z

62+

63+This gives us a list of premises (above the line; there are none here)

64+and the current goal (below the line; named ``{hole0}`` here). At the

65+prompt we can enter tactics to direct the construction of the proof. In

66+this case, we can normalise the goal with the ``compute`` tactic:

67+

68+.. code-block:: idris

69+

70+ -plusredZ_Z> compute

71+

72+ ---------------------------------- (plusredZ_Z) --------

73+ {hole0} : Z = Z

74+

75+Now we have to prove that ``Z`` equals ``Z``, which is easy to prove by

76+``Refl``. To apply a function, such as ``Refl``, we use ``refine`` which

77+introduces subgoals for each of the function’s explicit arguments

78+(``Refl`` has none):

79+

80+.. code-block:: idris

81+

82+ -plusredZ_Z> refine Refl

83+ plusredZ_Z: no more goals

84+

85+Here, we could also have used the ``trivial`` tactic, which tries to

86+refine by ``Refl``, and if that fails, tries to refine by each name in

87+the local context. When a proof is complete, we use the ``qed`` tactic

88+to add the proof to the global context, and remove the hole from the

89+unsolved holes list. This also outputs a trace of the proof:

90+

91+.. code-block:: idris

92+

93+ -plusredZ_Z> qed

94+ plusredZ_Z = proof

95+ compute

96+ refine Refl

97+

98+.. code-block:: idris

99+

100+ *theorems> :m

101+ Global holes:

102+ [plusredZ_S]

103+

104+The ``:addproof`` command, at the interactive prompt, will add the proof

105+to the source file (effectively in an appendix). Let us now prove the

106+other required lemma, ``plusredZ_S``:

107+

108+.. code-block:: idris

109+

110+ *theorems> :p plusredZ_S

111+

112+ ---------------------------------- (plusredZ_S) --------

113+ {hole0} : (k : Nat) -> (k = plus k Z) -> S k = plus (S k) Z

114+

115+In this case, the goal is a function type, using ``k`` (the argument

116+accessible by pattern matching) and ``ih`` — the local variable

117+containing the result of the recursive call. We can introduce these as

118+premises using the ``intro`` tactic twice (or ``intros``, which

119+introduces all arguments as premises). This gives:

120+

121+.. code-block:: idris

122+

123+ k : Nat

124+ ih : k = plus k Z

125+ ---------------------------------- (plusredZ_S) --------

126+ {hole2} : S k = plus (S k) Z

127+

128+Since plus is defined by recursion on its first argument, the term

129+``plus (S k) Z`` in the goal can be simplified, so we use ``compute``.

130+

131+.. code-block:: idris

132+

133+ k : Nat

134+ ih : k = plus k Z

135+ ---------------------------------- (plusredZ_S) --------

136+ {hole2} : S k = S (plus k Z)

137+

138+We know, from the type of ``ih``, that ``k = plus k Z``, so we would

139+like to use this knowledge to replace ``plus k Z`` in the goal with

140+``k``. We can achieve this with the ``rewrite`` tactic:

141+

142+.. code-block:: idris

143+

144+ -plusredZ_S> rewrite ih

145+

146+ k : Nat

147+ ih : k = plus k Z

148+ ---------------------------------- (plusredZ_S) --------

149+ {hole3} : S k = S k

150+

151+ -plusredZ_S>

152+

153+The ``rewrite`` tactic takes an equality proof as an argument, and tries

154+to rewrite the goal using that proof. Here, it results in an equality

155+which is trivially provable:

156+

157+.. code-block:: idris

158+

159+ -plusredZ_S> trivial

160+ plusredZ_S: no more goals

161+ -plusredZ_S> qed

162+ plusredZ_S = proof {

163+ intros;

164+ rewrite ih;

165+ trivial;

166+ }

167+

168+Again, we can add this proof to the end of our source file using the

169+``:addproof`` command at the interactive prompt.

docs/proofs/pluscomm.rst+1−1

@@ -182,7 +182,7 @@ interface rather than using ``plus`` directly. They have the names

182

183In the remainder of this tutorial, we will explore several different

184ways of proving ``plus_commutes`` (or, to put it another way, writing

185−the function.) We will also discuss how to use such equality proofs, and

185+the function). We will also discuss how to use such equality proofs, and

186see where the need for them arises in practice.

187

188.. [1]

docs/proofs/propositional.rstnew file+133

@@ -0,0 +1,133 @@

1+******************************

2+Proving Propositional Equality

3+******************************

4+

5+This page attempts to explain some of the techniques used in Idris to prove propositional equalities.

6+

7+We have seen that definitional equalities can be proved using ``Refl`` since they always normalise to unique values that can be compared directly.

8+

9+However with propositional equalities we are using symbolic variables they do not always normalise.

10+

11+So to take the previous example:

12+

13+.. code-block:: idris

14+

15+ plusReducesR : (n:Nat) -> plus n Z = n

16+

17+In this case ``plus n Z`` does not normalise to ``n``. Even though both sides are equal we cannot pattern match ``Refl``.

18+

19+If the pattern match cannot match for all ``n`` then the way around this is to separately match all possible values of ``n``. In the case of natural numbers we do this by induction.

20+

21+So here:

22+

23+.. code-block:: idris

24+

25+ plusReducesR : n = plus n 0

26+ plusReducesR {n = Z} = Refl

27+ plusReducesR {n = (S k)} = let rec = plus_commutes_Z {n=k} in

28+ rewrite rec in Refl

29+

30+we don't call ``Refl`` to match on ``n = plus n 0`` forall ``n`` we call it for every number separately. So, in the second line, the pattern matcher knows to substitute ``Z`` for ``n`` in the type being matched. This uses ``rewrite`` which is explained below.

31+

32+Replace

33+=======

34+

35+This implements the *indiscernability of identicals* principle, if two terms are equal then they have the same properties. In other words, if ``x=y``, then we can substitute ``y`` for ``x`` in any expression. In our proofs we can express this as:

36+

37+.. code-block:: idris

38+

39+ if x=y

40+ then P x = P y

41+

42+where ``P`` is a pure function representing the property. In the examples below ``P`` is an expression in some variable with a type like this: ``P: n -> Type``.

43+

44+So if ``n`` is a natural number variable then ``P`` could be something like ``2*n + 3``.

45+

46+To use this in our proofs there is the following function in the prelude:

47+

48+.. code-block:: idris

49+

50+ ||| Perform substitution in a term according to some equality.

51+ replace : {a:_} -> {x:_} -> {y:_} -> {P : a -> Type} -> x = y -> P x -> P y

52+ replace Refl prf = prf

53+

54+Removing the implicits, if we supply an equality ``x=y`` and a proof of a property of ``x`` (i.e. ``P x``) then we get a proof of a property of ``y`` (i.e. ``P y``)

55+

56+.. code-block:: idris

57+

58+ > :t replace

59+ replace : (x = y) -> P x -> P y

60+

61+So, in the following example, if we supply ``p1 x`` which is a proof that ``x=2`` and the equality ``x=y`` then we get a proof that ``y=2``.

62+

63+.. code-block:: idris

64+

65+ p1: Nat -> Type

66+ p1 n = (n=2)

67+

68+ testReplace: (x=y) -> (p1 x) -> (p1 y)

69+ testReplace a b = replace a b

70+

71+Rewrite

72+=======

73+

74+Similar to ``replace`` above but Idris provides a nicer syntax which makes ``rewrite`` easier to use in examples like ``plusReducesR`` above.

75+

76+.. code-block:: idris

77+

78+ rewrite__impl : (P : a -> Type) -> x = y -> P y -> P x

79+ rewrite__impl p Refl prf = prf

80+

81+The difference from ``replace`` above is nicer syntax and the property ``p1`` is explicitly supplied and it goes in the opposite direction (input and output reversed).

82+

83+Example: again we supply ``p1`` which is a proof that ``x=2`` and the equality ``x=y`` then we get a proof that ``y=2``.

84+

85+.. code-block:: idris

86+

87+ p1: Nat -> Type

88+ p1 x = (x=2)

89+

90+ testRewrite2: (x=y) -> (p1 y) -> (p1 x)

91+ testRewrite2 a b = rewrite a in b

92+

93+We can think of rewrite doing this:

94+

95+ * start with a equation ``x=y`` and a property ``P: x -> Type``;

96+ * search ``y`` in ``P``;

97+ * replace all occurrences of ``y`` with ``x`` in ``P``.

98+

99+That is, we are doing a substitution.

100+

101+Symmetry and Transitivity

102+=========================

103+

104+In addition to *reflexivity* equality also obeys *symmetry* and *transitivity* and these are also included in the prelude:

105+

106+.. code-block:: idris

107+

108+ ||| Symmetry of propositional equality

109+ sym : {left:a} -> {right:b} -> left = right -> right = left

110+ sym Refl = Refl

111+

112+ ||| Transitivity of propositional equality

113+ trans : {a:x} -> {b:y} -> {c:z} -> a = b -> b = c -> a = c

114+ trans Refl Refl = Refl

115+

116+Heterogeneous Equality

117+======================

118+

119+Also included in the prelude:

120+

121+.. code-block:: idris

122+

123+ ||| Explicit heterogeneous ("John Major") equality. Use this when Idris

124+ ||| incorrectly chooses homogeneous equality for `(=)`.

125+ ||| @ a the type of the left side

126+ ||| @ b the type of the right side

127+ ||| @ x the left side

128+ ||| @ y the right side

129+ (~=~) : (x : a) -> (y : b) -> Type

130+ (~=~) x y = (x = y)

131+

132+

133+

docs/reference/codegen.rst+13−4

@@ -1,3 +1,5 @@

1+.. _code-generation-targets:

2+

1************************

3************************

2Code Generation Targets

4Code Generation Targets

3************************

5************************

@@ -16,6 +18,13 @@ Official Backends

16C Language

18C Language

17----------

19----------

18

20

21+The default target of Idris is C. In order to view the generated C code, compile via:

22+

23+::

24+

25+ $ idris hello.idr -S -o hello.c

26+

27+

19Javascript

28Javascript

20----------

29----------

21

30

@@ -27,10 +36,10 @@ issue the following command:

27 $ idris --codegen javascript hello.idr -o hello.js

36 $ idris --codegen javascript hello.idr -o hello.js

28

37

29

38

30−Idris can produce very big chunks of JavaScript code (hello world

39+Idris can produce big chunks of JavaScript code (hello world weighs in at about

31−weighs in at 1500 lines). However, the generated code can be minified

40+60 lines). However, the generated code can be minified using the

32−using the `closure-compiler

33−<https://developers.google.com/closure/compiler/>`__ from Google.

41+`closure-compiler <https://developers.google.com/closure/compiler/>`__ from

42+Google.

34

43

35::

44::

36

45

docs/reference/compilation.rst+15−15

@@ -54,7 +54,7 @@ by setting a verbosity level.

54 Checking, and the individual steps prior to code generation.

55

56

57−By default Idris' progress reporting is set to quiet-``-q``, or ``--quiet``.

57+By default Idris' progress reporting is set to quiet: ``-q``, or ``--quiet``.

58

59Logging Internal Operation

60===========================

@@ -100,32 +100,32 @@ Environment Variables

100Several paths set by default within the Idris compiler can be

101overridden through environment variables. The provided variables are:

102

103−* `IDRIS_CC` Change the `C` compiler used by the `C` backend.

103+* ``IDRIS_CC`` Change the *C compiler* used by the *C backend*.

104−* `IDRIS_CFLAGS` Change the `C` flags passed to the `C` compiler.

104+* ``IDRIS_CFLAGS`` Change the *C flags* passed to the *C compiler*.

105−* `TARGET` Change the target directory i.e. `data dir` where Idris installs files when installing using Cabal/Stack.

105+* ``TARGET`` Change the target directory i.e. *data dir* where Idris installs files when installing using Cabal/Stack.

106−* `IDRIS_LIBRARY_PATH` Change the location of where installed packages are found/installed.

106+* ``IDRIS_LIBRARY_PATH`` Change the location of where installed packages are found/installed.

107−* `IDRIS_DOC_PATH` Change the location of where generated idrisdoc for packages are installed.

107+* ``IDRIS_DOC_PATH`` Change the location of where generated idrisdoc for packages are installed.

108

109.. note::

110

111 In versions of Idris prior to 0.12.3 the environment variables

112− `IDRIS_LIBRARY_PATH` and `TARGET` were both used to affect the

112+ ``IDRIS_LIBRARY_PATH`` and ``TARGET`` were both used to affect the

113 installation of single packages and direct where Idris installed

114 its data. The meaning of these variables has changed, and command

115 line options are preferred when changing where individual packages

116 are installed.

117

118−The CLI option `--ibcsubdir` can be used to direct where generated IBC

118+The CLI option ``--ibcsubdir`` can be used to direct where generated IBC

119files are placed. However, this means Idris will install files in a

120non-standard location separate from the rest of the installed

121−packages. The CLI option `--idrispath <dir>` allows you to add a

121+packages. The CLI option ``--idrispath <dir>`` allows you to add a

122directory to the library search path; this option can be used multiple

123−times and can be shortened to `-i <dir>`. Similary, the `--sourcepath

123+times and can be shortened to ``-i <dir>``. Similary, the ``--sourcepath

124−<dir>` option can be used to add directories to the source search

124+<dir>`` option can be used to add directories to the source search

125−path. There is no shortened version for this option as `-s` is a

125+path. There is no shortened version for this option as ``-s`` is a

126reserved flag.

127

128Further, Idris also supports options to augment the paths used, and

129−pass options to the code generator backend. The option `--cg-opt

129+pass options to the code generator backend. The option ``--cg-opt

130−<ARG>` can be used to pass options to the code generator. The format

130+<ARG>`` can be used to pass options to the code generator. The format

131−of `<ARG>` is dependent on the selected backend.

131+of ``<ARG>`` is dependent on the selected backend.

docs/reference/erasure.rst+3−3

@@ -254,7 +254,7 @@ Benchmarks

254==========

255

256- source: https://github.com/ziman/idris-benchmarks

257−- results: http://ziman.functor.sk/erasure-bm/

257+- results: https://ziman.functor.sk/erasure-bm/

258

259It can be clearly seen that asymptotics are improved by erasure.

260

@@ -269,7 +269,7 @@ Usage warnings are quite bad and unhelpful at the moment. We should

269include more information and at least translate argument numbers to

270their names.

271

272−There is no decent documentation yet. This wiki page is the first one.

272+There is no decent documentation yet. This page is the first one.

273

274There is no generally accepted terminology. We switch between

275"dotted", "unused", "erased", "irrelevant", "inaccessible", while each

@@ -499,4 +499,4 @@ References

499

500.. [BMM04] Edwin Brady, Conor McBride, James McKinna: `Inductive

501 families need not store their indices

502− <http://citeseerx.ist.psu.edu/viewdoc/summary;jsessionid=1F796FCF0F2C4C535FC70F62BE2FB821?doi=10.1.1.62.3849>`__

502+ <https://citeseerx.ist.psu.edu/viewdoc/summary;jsessionid=1F796FCF0F2C4C535FC70F62BE2FB821?doi=10.1.1.62.3849>`__

docs/reference/ffi.rst+50−7

@@ -115,6 +115,26 @@ For C, this is:

115 FFI_C : FFI

116 FFI_C = MkFFI C_Types String String

117

118+Linking foreign code

119+====================

120+

121+This is the example of linking C code.

122+

123+.. code-block:: idris

124+

125+ %include C "mylib.h"

126+ %link C "mylib.o"

127+

128+Example Makefile

129+

130+.. code-block:: shell

131+

132+ DEFAULT: mylib.o main.idr

133+ idris main.idr -o executableFile

134+

135+ clean:

136+ rm -f executableFile mylib.o main.ibc

137+

118Foreign calls

138Foreign calls

119=============

139=============

120

140

@@ -184,9 +204,10 @@ unable to pass the closed-over values through C. If we want to pass Idris values

184to the callback we have to pass them through C explicitly. Non-primitive Idris

204to the callback we have to pass them through C explicitly. Non-primitive Idris

185values can be passed to C via the ``Raw`` type.

205values can be passed to C via the ``Raw`` type.

186

206

187−The other big limitation is that it doesn't support IO functions. Use

207+The other big limitation is that it doesn't support ``IO`` functions. Use

188−``unsafePerformIO`` to wrap them (i.e. to make an IO function usable as a callback, change the return type

208+``unsafePerformIO`` to wrap them (i.e. to make an ``IO`` function usable as a

209+callback, change the return type from ``IO r`` to ``r``, and change the ``= do``

189−from IOr to r, and change the = do to = unsafePerformIO $ do).

210+to ``= unsafePerformIO $ do``).

190

211

191There are two special function names:

212There are two special function names:

192``%wrapper`` returns the function pointer that wraps an Idris function. This

213``%wrapper`` returns the function pointer that wraps an Idris function. This

@@ -238,7 +259,7 @@ useful to access constants that are preprocessor definitions (like ``INT_MAX``).

238 main = print !intMax

259 main = print !intMax

239

260

240For more complicated interactions with C (such as reading and setting fields

261For more complicated interactions with C (such as reading and setting fields

241−of a C struct), there is a module CFFI available in the contrib package.

262+of a C ``struct``), there is a module C FFI available in the contrib package.

242

263

243C heap

264C heap

244------

265------

@@ -336,9 +357,10 @@ Usage from C code

336

357

337 CData some_allocating_fun(int arg)

358 CData some_allocating_fun(int arg)

338 {

359 {

360+ size_t size = sizeof(...);

339− void * data = (void *) malloc(...);

361+ void * data = (void *) malloc(size);

340 // ...

362 // ...

341− return cdata_manage(data, finalizer);

363+ return cdata_manage(data, size, finalizer);

342 }

364 }

343

365

344 int other_fun(CData cd, int arg)

366 int other_fun(CData cd, int arg)

@@ -347,11 +369,32 @@ Usage from C code

347 return result;

369 return result;

348 }

370 }

349

371

372+The ``Raw`` type constructor allows you to access or return a runtime

373+representation of the value. For instance, if you want to copy a string

374+generated from C code into an Idris value, you may want to return a

375+``Raw String`` instead of a ``String`` and use ``MKSTR`` or ``MKSTRlen`` to

376+copy it over.

377+

378+.. code-block:: idris

379+

380+ getString : () -> IO (Raw String)

381+ getString () = foreign FFI_C "get_string" (IO (Raw String))

382+

383+.. code-block:: cpp

384+

385+ const VAL get_string ()

386+ {

387+ char * c_string = get_string_allocated_with_malloc()

388+ const VAL idris_string = MKSTR(get_vm(), c_string);

389+ free(c_string);

390+ return idris_string

391+ }

392+

350FFI implementation

393FFI implementation

351------------------

394------------------

352

395

353In order to write bindings to external libraries, the details of how

396In order to write bindings to external libraries, the details of how

354−``foreign`` works are unnecessary --- you simply need to know that

397+``foreign`` works are unnecessary: you simply need to know that

355``foreign`` takes an FFI descriptor, the function name, and its

398``foreign`` takes an FFI descriptor, the function name, and its

356type. It is instructive to look a little deeper, however:

399type. It is instructive to look a little deeper, however:

357

400

docs/reference/index.rst+2−2

@@ -14,7 +14,7 @@ This will tell you how Idris works, for using it you should read the Idris Tutor

14 Idris Community* has waived all copyright and related or neighboring

15 rights to Documentation for Idris.

16

17− More information concerning the CC0 can be found online at: http://creativecommons.org/publicdomain/zero/1.0/

17+ More information concerning the CC0 can be found online at: https://creativecommons.org/publicdomain/zero/1.0/

18

19

20.. toctree::

@@ -26,6 +26,7 @@ This will tell you how Idris works, for using it you should read the Idris Tutor

26 uniqueness-types

27 ffi

28 syntax-guide

29+ syntax-reference

29 erasure

30 erasure

30 ide-protocol

31 ide-protocol

31 semantic-highlighting

32 semantic-highlighting

@@ -35,7 +36,6 @@ This will tell you how Idris works, for using it you should read the Idris Tutor

35 internals

36 internals

36 language-features

37 language-features

37 language-extensions

38 language-extensions

38− elaborator-reflection

39 type-directed-search

40 partial-evaluation

41 misc

docs/reference/internals.rst+31−28

@@ -10,8 +10,8 @@ free to contribute.

10This document assumes that you are already familiar with Idris. It is

11intended for those who want to work on the internals.

12

13−People looking to develop new back ends may want to look at [[Idris back

13+People looking to develop new back ends may want to look at

14−end IRs\|Idris-back-end-IRs]]

14+:ref:`code-generation-targets`

15

16Core/TT.hs

17==========

@@ -53,7 +53,7 @@ with ``SC`` and ``CaseAlt`` to get GHC to generate a function for

53mapping over contained terms.

54

55Constructor cases (``ConCase`` in ``CaseAlt``) refer to numbered

56−constructors. Every constructor is numbered 0,1,2,…. At this stage in

56+constructors. Every constructor is numbered *0,1,2,…*. At this stage in

57the compiler, the tags are datatype-local. After defunctionalization,

58however, they are made globally unique.

59

@@ -91,12 +91,12 @@ dictionary which makes totality checking easier.

91The ``normalise*`` functions give different behaviors - but

92``normalise`` is the most common.

93

94−``normaliseC`` - "resolved" means with names converted to de Bruijn

94+- ``normaliseC`` - "resolved" means with names converted to de Bruijn

95−indices as appropriate.

95+ indices as appropriate;

96

97−``normaliseAll`` - reduce everything, even if it's non-total

97+- ``normaliseAll`` - reduce everything, even if it's non-total;

98

99−``normaliseTrace`` - special-purpose for debugging

99+- ``normaliseTrace`` - special-purpose for debugging.

100

101``simplify`` - reduce the things that are small - the list argument is

102the things to not reduce.

@@ -110,8 +110,8 @@ Core/Elaborate.hs

110=================

111

112Idris definitions are elaborated one by one and turned into the

113−corresponding TT. This is done with a tactic language as an EDSL in the

113+corresponding ``TT``. This is done with a tactic language as an EDSL in the

114−Elab monad (or Elab' when there's a custom state).

114+``Elab`` monad (or ``Elab'`` when there's a custom state).

115

116Lots of plumbing for errors.

117

@@ -122,17 +122,17 @@ The string in the pair returned by elaborate is log information.

122See JFP paper, but the names don't necessarily map to each other. The

123paper is the "idealized version" without logging, additional state, etc.

124

125−All the tactics take Raws, typechecking happens there.

125+All the tactics take ``Raw`` s, typechecking happens there.

126

127−claim (x : t) assumes a new x : t.

127+``claim (x : t)`` assumes a new ``x : t``.

128

129PLEASE TIDY THINGS UP!

130

131−proofSearch flag to try' is whether the failure came from a human (so

131+``proofSearch`` flag is to try whether the failure came from a human (so

132fail) or from a machine (so continue)

133

134−Idris-level syntax for providing alternatives explicitly: (\| x, y, z

134+Idris-level syntax for providing alternatives explicitly: ``(| x, y, z

135−\|) try x, y, z in order, and take the first that succeeds.

135+|)`` try ``x``, ``y``, ``z`` in order, and take the first that succeeds.

136

137Core/ProofState.hs

138==================

@@ -140,37 +140,40 @@ Core/ProofState.hs

140Core/Unify.hs

141=============

142

143−Deals with unification. Unification can reply with: - this works - this

143+Deals with unification. Unification can reply with:

144−can never work - this will work if these other unification problems work

145−out (eg unifying f x with 1)

146

144

145+- this works

146+- this can never work

147+- this will work if these other unification problems work out (e.g.

148+ unifying ``f x`` with ``1``)

149+

147−match\_unify: same thing as unification except it's just matching name

150+``match_unify``: same thing as unification except it's just matching name

148−against name, term against term. x + y matches to 0 + y with x = 0. Used

151+against name, term against term. ``x + y`` matches to ``0 + y`` with

149−for <== syntax as well as type class resolution.

152+``x = 0``. Used for ``<==`` syntax as well as type class resolution.

150

153

151Idris/AbsSyntaxTree.hs

154Idris/AbsSyntaxTree.hs

152======================

155======================

153

156

154−PTerm is the datatype of Idris syntax. P is for Program. Each PTerm

157+``PTerm`` is the datatype of Idris syntax. ``P`` is for *Program*.

155−turns into a TT term by applying a series of tactics.

158+Each ``PTerm`` turns into a TT term by applying a series of tactics.

156

159

157−IState is the major interpreter state. The global context is the

160+``IState`` is the major interpreter state. The global context is the

158−tt\_ctxt field.

161+``tt_ctxt`` field.

159

162

160−Ctxt maps possibly ambiguous names to their referents.

163+``Ctxt`` maps possibly ambiguous names to their referents.

161

164

162Idris/ElabDecls.hs

165Idris/ElabDecls.hs

163==================

166==================

164

167

165−This is where the actual elaboration from PTerm to TT happens.

168+This is where the actual elaboration from ``PTerm`` to ``TT`` happens.

166

169

167Idris/ElabTerm.hs

170Idris/ElabTerm.hs

168=================

171=================

169

172

170−build is the function that creates a Raw. All the "junk" is to deal with

173+``build`` is the function that creates a ``Raw``. All the "junk" is to deal with

171things like metavars and so forth. It has to remember what names are

174things like metavars and so forth. It has to remember what names are

172still to be defined, and it doesn't yet know the type (filled in by

175still to be defined, and it doesn't yet know the type (filled in by

173unificaiton later). Also case expressions have to turn into top-level

176unificaiton later). Also case expressions have to turn into top-level

174functions.

177functions.

175

178

176−resolveTC is type class resolution.

179+``resolveTC`` is type class resolution.

docs/reference/language-extensions.rst+8−3

@@ -3,13 +3,12 @@ Language Extensions

3*******************

4

5

6−

7Type Providers

6Type Providers

8===============

7===============

9

8

10Idris type providers are a way to get the type system to reflect

9Idris type providers are a way to get the type system to reflect

11observations about the world outside of Idris. Similarly to `F# type

10observations about the world outside of Idris. Similarly to `F# type

12−providers <http://msdn.microsoft.com/en-us/library/vstudio/hh156509.aspx>`__,

11+providers <https://msdn.microsoft.com/en-us/library/vstudio/hh156509.aspx>`__,

13they cause effectful computations to run during type checking, returning

12they cause effectful computations to run during type checking, returning

14information that the type checker can use when checking the rest of the

13information that the type checker can use when checking the rest of the

15program. While F# type providers are based on code generation, Idris

14program. While F# type providers are based on code generation, Idris

@@ -32,5 +31,11 @@ to the user.

32Example Idris type providers can be seen at `this

31Example Idris type providers can be seen at `this

33repository <https://github.com/david-christiansen/idris-type-providers>`__.

32repository <https://github.com/david-christiansen/idris-type-providers>`__.

34More detailed descriptions are available in David Christiansen's `WGP

33More detailed descriptions are available in David Christiansen's `WGP

35−'13 paper <http://dx.doi.org/10.1145/2502488.2502495>`__ and `M.Sc.

34+'13 paper <https://dx.doi.org/10.1145/2502488.2502495>`__ and `M.Sc.

36thesis <http://itu.dk/people/drc/david-christiansen-thesis.pdf>`__.

35thesis <http://itu.dk/people/drc/david-christiansen-thesis.pdf>`__.

36+

37+Elaborator Reflection

38+=====================

39+

40+Another way to extend the language is elaborator reflection which is described

41+in the :ref:`elaborator-index` section.

docs/reference/misc.rst+5−5

@@ -115,11 +115,11 @@ Here is an example:

115 import Syntax.PreorderReasoning

116 multThree : (a, b, c : Nat) -> a * b * c = c * a * b

117 multThree a b c =

118− (a * b * c) ={ sym (multAssociative a b c) }=

118+ (a * b * c) ={ sym (multAssociative a b c) }=

119− (a * (b * c)) ={ cong (multCommutative b c) }=

119+ (a * (b * c)) ={ cong (multCommutative b c) }=

120− (a * (c * b)) ={ multAssociative a c b }=

120+ (a * (c * b)) ={ multAssociative a c b }=

121− (a * c * b) ={ cong {f = (* b)} (multCommutative a c) }=

121+ (a * c * b) ={ cong {f = (* b)} (multCommutative a c) }=

122− (c * a * b) QED

122+ (c * a * b) QED

123

124Note that the parentheses are required -- only a simple expression can

125be on the left of ``={ }=`` or ``QED``. Also, when using preorder

docs/reference/packages.rst+1−1

@@ -24,7 +24,7 @@ comma separated list of modules. For example, a library test which

24has two modules ``foo.idr`` and ``bar.idr`` as source files would be

25written as follows::

26

27− package foo

27+ package test

28

29 modules = foo, bar

30

docs/reference/partial-evaluation.rst+2−2

@@ -8,7 +8,7 @@ of functions with arguments annotated as ``%static``.

8

9(This is an implementation of the partial evaluator described in `this

10ICFP 2010

11−paper <http://eb.host.cs.st-andrews.ac.uk/writings/icfp10.pdf>`__.

11+paper <https://eb.host.cs.st-andrews.ac.uk/writings/icfp10.pdf>`__.

12Please refer to this for more precise definitions of what follows.)

13

14Partial evaluation is switched off by default since Idris 1.0. It can

@@ -207,7 +207,7 @@ Specialising Interpreters

207A particularly useful situation where partial evaluation becomes

208effective is in defining an interpreter for a well-typed expression

209language, defined as follows (see the `Idris tutorial, section

210−4 <http://eb.host.cs.st-andrews.ac.uk/writings/idris-tutorial.pdf>`__

210+4 <https://eb.host.cs.st-andrews.ac.uk/writings/idris-tutorial.pdf>`__

211for more details on how this works):

212

213::

docs/reference/syntax-guide.rst+6

@@ -390,6 +390,12 @@ Totality

390 partial

391 covering

392

393+Sets explicitly to which extent pattern matching is terminating and/or

394+exhaustive. A ``partial`` pattern matching makes no assumption. A ``covering``

395+pattern matching ensures that pattern matching is exhaustive on its clauses.

396+Furthermore, a ``total`` pattern matching enforces both exhaustivity and

397+termination of the evaluation of its clauses.

398+

393Implicit Coercion

399Implicit Coercion

394^^^^^^^^^^^^^^^^^

400^^^^^^^^^^^^^^^^^

395

401

docs/reference/syntax-reference.rstnew file+422

@@ -0,0 +1,422 @@

1+*****************

2+Syntax Reference

3+*****************

4+

5+Here we present a rough description of Idris' surface syntax as an eBNF grammar.

6+This presentend grammar may differ from syntax that Idris' parser can handle due to the parser and grammar description not being in sync.

7+

8+=========

9+Notation

10+=========

11+

12+Grammar shortcut notation::

13+

14+ ~CHARSEQ = complement of char sequence (i.e. any character except CHARSEQ)

15+ RULE? = optional rule (i.e. RULE or nothing)

16+ RULE* = repeated rule (i.e. RULE zero or more times)

17+ RULE+ = repeated rule with at least one match (i.e. RULE one or more times)

18+ RULE! = invalid rule (i.e. rule that is not valid in context, report meaningful error in case)

19+ RULE{n} = rule repeated n times

20+

21+

22+=============

23+Main Grammar

24+=============

25+

26+.. productionlist::

27+ ModuleHeader : `DocComment_t`? "module" `Identifier_t` ";"? ;

28+ Import : "import" `Identifier_t` ";"? ;

29+ Prog : `Decl`* `EOF`;

30+ Decl : `DeclP`

31+ : | `Using`

32+ : | `Params`

33+ : | `Mutual`

34+ : | `Namespace`

35+ : | `Interface`

36+ : | `Implementation`

37+ : | `DSL`

38+ : | `Directive`

39+ : | `Provider`

40+ : | `Transform`

41+ : | `Import`!

42+ : | `RunElabDecl` ;

43+ DeclP : `Fixity`

44+ : | `FunDecl`

45+ : | `Data`

46+ : | `Record`

47+ : | `SyntaxDecl` ;

48+

49+

50+--------------------

51+Syntax Declarations

52+--------------------

53+

54+.. productionlist::

55+ SyntaxDecl : `SyntaxRule` ;

56+ SyntaxRuleOpts : "term" | "pattern" ;

57+ SyntaxRule : `SyntaxRuleOpts`? "syntax" `SyntaxSym`+ "=" `TypeExpr` `Terminator`;

58+ SyntaxSym : '[' `Name_t` ']'

59+ : | '{' `Name_t` '}'

60+ : | `Name_t`

61+ : | `StringLiteral_t`;

62+ SyntaxSym : '[' `Name_t` ']'

63+ : | '{' `Name_t` '}'

64+ : | `Name_t`

65+ : | `StringLiteral_t`;

66+

67+----------

68+Functions

69+----------

70+

71+.. productionlist::

72+ FunDecl : `FunDeclP`;

73+ FunDeclP : `DocComment_t`? `FnOpts`* `Accessibility`? `FnOpts`* `FnName` `TypeSig` `Terminator`

74+ : | `Postulate`

75+ : | `Pattern`

76+ : | `CAF` ;

77+ FnOpts : `FnOpt`* `Accessibility` `FnOpt`* ;

78+ FnOpt : 'total'

79+ : | 'partial'

80+ : | 'covering'

81+ : | 'implicit'

82+ : | '%' 'no_implicit'

83+ : | '%' 'assert_total'

84+ : | '%' 'error_handler'

85+ : | '%' 'reflection'

86+ : | '%' 'specialise' '[' `NameTimesList`? ']' ;

87+ NameTimes : `FnName` `Natural`?;

88+ NameTimesList : `NameTimes` | `NameTimes` ',' `NameTimesList` ;

89+ Postulate : `DocComment_t`? 'postulate' `FnOpts`* `Accesibility`? `FnOpts`* `FnName` `TypeSig` `Terminator` ;

90+

91+--------------------

92+Blocks & Namespaces

93+--------------------

94+

95+.. productionlist::

96+ Using : 'using' '(' `UsingDeclList` ')' `OpenBlock` `Decl`* `CloseBlock` ;

97+ UsingDeclList : `UsingDeclListP` | `NameList TypeSig`;

98+ UsingDeclListP : `UsingDecl` | `UsingDecl` ',' `UsingDeclListP` ;

99+ NameList : `Name` | `Name` ',' `NameList` ;

100+ UsingDecl : `FnName` `TypeSig` | `FnName` `FnName`+ ;

101+ Params : 'parameters' '(' `TypeDeclList` ')' `OpenBlock` `Decl`* `CloseBlock`;

102+ Mutual : 'mutual' `OpenBlock` `Decl`* `CloseBlock` ;

103+ Namespace : 'namespace' `identifier` `OpenBlock` `Decl`+ `CloseBlock` ;

104+

105+----------------------------

106+Interfaces & Implementation

107+----------------------------

108+

109+.. productionlist::

110+ ImplementationBlock : 'where' `OpenBlock` `FnDecl`* `CloseBlock` ;

111+ MethodOrImplementation : `FnDecl` | `Implementation`;

112+ InterfaceBlock : 'where' `OpenBlock` `Constructor`? `MethodOrImplementation`* `CloseBlock` ;

113+ InterfaceArgument : `Name` | '(' `Name` ':' `Expr` ')';

114+ Interface ::= `DocComment_t`? `Accessibility`? 'interface' `ConstraintList`? `Name` `InterfaceArgument`* `InterfaceBlock`?;

115+ Implementation : `DocComment_t`? 'implementation' `ImplementationName`? `ConstraintList`? `Name` `SimpleExpr`* `ImplementationBlock`? ;

116+ ImplementationName : '[' `Name` ']';

117+

118+

119+-------

120+Bodies

121+-------

122+

123+.. productionlist::

124+ Pattern : `Clause`;

125+ CAF : 'let' `FnName` '=' `Expr` `Terminator`;

126+ ArgExpr : `HSimpleExpr` | "In Pattern External (User-defined) Expression";

127+ RHS : '=' `Expr`

128+ : | '?=' `RHSName`? `Expr`

129+ : | `Impossible` ;

130+ RHSName : '{' `FnName` '}' ;

131+ RHSOrWithBlock : `RHS` `WhereOrTerminator`

132+ : | 'with' `SimpleExpr` `OpenBlock` `FnDecl`+ `CloseBlock`;

133+ Clause : `WExpr`+ `RHSOrWithBlock`

134+ : | `SimpleExpr` '<==' `FnName` `RHS` `WhereOrTerminator`

135+ : | `ArgExpr` `Operator` `ArgExpr` `WExpr`* `RHSOrWithBlock` {- Except "=" and "?=" operators to avoid ambiguity -}

136+ : | `FnName` `ConstraintArg`* `ImplicitOrArgExpr`* `WExpr`* `RHSOrWithBlock`;

137+ ImplicitOrArgExpr ::= `ImplicitArg` | `ArgExpr`;

138+ WhereOrTerminator ::= `WhereBlock` | `Terminator`;

139+ WExpr ::= '|' `Expr`';

140+ WhereBlock : 'where' `OpenBlock` `Decl`+ `CloseBlock`;

141+

142+----------

143+Directives

144+----------

145+

146+.. productionlist::

147+ Codegen: 'C'

148+ : | 'Java'

149+ : | 'JavaScript'

150+ : | 'Node'

151+ : | 'LLVM'

152+ : | 'Bytecode' ;

153+ StringList : `String` | `String` ',' `StringList` ;

154+ Directive : '%' `DirectiveP`;

155+ DirectiveP : 'lib' `CodeGen` `String_t`

156+ : | 'link' `CodeGen` `String_t`

157+ : | 'flag' `CodeGen` `String_t`

158+ : | 'include' `CodeGen` `String_t`

159+ : | 'hide' `Name`

160+ : | 'freeze' `Name`

161+ : | 'thaw' `Name`

162+ : | 'access' `Accessibility`

163+ : | 'default' `Totality`

164+ : | 'logging' `Natural`

165+ : | 'dynamic' `StringList`

166+ : | 'name' `Name` `NameList`

167+ : | 'error_handlers' `Name` `NameList`

168+ : | 'language' 'TypeProviders'

169+ : | 'language' 'ErrorReflection'

170+ : | 'deprecated' `Name` `String`

171+ : | 'fragile' `Name` `Reason` ;

172+ LangExt : "TypeProviders"

173+ : | "ErrorReflection"

174+ : | "UniquenessTypes"

175+ : | "LinearTypes"

176+ : | "DSLNotation"

177+ : | "ElabReflection"

178+ : | "FirstClassReflection" ;

179+ Totality : 'partial' | 'total' | 'covering'

180+ Provider : `DocComment_t`? '%' 'provide' `Provider_What`? '(' `FnName` `TypeSig` ')' 'with' `Expr`;

181+ ProviderWhat : 'proof' | 'term' | 'type' | 'postulate'

182+ Transform : '%' 'transform' `Expr` '==>' `Expr`;

183+ RunElabDecl : '%' 'runElab' `Expr`;

184+

185+

186+===========

187+Expressions

188+===========

189+

190+.. productionlist::

191+ FullExpr : `Expr` `EOF_t` ;

192+ Expr : `Pi` ;

193+ OpExpr : "Expression Parser with Operators based on ExprP" ;

194+ ExprP : "External (User-defined) Syntax" | `InternalExpr` ;

195+ InternalExpr : `UnifyLog`

196+ : | `RecordType`

197+ : | `SimpleExpr`

198+ : | `Lambda`

199+ : | `QuoteGoal`

200+ : | `Let`

201+ : | `If`

202+ : | `RewriteTerm`

203+ : | `CaseExpr`

204+ : | `DoBlock`

205+ : | `App` ;

206+

207+-------

208+Bodies

209+-------

210+

211+.. productionlist::

212+ Impossible : `impossible` ;

213+ CaseExpr : "case" `Expr` "of" `OpenBlock` `CaseOption`+ `CloseBlock` ;

214+ CaseOption : `Expr` (`Impossible` | "=>" `Expr`) `Terminator` ;

215+ ProofExpr : "proof" `OpenBlock` `Tactic'`* `CloseBlock` ;

216+ TacticsExpr : "tactics" `OpenBlock` `Tactic'`* `CloseBlock` ;

217+ SimpleExpr : "External (User-defined) Simple Expression"

218+ : | "?" `Name`

219+ : | "%" "implementation"

220+ : | "Refl" ("{" `Expr` "}")?

221+ : | `ProofExpr`

222+ : | `TacticsExpr`

223+ : | `FnName`

224+ : | `Idiom`

225+ : | `List`

226+ : | `Alt`

227+ : | `Bracketed`

228+ : | `Constant`

229+ : | `Type`

230+ : | "Void"

231+ : | `Quasiquote`

232+ : | `NameQuote`

233+ : | `Unquote`

234+ : | "_" ;

235+ Bracketed : "(" `BracketedP` ;

236+ BracketedP : ")"

237+ : | `Expr` ")"

238+ : | `ExprList` ")"

239+ : | `DependentPair` ")"

240+ : | `Operator` `Expr` ")"

241+ : | `Expr` `Operator` ")" ;

242+ Alt : "(|" `Expr_List` "|)" ;

243+ Expr_List : `Expr'` | `Expr'` "," `Expr_List` ;

244+ HSimpleExpr : "." `SimpleExpr` | `SimpleExpr` ;

245+ UnifyLog : "%" "unifyLog" `SimpleExpr` ;

246+ RunTactics : "%" "runElab" `SimpleExpr` ;

247+ Disamb : "with" `NameList` `Expr` ;

248+ NoImplicits : "%" "noImplicits" `SimpleExpr` ;

249+ App : "mkForeign" `Arg` `Arg`*

250+ : | `MatchApp`

251+ : | `SimpleExpr` `Arg`* ;

252+ MatchApp : `SimpleExpr` "<==" `FnName` ;

253+ Arg :` ImplicitArg` | `ConstraintArg` | `SimpleExpr` ;

254+ ImplicitArg : "{" `Name` ("=" `Expr`)? "}" ;

255+ ConstraintArg : "@{" `Expr` "}" ;

256+ Quasiquote : "`(" `Expr` ")" ;

257+ Unquote : "," `Expr` ;

258+ RecordType : "record" "{" `FieldTypeList` "}" ;

259+ FieldTypeList : `FieldType` | `FieldType` "," `FieldTypeList` ;

260+ FieldType : `FnName` "=" `Expr` ;

261+ TypeSig : ":" `Expr` ;

262+ TypeExpr : `ConstraintList`? `Expr` ;

263+ Lambda : "\\" `TypeOptDeclList` `LambdaTail`

264+ : | "\\" `SimpleExprList` `LambdaTail` ;

265+ SimpleExprList : `SimpleExpr` | `SimpleExpr` "," `SimpleExprList` ;

266+ LambdaTail : `Impossible` | "=>" `Expr` ;

267+ RewriteTerm : "rewrite" `Expr` ("==>" `Expr`)? "in" `Expr` ;

268+ RigCount: "1" : "0" ;

269+ Let : "let" `Name` `TypeSig`"? "=" `Expr` "in" `Expr`

270+ : | "let" `Expr'` "=" `Expr'` "in" `Expr` ;

271+ TypeSig' : ":" `Expr'` ;

272+ If : "if" `Expr` "then" `Expr` "else" `Expr` ;

273+ QuoteGoal : "quoteGoal" `Name` "by" `Expr` "in" `Expr` ;

274+

275+----

276+Pies

277+----

278+

279+.. productionlist::

280+ Pi : `PiOpts` `Static`? `PiP` ;

281+ PiP : `OpExpr` ("->" `Pi`)?

282+ : | "(" `TypeDeclList` ")" "->" `Pi`

283+ : | "{" `TypeDeclList` "}" "->" `Pi`

284+ : | "{" "auto" `TypeDeclList` "}" "->" `Pi`

285+ : | "{" "default" `SimpleExpr` `TypeDeclList` "}" "->" `Pi` ;

286+ PiOpts : "."? ;

287+ ConstraintList : "(" `Expr_List` ")" "=>"

288+ : | `Expr` "=>" ;

289+ TypeDeclList : `FunctionSignatureList`

290+ : | `NameList` `TypeSig` ;

291+ FunctionSignatureList : `Name` `TypeSig`

292+ : | `Name` `TypeSig` "," `FunctionSignatureList` ;

293+ TypeOptDeclList : `NameOrPlaceholder` `TypeSig`?

294+ : | `NameOrPlaceholder` `TypeSig`? "," `TypeOptDeclList` ;

295+ NameOrPlaceHolder : `Name` : "_" ;

296+ ListExpr : "[" "]" | "[" `Expr` "|" `DoList` "]" | "[" `ExprList` "]" ;

297+ ExprList : `Expr` | `Expr` "," `ExprList` ;

298+

299+

300+-------------------

301+Do Blocks & Idioms

302+-------------------

303+

304+.. productionlist::

305+ DoList : `Do` : `Do` "," `DoList` ;

306+ Do' : `Do` `KeepTerminator` ;

307+ DoBlock : "do" `OpenBlock` `Do'`+ `CloseBlock` ;

308+ Do : "let" `Name` `TypeSig`"? "=" `Expr`

309+ : | "let" `Expr'` "=" `Expr`

310+ : | "rewrite" `Expr`

311+ : | `Name` "<-" `Expr`

312+ : | `Expr'` "<-" `Expr`

313+ : | `Expr` ;

314+ Idiom : "[|" `Expr` "|]" ;

315+

316+

317+----------

318+Constants

319+----------

320+

321+.. productionlist::

322+ Constant : | "Integer"

323+ : | "Int"

324+ : | "Char"

325+ : | "Double"

326+ : | "String"

327+ : | "Bits8"

328+ : | "Bits16"

329+ : | "Bits32"

330+ : | "Bits64"

331+ : | `Float_t`

332+ : | `Natural_t`

333+ : | `VerbatimString_t`

334+ : | `String_t`

335+ : | `Char_t` ;

336+ VerbatimString_t : "\"\"\"" ~"\"\"\"" "\""* "\"\"\"" ;

337+

338+-------

339+Tactics

340+-------

341+

342+.. productionlist::

343+ Tactic : "intro" `NameList`?

344+ : | "intros"

345+ : | "refine" `Name` `Imp`+

346+ : | "mrefine" `Name`

347+ : | "rewrite" `Expr`

348+ : | "induction" `Expr`

349+ : | "equiv" `Expr`

350+ : | "let" `Name` ":" `Expr'` "=" `Expr`

351+ : | "let" `Name` "=" `Expr`

352+ : | "focus" `Name`

353+ : | "exact" `Expr`

354+ : | "applyTactic" `Expr`

355+ : | "reflect" `Expr`

356+ : | "fill" `Expr`

357+ : | "try" `Tactic` "|" `Tactic`

358+ : | "{" `TacticSeq` "}"

359+ : | "compute"

360+ : | "trivial"

361+ : | "solve"

362+ : | "attack"

363+ : | "state"

364+ : | "term"

365+ : | "undo"

366+ : | "qed"

367+ : | "abandon"

368+ : | ":" "q" ;

369+ TacticSeq : `Tactic` ";" `Tactic` | `Tactic` ";" `TacticSeq` ;

370+

371+----

372+Misc

373+----

374+

375+.. productionlist::

376+ Imp : "?" | "_" ;

377+ Static : "%static" ;

378+

379+=====

380+Data

381+=====

382+

383+.. productionlist::

384+ Record : `DocComment` `Accessibility`? "record" `FnName` `TypeSig` "where" `OpenBlock` `Constructor` `KeepTerminator` `CloseBlock`;

385+ DataI : "data" | "codata";

386+ Data : `DocComment`? `Accessibility`? `DataI` `FnName` `TypeSig` `ExplicitTypeDataRest`?

387+ : `DocComment`? `Accessibility`? `DataI` `FnName` `Name`* `DataRest`? ;

388+ Constructor': `Constructor` `KeepTerminator` ;

389+ ExplicitTypeDataRest : "where" `OpenBlock` `Constructor'`* `CloseBlock`;

390+ DataRest : "=" `SimpleConstructorList` `Terminator` | "where"!;

391+ SimpleConstructorList : `SimpleConstructor` | `SimpleConstructor` "|" `SimpleConstructorList`;

392+ Constructor : `DocComment`? `FnName` `TypeSig`;

393+ SimpleConstructor : `FnName` `SimpleExpr`* `DocComment`?;

394+ DSL : "dsl" `FnName` `OpenBlock` `Overload'`+ `CloseBlock`;

395+ OverloadIdentifier : "let" | `Identifier`;

396+ Overload : `OverloadIdentifier` "=" `Expr`;

397+

398+

399+=========

400+Operators

401+=========

402+

403+.. productionlist::

404+ BacktickOperator: `Name` ;

405+ OperatorName: `SymbolicOperator` : `BacktickOperator` ;

406+ OperatorFront: "(" "=" ")" | (`Identifier_t` ".")? "(" `Operator_t` ")" ;

407+ FnName: `Name` | `OperatorFront`;

408+ Fixity: `FixityType` `Natural_t` `OperatorList` `Terminator`;

409+ FixityType: "infixl" | "infixr" | "infix" | "prefix";

410+

411+

412+==============

413+Documentation

414+==============

415+

416+.. productionlist::

417+ SingleLineComment_t: "--" ~`EOL_t`* `EOL_t` ;

418+ MultiLineComment_t: "{" .. "}" | "{ -" `InCommentChars_t` ;

419+ InCommentChars_t : "- }" | `MultiLineComment_t` `InCommentChars_t` | ~"- }"+ `InCommentChars_t`;

420+ DocComment_t : `DocCommentLine` (`ArgCommentLine` `DocCommentLine`*)* ;

421+ DocCommentLine : "|||" ~`EOL_t`* `EOL_t` ;

422+ ArgCommentLine : "|||" "@" ~`EOL_t`* `EOL_t` ;

docs/reference/type-directed-search.rst+1−1

@@ -4,7 +4,7 @@ Type Directed Search ``:search``

4

5Idris' ``:search`` command searches for terms according to their

6approximate type signature (much like

7−`Hoogle <http://www.haskell.org/hoogle/>`__ for Haskell). For

7+`Hoogle <https://www.haskell.org/hoogle/>`__ for Haskell). For

8example::

9

10 Idris> :search e -> List e -> List e

docs/reference/uniqueness-types.rst+2−2

@@ -13,7 +13,7 @@ ideally while giving up as little high level conveniences as possible.

13

14They are inspired by linear types, `Uniqueness Types

15<https://en.wikipedia.org/wiki/Uniqueness_type>`__ in the `Clean

16−<http://wiki.clean.cs.ru.nl/Clean>`__ programming language, and

16+<https://wiki.clean.cs.ru.nl/Clean>`__ programming language, and

17ownership types and borrowed pointers in the `Rust

18<https://www.rust-lang.org/>`__ programming language.

19

@@ -199,7 +199,7 @@ return it in exactly the condition in which it was received!

199The restriction is that when a ``Borrowed`` type is matched, any

200pattern variables under the ``Read`` which have a unique type may not

201be referred to at all on the right hand side (unless they are

202−themselves ``lent`` to another function).

202+themselves lent to another function).

203

204Uniqueness information is stored in the type, and in particular in

205function types. Once we're in a unique context, any new function which

docs/st/examples.rst+1−1

@@ -350,7 +350,7 @@ Implementing ``Sockets``

350

351To implement ``Sockets`` in ``IO``, we'll begin by giving a concrete type

352for ``Sock``. We can use the raw sockets API (implemented in

353−``Network.Sockeet``) for this, and use a ``Socket`` stored in a ``State``, no

353+``Network.Socket``) for this, and use a ``Socket`` stored in a ``State``, no

354matter what abstract state the socket is in:

355

356.. code-block:: idris

docs/st/index.rst+1−1

@@ -14,7 +14,7 @@ the `Control.ST` library in `Idris`.

14 Idris Community* has waived all copyright and related or neighbouring

15 rights to Documentation for Idris.

16

17− More information concerning the CC0 can be found online at: http://creativecommons.org/publicdomain/zero/1.0/

17+ More information concerning the CC0 can be found online at: https://creativecommons.org/publicdomain/zero/1.0/

18

19.. toctree::

20 :maxdepth: 1

docs/st/introduction.rst+1−1

@@ -3,7 +3,7 @@ Overview

3********

4

5Pure functional languages with dependent types such as `Idris

6−<http://www.idris-lang.org/>`_ support reasoning about programs directly

6+<https://www.idris-lang.org/>`_ support reasoning about programs directly

7in the type system, promising that we can *know* a program will run

8correctly (i.e. according to the specification in its type) simply

9because it compiles.

docs/st/state.rst+1−1

@@ -164,7 +164,7 @@ can define ``ioMakeAndIncrement`` as follows:

164 lift $ putStrLn ("var = " ++ show !(read var))

165 delete var

166

167−The ``lift`` function allows us to use funtions from the underlying

167+The ``lift`` function allows us to use functions from the underlying

168computation context (``IO`` here) directly. Again, we'll see the exact type

169of ``lift`` shortly.

170

docs/tutorial/conclusions.rst+6−6

@@ -7,11 +7,11 @@ Further Reading

7Further information about Idris programming, and programming with

8dependent types in general, can be obtained from various sources:

9

10−- The Idris web site (http://www.idris-lang.org/) and by asking

10+- The Idris web site (https://www.idris-lang.org/) and by asking

11 questions on the mailing list.

12

13- The IRC channel ``#idris``, on

14− `chat.freenode.net <http://chat.freenode.net>`__.

14+ `webchat.freenode.net <https://webchat.freenode.net/>`__.

15

16- The wiki (https://github.com/idris-lang/Idris-dev/wiki/) has further

17 user provided information, in particular:

@@ -25,7 +25,7 @@ dependent types in general, can be obtained from various sources:

25 https://github.com/idris-lang/Idris-dev.

26

27- Existing projects on the ``Idris Hackers`` web space:

28− http://idris-hackers.github.io.

28+ https://idris-hackers.github.io.

29

30- Various papers (e.g. [1]_, [2]_, and [3]_). Although these mostly

31 describe older versions of Idris.

@@ -36,14 +36,14 @@ dependent types in general, can be obtained from various sources:

36 Aspects of Declarative Languages (PADL'12), Claudio Russo and

37 Neng-Fa Zhou (Eds.). Springer-Verlag, Berlin, Heidelberg,

38 242-257. DOI=10.1007/978-3-642-27694-1_18

39− http://dx.doi.org/10.1007/978-3-642-27694-1_18

39+ https://dx.doi.org/10.1007/978-3-642-27694-1_18

40

41.. [2] Edwin C. Brady. 2011. IDRIS ---: systems programming meets full

42 dependent types. In Proceedings of the 5th ACM workshop on

43 Programming languages meets program verification (PLPV

44 '11). ACM, New York, NY, USA,

45 43-54. DOI=10.1145/1929529.1929536

46− http://doi.acm.org/10.1145/1929529.1929536

46+ https://doi.acm.org/10.1145/1929529.1929536

47

48.. [3] Edwin C. Brady and Kevin Hammond. 2010. Scrapping your

49 inefficient engine: using partial evaluation to improve

@@ -51,4 +51,4 @@ dependent types in general, can be obtained from various sources:

51 15th ACM SIGPLAN international conference on Functional

52 programming (ICFP '10). ACM, New York, NY, USA,

53 297-308. DOI=10.1145/1863543.1863587

54− http://doi.acm.org/10.1145/1863543.1863587

54+ https://doi.acm.org/10.1145/1863543.1863587

docs/tutorial/index.rst+1−1

@@ -15,7 +15,7 @@ existing functional programming language such as Haskell or OCaml.

15 Idris Community* has waived all copyright and related or neighboring

16 rights to Documentation for Idris.

17

18− More information concerning the CC0 can be found online at: http://creativecommons.org/publicdomain/zero/1.0/

18+ More information concerning the CC0 can be found online at: https://creativecommons.org/publicdomain/zero/1.0/

19

20

21.. toctree::

docs/tutorial/interp.rst+1−1

@@ -30,7 +30,7 @@ calculated just like any other value:

30 interpTy : Ty -> Type

31 interpTy TyInt = Integer

32 interpTy TyBool = Bool

33− interpTy (TyFun A T) = interpTy A -> interpTy T

33+ interpTy (TyFun a t) = interpTy a -> interpTy t

34

35We're going to define a representation of our language in such a way

36that only well-typed programs can be represented. We'll index the

docs/tutorial/introduction.rst+2−2

@@ -6,7 +6,7 @@ Introduction

6

7In conventional programming languages, there is a clear distinction

8between *types* and *values*. For example, in `Haskell

9−<http://www.haskell.org>`_, the following are types, representing

9+<https://www.haskell.org>`_, the following are types, representing

10integers, characters, lists of characters, and lists of any value

11respectively:

12

@@ -49,7 +49,7 @@ Intended Audience

49

50This tutorial is intended as a brief introduction to the language, and

51is aimed at readers already familiar with a functional language such

52−as `Haskell <http://www.haskell.org>`_ or `OCaml <http://ocaml.org>`_.

52+as `Haskell <https://www.haskell.org>`_ or `OCaml <https://ocaml.org>`_.

53In particular, a certain amount of familiarity with Haskell syntax is

54assumed, although most concepts will at least be explained

55briefly. The reader is also assumed to have some interest in using

docs/tutorial/miscellany.rst+3−3

@@ -131,7 +131,7 @@ an extension of ``.lidr`` then it is assumed to be a literate file. In

131literate programs, everything is assumed to be a comment unless the line

132begins with a greater than sign ``>``, for example:

133

134−.. code-block:: idris

134+.. code-block:: literate-idris

135

136 > module literate

137

@@ -242,7 +242,7 @@ through the following directives:

242Testing foreign function calls

243------------------------------

244

245−Normally, the Idris interpreter (used for typechecking and at the REPL)

245+Normally, the Idris interpreter (used for typechecking and as the REPL)

246will not perform IO actions. Additionally, as it neither generates C

247code nor compiles to machine code, the ``%lib``, ``%include`` and

248``%link`` directives have no effect. IO actions and FFI calls can be

@@ -560,7 +560,7 @@ But what about the type of ``Type``? If we ask Idris it reports:

560 Type : Type 1

561

562If ``Type`` were its own type, it would lead to an inconsistency due to

563−`Girard’s paradox <http://www.cs.cmu.edu/afs/cs.cmu.edu/user/kw/www/scans/girard72thesis.pdf>`_,

563+`Girard’s paradox <https://www.cs.cmu.edu/afs/cs.cmu.edu/user/kw/www/scans/girard72thesis.pdf>`_,

564so internally there is a *hierarchy* of types (or *universes*):

565

566.. code-block:: idris

docs/tutorial/packages.rst+1−1

@@ -6,7 +6,7 @@ Packages

6

7Idris includes a simple build system for building packages and executables

8from a named package description file. These files can be used with the

9−Idris compiler to manage the development process .

9+Idris compiler to manage the development process.

10

11Package Descriptions

12====================

docs/tutorial/syntax.rst+3−3

@@ -196,16 +196,16 @@ syntax rule, we can even go as far as:

196 Aspects of Declarative Languages (PADL'12), Claudio Russo and

197 Neng-Fa Zhou (Eds.). Springer-Verlag, Berlin, Heidelberg,

198 242-257. DOI=10.1007/978-3-642-27694-1_18

199− http://dx.doi.org/10.1007/978-3-642-27694-1_18

199+ https://dx.doi.org/10.1007/978-3-642-27694-1_18

200

201.. [2] Edwin C. Brady. 2011. IDRIS ---: systems programming meets full

202 dependent types. In Proceedings of the 5th ACM workshop on

203 Programming languages meets program verification (PLPV

204 '11). ACM, New York, NY, USA,

205 43-54. DOI=10.1145/1929529.1929536

206− http://doi.acm.org/10.1145/1929529.1929536

206+ https://doi.acm.org/10.1145/1929529.1929536

207

208.. [3] Edwin Brady and Kevin Hammond. 2010. Correct-by-Construction

209 Concurrency: Using Dependent Types to Verify Implementations of

210 Effectful Resource Usage Protocols. Fundam. Inf. 102, 2 (April

211− 2010), 145-176. http://dl.acm.org/citation.cfm?id=1883636

211+ 2010), 145-176. https://dl.acm.org/citation.cfm?id=1883636

docs/tutorial/typesfuns.rst+1−1

@@ -1190,7 +1190,7 @@ name. For example, a pair type could be defined as follows:

1190 fst : a

1191 snd : b

1192

1193−Using the ``class`` record from earlier, the size of the class can be

1193+Using the ``Class`` record from earlier, the size of the class can be

1194restricted using a ``Vect`` and the size included in the type by parameterising

1195the record with the size. For example:

1196

docs/tutorial/views.rst+1−2

@@ -153,5 +153,4 @@ generated by the pattern match will be in scope and named ``p``. For example:

153

154.. [1] Conor McBride and James McKinna. 2004. The view from the

155 left. J. Funct. Program. 14, 1 (January 2004),

156− 69-111. DOI=10.1017/S0956796803004829

156+ 69-111. https://doi.org/10.1017/S0956796803004829

157− http://dx.doi.org/10.1017/S0956796803004829ñ

idris-tutorial.pdf

Binary file not shown.

idris.cabal+109−54

@@ -1,10 +1,11 @@

1+Cabal-Version: 2.4

1Name: idris

2Name: idris

2−Version: 1.3.0

3+Version: 1.3.2

3−License: BSD3

4+License: BSD-3-Clause

4License-file: LICENSE

5License-file: LICENSE

5Author: Edwin Brady

6Author: Edwin Brady

6Maintainer: Edwin Brady <eb@cs.st-andrews.ac.uk>

7Maintainer: Edwin Brady <eb@cs.st-andrews.ac.uk>

7−Homepage: http://www.idris-lang.org/

8+Homepage: https://www.idris-lang.org/

8Bug-reports: https://github.com/idris-lang/Idris-dev/issues

9Bug-reports: https://github.com/idris-lang/Idris-dev/issues

9

10

10Stability: Beta

11Stability: Beta

@@ -16,7 +17,7 @@ Description: Idris is a general purpose language with full dependent types.

16 meaning that some aspects of a program's behaviour can be

17 meaning that some aspects of a program's behaviour can be

17 specified precisely in the type. The language is closely

18 specified precisely in the type. The language is closely

18 related to Epigram and Agda. There is a tutorial at

19 related to Epigram and Agda. There is a tutorial at

19− <http://www.idris-lang.org/documentation>.

20+ <https://www.idris-lang.org/documentation>.

20 Features include:

21 Features include:

21 .

22 .

22 * Full, first class, dependent types with dependent pattern matching

23 * Full, first class, dependent types with dependent pattern matching

@@ -41,42 +42,25 @@ Description: Idris is a general purpose language with full dependent types.

41 .

42 .

42 * Hugs style interactive environment

43 * Hugs style interactive environment

43

44

44−Cabal-Version: >= 1.22

45−

46Build-type: Custom

45Build-type: Custom

47

46

48Tested-With: GHC == 7.10.3, GHC == 8.0.1

47Tested-With: GHC == 7.10.3, GHC == 8.0.1

49

48

49+-- NOTE: due to https://github.com/haskell/cabal/issues/6125 the use of ** is

50+-- heavily discouraged.

50Data-files: idrisdoc/styles.css

51Data-files: idrisdoc/styles.css

51− jsrts/jsbn/jsbn-browser.js

52+ jsrts/jsbn/*.js

52− jsrts/jsbn/jsbn-node.js

53− jsrts/Runtime-common.js

54− jsrts/Runtime-javascript.js

55− jsrts/Runtime-node.js

53+ jsrts/*.js

56 jsrts/jsbn/LICENSE

54 jsrts/jsbn/LICENSE

55+ rts/Makefile

56+ rts/*.c

57+ rts/seL4/*.c

57− rts/arduino/idris_main.c

58+ rts/arduino/*.c

58− rts/idris_bitstring.c

59+ rts/windows/*.c

59− rts/idris_bitstring.h

60+ rts/windows/*.h

60− rts/idris_gc.c

61+ rts/*.h

61− rts/idris_gc.h

62+ rts/seL4/CMakeLists.txt

62− rts/idris_gmp.c

63+ rts/seL4/README.md

63− rts/idris_gmp.h

64− rts/idris_heap.c

65− rts/idris_heap.h

66− rts/idris_main.c

67− rts/idris_net.c

68− rts/idris_net.h

69− rts/idris_opts.c

70− rts/idris_opts.h

71− rts/idris_rts.c

72− rts/idris_rts.h

73− rts/idris_stats.c

74− rts/idris_stats.h

75− rts/idris_stdfgn.c

76− rts/idris_stdfgn.h

77− rts/mini-gmp.c

78− rts/mini-gmp.h

79− rts/libtest.c

80

64

81Extra-doc-files:

65Extra-doc-files:

82 CHANGELOG.md

66 CHANGELOG.md

@@ -86,13 +70,75 @@ Extra-doc-files:

86 README.md

70 README.md

87 RELEASE-CHECKS.md

71 RELEASE-CHECKS.md

88 idris-tutorial.pdf

72 idris-tutorial.pdf

73+ man/idris.1

89 samples/effects/*.idr

74 samples/effects/*.idr

90 samples/misc/*.idr

75 samples/misc/*.idr

91− samples/misc/*.lidr

92 samples/tutorial/*.idr

76 samples/tutorial/*.idr

77+ samples/ST/*.idr

78+ samples/ST/Graphics/*.idr

79+ samples/ST/Net/*.idr

80+ samples/misc/*.lidr

93

81

94-- extra-source-files is generated by Setup.hs using `git --ls-files`.

82-- extra-source-files is generated by Setup.hs using `git --ls-files`.

95Extra-source-files:

83Extra-source-files:

84+ Makefile

85+ config.mk

86+ custom.mk-alldeps

87+ mkpkg.sh

88+ stack-shell.nix

89+ stack.yaml

90+ stylize.sh

91+ win-release.sh

92+

93+ benchmarks/*.pl

94+ benchmarks/fasta/*.idr

95+ benchmarks/fasta/*.ipkg

96+ benchmarks/pidigits/*.idr

97+ benchmarks/pidigits/*.ipkg

98+ benchmarks/quasigroups/*.idr

99+ benchmarks/quasigroups/*.ipkg

100+ benchmarks/trivial/*.idr

101+ benchmarks/trivial/*.ipkg

102+ benchmarks/quasigroups/board

103+

104+ icons/*.png

105+ icons/*.ico

106+ icons/*.rc

107+ icons/*.svg

108+ icons/*.xml

109+

110+ libs/**/*.idr

111+ libs/**/*.ipkg

112+ libs/**/*.txt

113+ libs/Makefile

114+ libs/base/Makefile

115+ libs/contrib/Makefile

116+ libs/effects/Makefile

117+ libs/prelude/Makefile

118+ libs/pruviloj/Makefile

119+

120+ scripts/generate-multi-ghc-travis-template

121+ scripts/runidris

122+ scripts/runidris-node

123+

124+ src/.ghci

125+

126+ test/*.md

127+ test/*.hs

128+ test/**/*.idr

129+ test/**/*.lidr

130+ test/**/*.ipkg

131+ test/**/*.out

132+ test/**/*.sh

133+ test/**/*.c

134+ test/**/*.h

135+ test/**/*.in

136+ test/**/*.txt

137+ test/**/*.js

138+ test/base001/Makefile

139+ test/ffi004/theOtherType

140+ test/ffi004/theType

141+ test/scripts/timeout

96

142

97source-repository head

143source-repository head

98 type: git

144 type: git

@@ -100,7 +146,7 @@ source-repository head

100

146

101custom-setup

147custom-setup

102 setup-depends:

148 setup-depends:

103− Cabal >= 1.10 && <2.3,

149+ Cabal >= 2.4 && < 3.1,

104 base >= 4 && <5,

150 base >= 4 && <5,

105 directory,

151 directory,

106 filepath,

152 filepath,

@@ -261,58 +307,63 @@ Library

261 Util.Pretty

307 Util.Pretty

262 , Util.Net

308 , Util.Net

263

309

264−

265−

266− -- Auto Generated

267 , Paths_idris

310 , Paths_idris

268 , Version_idris

311 , Version_idris

269 , Tools_idris

312 , Tools_idris

270 , BuildFlags_idris

313 , BuildFlags_idris

271

314

315+ -- Auto Generated

316+ Autogen-modules: Paths_idris

317+ , Version_idris

318+ , Tools_idris

319+ , BuildFlags_idris

320+

272 Build-depends: base >=4 && <5

321 Build-depends: base >=4 && <5

273− , aeson >= 0.6 && < 1.4

322+ , aeson >= 0.6 && < 1.5

274 , annotated-wl-pprint >= 0.7 && < 0.8

323 , annotated-wl-pprint >= 0.7 && < 0.8

275− , ansi-terminal < 0.9

324+ , ansi-terminal < 0.11

276 , ansi-wl-pprint < 0.7

325 , ansi-wl-pprint < 0.7

277 , array >= 0.4.0.1 && < 0.6

326 , array >= 0.4.0.1 && < 0.6

278 , base64-bytestring < 1.1

327 , base64-bytestring < 1.1

279 , binary >= 0.8.4.1 && < 0.9

328 , binary >= 0.8.4.1 && < 0.9

280 , blaze-html >= 0.6.1.3 && < 0.10

329 , blaze-html >= 0.6.1.3 && < 0.10

281− , blaze-markup >= 0.5.2.1 && < 0.9

330+ , blaze-markup >= 0.5.2.1 && < 0.10

282 , bytestring < 0.11

331 , bytestring < 0.11

283− , cheapskate >= 0.1.1 && < 0.2

332+ , cheapskate >= 0.1.1.2 && < 0.2

284− , code-page >= 0.1 && < 0.2

333+ , code-page >= 0.1 && < 0.3

285− , containers >= 0.5 && < 0.6

334+ , containers >= 0.5 && < 0.7

286 , deepseq < 1.5

335 , deepseq < 1.5

287 , directory >= 1.2.2.0 && < 1.2.3.0 || > 1.2.3.0

336 , directory >= 1.2.2.0 && < 1.2.3.0 || > 1.2.3.0

288 , filepath < 1.5

337 , filepath < 1.5

289 , fingertree >= 0.1.4.1 && < 0.2

338 , fingertree >= 0.1.4.1 && < 0.2

290 , haskeline >= 0.7 && < 0.8

339 , haskeline >= 0.7 && < 0.8

291 , ieee754 >= 0.7 && < 0.9

340 , ieee754 >= 0.7 && < 0.9

292− , megaparsec >= 6.2 && < 7

341+ , megaparsec >= 7.0.4 && < 9

293 , mtl >= 2.1 && < 2.3

342 , mtl >= 2.1 && < 2.3

294− , network < 2.8

343+ , network >= 2.7 && < 3.1.2

295− , optparse-applicative >= 0.13 && < 0.15

344+ , optparse-applicative >= 0.13 && < 0.16

345+ , parser-combinators >= 1.0.0

296 , pretty < 1.2

346 , pretty < 1.2

297 , process < 1.7

347 , process < 1.7

298 , regex-tdfa >= 1.2

348 , regex-tdfa >= 1.2

299 , safe >= 0.3.9

349 , safe >= 0.3.9

300 , split < 0.3

350 , split < 0.3

301 , terminal-size < 0.4

351 , terminal-size < 0.4

302− , text >=1.2.1.0 && < 1.3

352+ , text >=1.2.1.0 && < 1.4

303− , time >= 1.4 && < 1.9

353+ , time >= 1.4 && < 2.0

304 , transformers >= 0.5 && < 0.6

354 , transformers >= 0.5 && < 0.6

305 , uniplate >=1.6 && < 1.7

355 , uniplate >=1.6 && < 1.7

306 , unordered-containers < 0.3

356 , unordered-containers < 0.3

307 , utf8-string < 1.1

357 , utf8-string < 1.1

308 , vector < 0.13

358 , vector < 0.13

309 , vector-binary-instances < 0.3

359 , vector-binary-instances < 0.3

310− , zip-archive > 0.2.3.5 && < 0.4

360+ , zip-archive > 0.2.3.5 && < 0.5

311− , fsnotify >= 0.2 && < 2.2

361+ , fsnotify >= 0.2 && < 0.4

312 , async < 2.3

362 , async < 2.3

313

363

314 if !impl(ghc >= 8.0)

364 if !impl(ghc >= 8.0)

315− Build-Depends: semigroups == 0.18.*

365+ Build-Depends: semigroups == 0.18.*

366+ , fail == 4.9.0.*

316

367

317 Default-Language: Haskell2010

368 Default-Language: Haskell2010

318 ghc-prof-options: -auto-all -caf-all

369 ghc-prof-options: -auto-all -caf-all

@@ -331,6 +382,7 @@ Library

331 cpp-options: -DIDRIS_GMP

382 cpp-options: -DIDRIS_GMP

332 if flag(freestanding)

383 if flag(freestanding)

333 other-modules: Target_idris

384 other-modules: Target_idris

385+ autogen-modules: Target_idris

334 cpp-options: -DFREESTANDING

386 cpp-options: -DFREESTANDING

335 if flag(CI)

387 if flag(CI)

336 ghc-options: -Werror

388 ghc-options: -Werror

@@ -364,7 +416,7 @@ Test-suite regression-and-feature-tests

364 , filepath

416 , filepath

365 , directory

417 , directory

366 , haskeline >= 0.7

418 , haskeline >= 0.7

367− , optparse-applicative >= 0.13 && < 0.15

419+ , optparse-applicative >= 0.13 && < 0.16

368 , tagged

420 , tagged

369 , tasty >= 0.8

421 , tasty >= 0.8

370 , tasty-golden >= 2.0

422 , tasty-golden >= 2.0

@@ -379,6 +431,7 @@ Test-suite regression-and-feature-tests

379

431

380Executable idris-codegen-c

432Executable idris-codegen-c

381 Main-is: Main.hs

433 Main-is: Main.hs

434+ autogen-modules: Paths_idris

382 other-modules: Paths_idris

435 other-modules: Paths_idris

383 hs-source-dirs: codegen/idris-codegen-c

436 hs-source-dirs: codegen/idris-codegen-c

384

437

@@ -394,6 +447,7 @@ Executable idris-codegen-c

394

447

395Executable idris-codegen-javascript

448Executable idris-codegen-javascript

396 Main-is: Main.hs

449 Main-is: Main.hs

450+ autogen-modules: Paths_idris

397 other-modules: Paths_idris

451 other-modules: Paths_idris

398 hs-source-dirs: codegen/idris-codegen-javascript

452 hs-source-dirs: codegen/idris-codegen-javascript

399

453

@@ -409,6 +463,7 @@ Executable idris-codegen-javascript

409

463

410Executable idris-codegen-node

464Executable idris-codegen-node

411 Main-is: Main.hs

465 Main-is: Main.hs

466+ autogen-modules: Paths_idris

412 other-modules: Paths_idris

467 other-modules: Paths_idris

413 hs-source-dirs: codegen/idris-codegen-node

468 hs-source-dirs: codegen/idris-codegen-node

414

469

jsrts/Runtime-javascript.js+6−2

@@ -7,5 +7,9 @@ $JSRTS.prim_systemInfo = function (index) {

7 }

8 return "";

9};

10+

10−$JSRTS.prim_writeStr = function (x) { return console.log(x) }

11+$JSRTS.prim_writeStr = function (x) { return console.log(x) };

12+

11−$JSRTS.prim_readStr = function () { return prompt('Prelude.getLine') };

13+$JSRTS.prim_readStr = function () { return prompt('Prelude.getLine') };

14+

15+$JSRTS.die = function (message) { throw new Error(message) };

jsrts/Runtime-node.js+13−4

@@ -1,5 +1,7 @@

1$JSRTS.os = require('os');

2+

2$JSRTS.fs = require('fs');

3$JSRTS.fs = require('fs');

4+

3$JSRTS.prim_systemInfo = function (index) {

5$JSRTS.prim_systemInfo = function (index) {

4 switch (index) {

6 switch (index) {

5 case 0:

7 case 0:

@@ -9,10 +11,12 @@ $JSRTS.prim_systemInfo = function (index) {

9 }

11 }

10 return "";

12 return "";

11};

13};

14+

12−$JSRTS.prim_writeStr = function (x) { return process.stdout.write(x) }

15+$JSRTS.prim_writeStr = function (x) { return process.stdout.write(x) };

16+

13$JSRTS.prim_readStr = function () {

17$JSRTS.prim_readStr = function () {

14 var ret = '';

18 var ret = '';

15− var b = new Buffer(1024);

19+ var b = Buffer.alloc(1024);

16 var i = 0;

20 var i = 0;

17 while (true) {

21 while (true) {

18 $JSRTS.fs.readSync(0, b, i, 1)

22 $JSRTS.fs.readSync(0, b, i, 1)

@@ -22,10 +26,15 @@ $JSRTS.prim_readStr = function () {

22 }

26 }

23 i++;

27 i++;

24 if (i == b.length) {

28 if (i == b.length) {

25− var nb = new Buffer(b.length * 2);

29+ var nb = Buffer.alloc(b.length * 2);

26 b.copy(nb)

30 b.copy(nb)

27 b = nb;

31 b = nb;

28 }

32 }

29 }

33 }

30 return ret;

34 return ret;

31−};

35+};

36+

37+$JSRTS.die = function (message) {

38+ console.error(message);

39+ process.exit(-1);

40+};

libs/base/Control/Catchable.idr+1

@@ -7,6 +7,7 @@ import Control.Monad.RWS

7import Control.Monad.Trans

8

9%access public export

10+%default total

10

11

11interface Catchable (m : Type -> Type) t | m where

12interface Catchable (m : Type -> Type) t | m where

12 throw : t -> m a

13 throw : t -> m a

libs/base/Control/Isomorphism.idr+20−23

@@ -17,21 +17,22 @@ record Iso a b where

17

18-- Isomorphism properties

19

20−||| Isomorphism is Reflexive

20+||| Isomorphism is reflexive

21isoRefl : Iso a a

22−isoRefl = MkIso id id (\x => Refl) (\x => Refl)

22+isoRefl = MkIso id id (\_ => Refl) (\_ => Refl)

23

24||| Isomorphism is transitive

25isoTrans : Iso a b -> Iso b c -> Iso a c

26isoTrans (MkIso to from toFrom fromTo) (MkIso to' from' toFrom' fromTo') =

27− MkIso (\x => to' (to x))

27+ MkIso xto xfrom xtoFrom xfromTo where

28− (\y => from (from' y))

28+ xto : a -> c

29− (\y => (to' (to (from (from' y)))) ={ cong (toFrom (from' y)) }=

29+ xto = to' . to

30+ xfrom : c -> a

31+ xfrom = from . from'

32+ xtoFrom : (z : c) -> xto (xfrom z) = z

30− (to' (from' y)) ={ toFrom' y }=

33+ xtoFrom z = rewrite toFrom $ from' z in toFrom' z

31− y QED)

34+ xfromTo : (x : a) -> xfrom (xto x) = x

32− (\x => (from (from' (to' (to x)))) ={ cong (fromTo' (to x)) }=

35+ xfromTo x = rewrite fromTo' (to x) in fromTo x

33− (from (to x)) ={ fromTo x }=

34− x QED)

35

36

36Category Iso where

37Category Iso where

37 id = isoRefl

38 id = isoRefl

@@ -99,8 +100,7 @@ eitherBotRight = isoTrans eitherComm eitherBotLeft

99

100

100||| Isomorphism is a congruence with regards to disjunction

101||| Isomorphism is a congruence with regards to disjunction

101eitherCong : Iso a a' -> Iso b b' -> Iso (Either a b) (Either a' b')

102eitherCong : Iso a a' -> Iso b b' -> Iso (Either a b) (Either a' b')

102−eitherCong {a = a} {a' = a'} {b = b} {b' = b'}

103− (MkIso to from toFrom fromTo)

103+eitherCong (MkIso to from toFrom fromTo)

104 (MkIso to' from' toFrom' fromTo') =

105 MkIso (eitherMap to to') (eitherMap from from') ok1 ok2

106 where eitherMap : (c -> c') -> (d -> d') -> Either c d -> Either c' d'

@@ -143,9 +143,7 @@ pairAssoc = MkIso to from ok1 ok2

143

144||| Conjunction with truth is a no-op

145pairUnitRight : Iso (a, ()) a

146−pairUnitRight = MkIso fst (\x => (x, ())) (\x => Refl) ok

146+pairUnitRight = MkIso fst (\x => (x, ())) (\_ => Refl) (\(_, ()) => Refl)

147− where ok : (x : (a, ())) -> (fst x, ()) = x

148− ok (x, ()) = Refl

149

147

150||| Conjunction with truth is a no-op

148||| Conjunction with truth is a no-op

151pairUnitLeft : Iso ((), a) a

149pairUnitLeft : Iso ((), a) a

@@ -161,8 +159,7 @@ pairBotRight = isoTrans pairComm pairBotLeft

161

159

162||| Isomorphism is a congruence with regards to conjunction

160||| Isomorphism is a congruence with regards to conjunction

163pairCong : Iso a a' -> Iso b b' -> Iso (a, b) (a', b')

161pairCong : Iso a a' -> Iso b b' -> Iso (a, b) (a', b')

164−pairCong {a = a} {a' = a'} {b = b} {b' = b'}

165− (MkIso to from toFrom fromTo)

162+pairCong (MkIso to from toFrom fromTo)

166 (MkIso to' from' toFrom' fromTo') =

163 (MkIso to' from' toFrom' fromTo') =

167 MkIso to'' from'' iso1 iso2

164 MkIso to'' from'' iso1 iso2

168 where to'' : (a, b) -> (a', b')

165 where to'' : (a, b) -> (a', b')

@@ -205,7 +202,7 @@ distribLeft = MkIso to from toFrom fromTo

205

202

206||| Products distribute over sums

203||| Products distribute over sums

207distribRight : Iso (a, Either b c) (Either (a, b) (a, c))

204distribRight : Iso (a, Either b c) (Either (a, b) (a, c))

208−distribRight {a} {b} {c} = (pairComm `isoTrans` distribLeft) `isoTrans` eitherCong pairComm pairComm

205+distribRight = (pairComm `isoTrans` distribLeft) `isoTrans` eitherCong pairComm pairComm

209

206

210

207

211-- Enable preorder reasoning syntax over isomorphisms

208-- Enable preorder reasoning syntax over isomorphisms

@@ -222,7 +219,7 @@ step a iso1 iso2 = isoTrans iso1 iso2

222-- Isomorphisms over Maybe

219-- Isomorphisms over Maybe

223||| Isomorphism is a congruence with respect to Maybe

220||| Isomorphism is a congruence with respect to Maybe

224maybeCong : Iso a b -> Iso (Maybe a) (Maybe b)

221maybeCong : Iso a b -> Iso (Maybe a) (Maybe b)

225−maybeCong {a} {b} (MkIso to from toFrom fromTo) = MkIso (map to) (map from) ok1 ok2

222+maybeCong (MkIso to from toFrom fromTo) = MkIso (map to) (map from) ok1 ok2

226 where ok1 : (y : Maybe b) -> map to (map from y) = y

223 where ok1 : (y : Maybe b) -> map to (map from y) = y

227 ok1 Nothing = Refl

224 ok1 Nothing = Refl

228 ok1 (Just x) = (Just (to (from x))) ={ cong (toFrom x) }= (Just x) QED

225 ok1 (Just x) = (Just (to (from x))) ={ cong (toFrom x) }= (Just x) QED

@@ -253,7 +250,7 @@ maybeVoidUnit = (Maybe Void) ={ maybeEither }=

253 () QED

250 () QED

254

251

255eitherMaybeLeftMaybe : Iso (Either (Maybe a) b) (Maybe (Either a b))

252eitherMaybeLeftMaybe : Iso (Either (Maybe a) b) (Maybe (Either a b))

256−eitherMaybeLeftMaybe {a} {b} =

253+eitherMaybeLeftMaybe =

257 (Either (Maybe a) b) ={ eitherCongLeft maybeEither }=

254 (Either (Maybe a) b) ={ eitherCongLeft maybeEither }=

258 (Either (Either a ()) b) ={ eitherAssoc }=

255 (Either (Either a ()) b) ={ eitherAssoc }=

259 (Either a (Either () b)) ={ eitherCongRight eitherComm }=

256 (Either a (Either () b)) ={ eitherCongRight eitherComm }=

@@ -263,7 +260,7 @@ eitherMaybeLeftMaybe {a} {b} =

263

260

264

261

265eitherMaybeRightMaybe : Iso (Either a (Maybe b)) (Maybe (Either a b))

262eitherMaybeRightMaybe : Iso (Either a (Maybe b)) (Maybe (Either a b))

266−eitherMaybeRightMaybe {a} {b} =

263+eitherMaybeRightMaybe =

267 (Either a (Maybe b)) ={ eitherComm }=

264 (Either a (Maybe b)) ={ eitherComm }=

268 (Either (Maybe b) a) ={ eitherMaybeLeftMaybe }=

265 (Either (Maybe b) a) ={ eitherMaybeLeftMaybe }=

269 (Maybe (Either b a)) ={ maybeCong eitherComm }=

266 (Maybe (Either b a)) ={ maybeCong eitherComm }=

@@ -288,8 +285,8 @@ maybeIsoS = MkIso forth back fb bf

288 fb (FS x) = Refl

285 fb (FS x) = Refl

289

286

290finZeroBot : Iso (Fin 0) Void

287finZeroBot : Iso (Fin 0) Void

291−finZeroBot = MkIso (\x => void (uninhabited x))

288+finZeroBot = MkIso (void . uninhabited)

292− (\x => void x)

289+ void

293 (\x => void x)

290 (\x => void x)

294 (\x => void (uninhabited x))

291 (\x => void (uninhabited x))

295

292

libs/base/Control/Monad/Identity.idr+6

@@ -29,3 +29,9 @@ Enum a => Enum (Identity a) where

29 toNat (Id x) = toNat x

30 fromNat n = Id $ fromNat n

31 pred (Id n) = Id $ pred n

32+

33+(Semigroup a) => Semigroup (Identity a) where

34+ (<+>) x y = Id (runIdentity x <+> runIdentity y)

35+

36+(Monoid a) => Monoid (Identity a) where

37+ neutral = Id (neutral)

libs/base/Control/Monad/Writer.idr+3

@@ -64,3 +64,6 @@ censor f m = pass $ do a <- m

64||| The Writer monad itself. See the MonadWriter interface

65Writer : Type -> Type -> Type

66Writer w a = WriterT w Identity a

67+

68+runWriter : Writer w a -> (a, w)

69+runWriter = runIdentity . runWriterT

libs/base/Data/Fin.idr+9

@@ -65,6 +65,11 @@ weakenN : (n : Nat) -> Fin m -> Fin (m + n)

65weakenN n FZ = FZ

66weakenN n (FS f) = FS (weakenN n f)

67

68+||| Weaken the bound on a Fin using an inequality proof

69+weakenLTE : LTE n m -> Fin n -> Fin m

70+weakenLTE (LTESucc p) FZ = FZ

71+weakenLTE (LTESucc p) (FS f) = FS $ weakenLTE p f

72+

68||| Attempt to tighten the bound on a Fin.

73||| Attempt to tighten the bound on a Fin.

69||| Return `Left` if the bound could not be tightened, or `Right` if it could.

74||| Return `Left` if the bound could not be tightened, or `Right` if it could.

70strengthen : Fin (S n) -> Either (Fin (S n)) (Fin n)

75strengthen : Fin (S n) -> Either (Fin (S n)) (Fin n)

@@ -101,6 +106,10 @@ implementation MinBound (Fin (S n)) where

101implementation MaxBound (Fin (S n)) where

106implementation MaxBound (Fin (S n)) where

102 maxBound = last

107 maxBound = last

103

108

109+||| Add two Fins

110+addFin : (x : Fin n) -> (y : Fin m) -> Fin (finToNat x + m)

111+addFin FZ y = y

112+addFin (FS x) y = FS $ addFin x y

104

113

105-- Construct a Fin from an integer literal which must fit in the given Fin

114-- Construct a Fin from an integer literal which must fit in the given Fin

106

115

libs/base/Data/IORef.idr+2

@@ -1,5 +1,7 @@

1module Data.IORef

2

3+%default total

4+

3||| A mutable variable in the IO monad.

5||| A mutable variable in the IO monad.

4export

6export

5data IORef a = MkIORef a

7data IORef a = MkIORef a

libs/base/Data/List/Quantifiers.idr+5

@@ -75,3 +75,8 @@ all d (x::xs) with (d x)

75 case all d xs of

76 Yes prf' => Yes (prf :: prf')

77 No prf' => No (notAllThere prf')

78+

79+||| Given a proof of membership for some element, extract the property proof for it

80+indexAll : Elem x xs -> All p xs -> p x

81+indexAll Here (p::_ ) = p

82+indexAll (There e) ( _::ps) = indexAll e ps

libs/base/Data/So.idr+11−1

@@ -12,7 +12,7 @@ module Data.So

12||| If you find yourself using `So` for something other than primitive types,

13||| it may be appropriate to define a type of evidence for the property that you

14||| care about instead.

15−data So : Bool -> Type where

15+data So : Bool -> Type where

16 Oh : So True

17

18implementation Uninhabited (So False) where

@@ -23,4 +23,14 @@ choose : (b : Bool) -> Either (So b) (So (not b))

23choose True = Left Oh

24choose False = Right Oh

25

26+||| Absurd when you have proof that both `b` and `not b` is true.

27+export

28+soAbsurd : So b -> So (not b) -> Void

29+soAbsurd sb snb with (sb)

30+ | Oh = uninhabited snb

31+

32+||| Transmission between usage of value-level `not` and type-level `Not`.

33+export

34+soNotToNotSo : So (not b) -> Not (So b)

35+soNotToNotSo = flip soAbsurd

26

36

libs/base/Data/Vect.idr+281−2

@@ -45,36 +45,64 @@ lengthCorrect (S n) (x :: xs) = rewrite lengthCorrect n xs in Refl

45--------------------------------------------------------------------------------

46

47||| All but the first element of the vector

48+|||

49+||| ```idris example

50+||| tail [1,2,3,4]

51+||| ```

48tail : Vect (S len) elem -> Vect len elem

52tail : Vect (S len) elem -> Vect len elem

49tail (x::xs) = xs

53tail (x::xs) = xs

50

54

51||| Only the first element of the vector

55||| Only the first element of the vector

56+|||

57+||| ```idris example

58+||| head [1,2,3,4]

59+||| ```

52head : Vect (S len) elem -> elem

60head : Vect (S len) elem -> elem

53head (x::xs) = x

61head (x::xs) = x

54

62

55||| The last element of the vector

63||| The last element of the vector

64+|||

65+||| ```idris example

66+||| last [1,2,3,4]

67+||| ```

56last : Vect (S len) elem -> elem

68last : Vect (S len) elem -> elem

57last (x::[]) = x

69last (x::[]) = x

58last (x::y::ys) = last $ y::ys

70last (x::y::ys) = last $ y::ys

59

71

60||| All but the last element of the vector

72||| All but the last element of the vector

73+|||

74+||| ```idris example

75+||| init [1,2,3,4]

76+||| ```

61init : Vect (S len) elem -> Vect len elem

77init : Vect (S len) elem -> Vect len elem

62init (x::[]) = []

78init (x::[]) = []

63init (x::y::ys) = x :: init (y::ys)

79init (x::y::ys) = x :: init (y::ys)

64

80

65||| Extract a particular element from a vector

81||| Extract a particular element from a vector

82+|||

83+||| ```idris example

84+||| index 1 [1,2,3,4]

85+||| ```

66index : Fin len -> Vect len elem -> elem

86index : Fin len -> Vect len elem -> elem

67index FZ (x::xs) = x

87index FZ (x::xs) = x

68index (FS k) (x::xs) = index k xs

88index (FS k) (x::xs) = index k xs

69

89

70

90

71||| Insert an element at a particular index

91||| Insert an element at a particular index

92+|||

93+||| ```idris example

94+||| insertAt 1 8 [1,2,3,4]

95+||| ```

72insertAt : Fin (S len) -> elem -> Vect len elem -> Vect (S len) elem

96insertAt : Fin (S len) -> elem -> Vect len elem -> Vect (S len) elem

73insertAt FZ y xs = y :: xs

97insertAt FZ y xs = y :: xs

74insertAt (FS k) y (x::xs) = x :: insertAt k y xs

98insertAt (FS k) y (x::xs) = x :: insertAt k y xs

75insertAt (FS k) y [] = absurd k

99insertAt (FS k) y [] = absurd k

76

100

77||| Construct a new vector consisting of all but the indicated element

101||| Construct a new vector consisting of all but the indicated element

102+|||

103+||| ```idris example

104+||| deleteAt 1 [1,2,3,4]

105+||| ```

78deleteAt : Fin (S len) -> Vect (S len) elem -> Vect len elem

106deleteAt : Fin (S len) -> Vect (S len) elem -> Vect len elem

79deleteAt FZ (x::xs) = xs

107deleteAt FZ (x::xs) = xs

80deleteAt {len = S m} (FS k) (x::xs) = x :: deleteAt k xs

108deleteAt {len = S m} (FS k) (x::xs) = x :: deleteAt k xs

@@ -82,6 +110,10 @@ deleteAt {len = Z} (FS k) (x::xs) = absurd k

82deleteAt _ [] impossible

110deleteAt _ [] impossible

83

111

84||| Replace an element at a particlar index with another

112||| Replace an element at a particlar index with another

113+|||

114+||| ```idris example

115+||| replaceAt 1 8 [1,2,3,4]

116+||| ```

85replaceAt : Fin len -> elem -> Vect len elem -> Vect len elem

117replaceAt : Fin len -> elem -> Vect len elem -> Vect len elem

86replaceAt FZ y (x::xs) = y :: xs

118replaceAt FZ y (x::xs) = y :: xs

87replaceAt (FS k) y (x::xs) = x :: replaceAt k y xs

119replaceAt (FS k) y (x::xs) = x :: replaceAt k y xs

@@ -90,6 +122,10 @@ replaceAt (FS k) y (x::xs) = x :: replaceAt k y xs

90||| @ i the index to replace at

122||| @ i the index to replace at

91||| @ f the update function

123||| @ f the update function

92||| @ xs the vector to replace in

124||| @ xs the vector to replace in

125+|||

126+||| ```idris example

127+||| updateAt 1 (+10) [1,2,3,4]

128+||| ```

93updateAt : (i : Fin len) -> (f : elem -> elem) -> (xs : Vect len elem) -> Vect len elem

129updateAt : (i : Fin len) -> (f : elem -> elem) -> (xs : Vect len elem) -> Vect len elem

94updateAt FZ f (x::xs) = f x :: xs

130updateAt FZ f (x::xs) = f x :: xs

95updateAt (FS k) f (x::xs) = x :: updateAt k f xs

131updateAt (FS k) f (x::xs) = x :: updateAt k f xs

@@ -100,20 +136,54 @@ updateAt (FS k) f (x::xs) = x :: updateAt k f xs

100

136

101||| Get the first n elements of a Vect

137||| Get the first n elements of a Vect

102||| @ n the number of elements to take

138||| @ n the number of elements to take

139+|||

140+||| ```idris example

141+||| take 2 [1,2,3,4]

142+||| ```

103take : (n : Nat) -> Vect (n + m) elem -> Vect n elem

143take : (n : Nat) -> Vect (n + m) elem -> Vect n elem

104take Z xs = []

144take Z xs = []

105take (S k) (x :: xs) = x :: take k xs

145take (S k) (x :: xs) = x :: take k xs

106

146

107||| Remove the first n elements of a Vect

147||| Remove the first n elements of a Vect

108||| @ n the number of elements to remove

148||| @ n the number of elements to remove

149+|||

150+||| ```idris example

151+||| drop 2 [1,2,3,4]

152+||| ```

109drop : (n : Nat) -> Vect (n + m) elem -> Vect m elem

153drop : (n : Nat) -> Vect (n + m) elem -> Vect m elem

110drop Z xs = xs

154drop Z xs = xs

111drop (S k) (x :: xs) = drop k xs

155drop (S k) (x :: xs) = drop k xs

112

156

157+||| Take up to the first n elements of a Vect if they exist.

158+||| @ n the maximum number of elements to take

159+|||

160+||| ```idris example

161+||| takeUpto 10 [1,2,3,4]

162+||| ```

163+takeUpto : (x : Nat) -> Vect n elem -> Vect (minimum x n) elem

164+takeUpto Z ys = []

165+takeUpto x [] = rewrite minimumZeroZeroLeft x in []

166+takeUpto (S x) (y::ys) = y :: takeUpto x ys

167+

168+||| Drop up to the first n elements of a Vect if they exist.

169+||| @ n the maximum number of elements to remove.

170+|||

171+||| ```idris example

172+||| dropUpto 10 [1,2,3,4]

173+||| ```

174+dropUpto : (x : Nat) -> Vect n elem -> Vect (n `minus` minimum x n) elem

175+dropUpto Z ys {n} = rewrite minusZeroRight n in ys

176+dropUpto x [] = []

177+dropUpto (S x) (y :: ys) = dropUpto x ys

178+

113||| Take the longest prefix of a Vect such that all elements satisfy some

179||| Take the longest prefix of a Vect such that all elements satisfy some

114||| Boolean predicate.

180||| Boolean predicate.

115|||

181|||

116||| @ p the predicate

182||| @ p the predicate

183+|||

184+||| ```idris example

185+||| takeWhile (<3) [1,2,3,4]

186+||| ```

117takeWhile : (p : elem -> Bool) -> Vect len elem -> (q ** Vect q elem)

187takeWhile : (p : elem -> Bool) -> Vect len elem -> (q ** Vect q elem)

118takeWhile p [] = (_ ** [])

188takeWhile p [] = (_ ** [])

119takeWhile p (x::xs) =

189takeWhile p (x::xs) =

@@ -127,6 +197,10 @@ takeWhile p (x::xs) =

127||| Boolean predicate.

197||| Boolean predicate.

128|||

198|||

129||| @ p the predicate

199||| @ p the predicate

200+|||

201+||| ```idris example

202+||| dropWhile (<3) [1,2,3,4]

203+||| ```

130dropWhile : (p : elem -> Bool) -> Vect len elem -> (q ** Vect q elem)

204dropWhile : (p : elem -> Bool) -> Vect len elem -> (q ** Vect q elem)

131dropWhile p [] = (_ ** [])

205dropWhile p [] = (_ ** [])

132dropWhile p (x::xs) =

206dropWhile p (x::xs) =

@@ -140,6 +214,10 @@ dropWhile p (x::xs) =

140--------------------------------------------------------------------------------

214--------------------------------------------------------------------------------

141

215

142||| Reverse the order of the elements of a vector

216||| Reverse the order of the elements of a vector

217+|||

218+||| ```idris example

219+||| reverse [1,2,3,4]

220+||| ```

143reverse : Vect len elem -> Vect len elem

221reverse : Vect len elem -> Vect len elem

144reverse xs = go [] xs

222reverse xs = go [] xs

145 where go : Vect n elem -> Vect m elem -> Vect (n+m) elem

223 where go : Vect n elem -> Vect m elem -> Vect (n+m) elem

@@ -150,6 +228,10 @@ reverse xs = go [] xs

150||| Alternate an element between the other elements of a vector

228||| Alternate an element between the other elements of a vector

151||| @ sep the element to intersperse

229||| @ sep the element to intersperse

152||| @ xs the vector to separate with `sep`

230||| @ xs the vector to separate with `sep`

231+|||

232+||| ```idris example

233+||| intersperse 0 [1,2,3,4]

234+||| ```

153intersperse : (sep : elem) -> (xs : Vect len elem) -> Vect (len + pred len) elem

235intersperse : (sep : elem) -> (xs : Vect len elem) -> Vect (len + pred len) elem

154intersperse sep [] = []

236intersperse sep [] = []

155intersperse sep (x::xs) = x :: intersperse' sep xs

237intersperse sep (x::xs) = x :: intersperse' sep xs

@@ -174,6 +256,10 @@ fromList' {len} ys (x::xs) =

174||| Convert a list to a vector.

256||| Convert a list to a vector.

175|||

257|||

176||| The length of the list should be statically known.

258||| The length of the list should be statically known.

259+|||

260+||| ```idris example

261+||| fromList [1,2,3,4]

262+||| ```

177fromList : (l : List elem) -> Vect (length l) elem

263fromList : (l : List elem) -> Vect (length l) elem

178fromList l =

264fromList l =

179 rewrite (sym $ plusZeroRightNeutral (length l)) in

265 rewrite (sym $ plusZeroRightNeutral (length l)) in

@@ -184,19 +270,31 @@ fromList l =

184--------------------------------------------------------------------------------

270--------------------------------------------------------------------------------

185

271

186||| Append two vectors

272||| Append two vectors

273+|||

274+||| ```idris example

275+||| [1,2,3,4] ++ [5,6]

276+||| ```

187(++) : (xs : Vect m elem) -> (ys : Vect n elem) -> Vect (m + n) elem

277(++) : (xs : Vect m elem) -> (ys : Vect n elem) -> Vect (m + n) elem

188(++) [] ys = ys

278(++) [] ys = ys

189(++) (x::xs) ys = x :: xs ++ ys

279(++) (x::xs) ys = x :: xs ++ ys

190

280

191−||| Repeate some value some number of times.

281+||| Repeat some value some number of times.

192|||

282|||

193||| @ len the number of times to repeat it

283||| @ len the number of times to repeat it

194||| @ x the value to repeat

284||| @ x the value to repeat

285+|||

286+||| ```idris example

287+||| replicate 4 1

288+||| ```

195replicate : (len : Nat) -> (x : elem) -> Vect len elem

289replicate : (len : Nat) -> (x : elem) -> Vect len elem

196replicate Z x = []

290replicate Z x = []

197replicate (S k) x = x :: replicate k x

291replicate (S k) x = x :: replicate k x

198

292

199||| Merge two ordered vectors

293||| Merge two ordered vectors

294+|||

295+||| ```idris example

296+||| mergeBy compare (fromList [1,3,5]) (fromList [2,3,4,5,6])

297+||| ```

200mergeBy : (elem -> elem -> Ordering) -> (xs : Vect n elem) -> (ys : Vect m elem) -> Vect (n + m) elem

298mergeBy : (elem -> elem -> Ordering) -> (xs : Vect n elem) -> (ys : Vect m elem) -> Vect (n + m) elem

201mergeBy order [] [] = []

299mergeBy order [] [] = []

202mergeBy order [] (x :: xs) = x :: xs

300mergeBy order [] (x :: xs) = x :: xs

@@ -220,30 +318,54 @@ merge = mergeBy compare

220||| @ f the function to combine elements with

318||| @ f the function to combine elements with

221||| @ xs the first vector of elements

319||| @ xs the first vector of elements

222||| @ ys the second vector of elements

320||| @ ys the second vector of elements

321+|||

322+||| ```idris example

323+||| zipWith (+) (fromList [1,2,3,4]) (fromList [5,6,7,8])

324+||| ```

223zipWith : (f : a -> b -> c) -> (xs : Vect n a) -> (ys : Vect n b) -> Vect n c

325zipWith : (f : a -> b -> c) -> (xs : Vect n a) -> (ys : Vect n b) -> Vect n c

224zipWith f [] [] = []

326zipWith f [] [] = []

225zipWith f (x::xs) (y::ys) = f x y :: zipWith f xs ys

327zipWith f (x::xs) (y::ys) = f x y :: zipWith f xs ys

226

328

227||| Combine three equal-length vectors into a vector with some function

329||| Combine three equal-length vectors into a vector with some function

330+|||

331+||| ```idris example

332+||| zipWith3 (\x,y,z => x+y+z) (fromList [1,2,3,4]) (fromList [5,6,7,8]) (fromList [1,1,1,1])

333+||| ```

228zipWith3 : (a -> b -> c -> d) -> (xs : Vect n a) -> (ys : Vect n b) -> (zs : Vect n c) -> Vect n d

334zipWith3 : (a -> b -> c -> d) -> (xs : Vect n a) -> (ys : Vect n b) -> (zs : Vect n c) -> Vect n d

229zipWith3 f [] [] [] = []

335zipWith3 f [] [] [] = []

230zipWith3 f (x::xs) (y::ys) (z::zs) = f x y z :: zipWith3 f xs ys zs

336zipWith3 f (x::xs) (y::ys) (z::zs) = f x y z :: zipWith3 f xs ys zs

231

337

232||| Combine two equal-length vectors pairwise

338||| Combine two equal-length vectors pairwise

339+|||

340+||| ```idris example

341+||| zip (fromList [1,2,3,4]) (fromList [1,2,3,4])

342+||| ```

233zip : (xs : Vect n a) -> (ys : Vect n b) -> Vect n (a, b)

343zip : (xs : Vect n a) -> (ys : Vect n b) -> Vect n (a, b)

234zip = zipWith (\x,y => (x,y))

344zip = zipWith (\x,y => (x,y))

235

345

236||| Combine three equal-length vectors elementwise into a vector of tuples

346||| Combine three equal-length vectors elementwise into a vector of tuples

347+|||

348+||| ```idris example

349+||| zip3 (fromList [1,2,3,4]) (fromList [1,2,3,4]) (fromList [1,2,3,4])

350+||| ```

237zip3 : (xs : Vect n a) -> (ys : Vect n b) -> (zs : Vect n c) -> Vect n (a, b, c)

351zip3 : (xs : Vect n a) -> (ys : Vect n b) -> (zs : Vect n c) -> Vect n (a, b, c)

238zip3 = zipWith3 (\x,y,z => (x,y,z))

352zip3 = zipWith3 (\x,y,z => (x,y,z))

239

353

240||| Convert a vector of pairs to a pair of vectors

354||| Convert a vector of pairs to a pair of vectors

355+|||

356+||| ```idris example

357+||| unzip (fromList [(1,2), (1,2)])

358+||| ```

241unzip : (xs : Vect n (a, b)) -> (Vect n a, Vect n b)

359unzip : (xs : Vect n (a, b)) -> (Vect n a, Vect n b)

242unzip [] = ([], [])

360unzip [] = ([], [])

243unzip ((l, r)::xs) with (unzip xs)

361unzip ((l, r)::xs) with (unzip xs)

244 | (lefts, rights) = (l::lefts, r::rights)

362 | (lefts, rights) = (l::lefts, r::rights)

245

363

246||| Convert a vector of three-tuples to a triplet of vectors

364||| Convert a vector of three-tuples to a triplet of vectors

365+|||

366+||| ```idris example

367+||| unzip3 (fromList [(1,2,3), (1,2,3)])

368+||| ```

247unzip3 : (xs : Vect n (a, b, c)) -> (Vect n a, Vect n b, Vect n c)

369unzip3 : (xs : Vect n (a, b, c)) -> (Vect n a, Vect n b, Vect n c)

248unzip3 [] = ([], [], [])

370unzip3 [] = ([], [], [])

249unzip3 ((l,c,r)::xs) with (unzip3 xs)

371unzip3 ((l,c,r)::xs) with (unzip3 xs)

@@ -285,6 +407,10 @@ implementation Functor (Vect n) where

285|||

407|||

286||| @ f the partial function (expressed by returning `Maybe`)

408||| @ f the partial function (expressed by returning `Maybe`)

287||| @ xs the vector to check for results

409||| @ xs the vector to check for results

410+|||

411+||| ```idris example

412+||| mapMaybe ((find (=='a')) . unpack) (fromList ["abc","ade","bgh","xyz"])

413+||| ```

288mapMaybe : (f : a -> Maybe b) -> (xs : Vect len a) -> (m : Nat ** Vect m b)

414mapMaybe : (f : a -> Maybe b) -> (xs : Vect len a) -> (m : Nat ** Vect m b)

289mapMaybe f [] = (_ ** [])

415mapMaybe f [] = (_ ** [])

290mapMaybe f (x::xs) =

416mapMaybe f (x::xs) =

@@ -309,15 +435,28 @@ implementation Foldable (Vect n) where

309--------------------------------------------------------------------------------

435--------------------------------------------------------------------------------

310

436

311||| Flatten a vector of equal-length vectors

437||| Flatten a vector of equal-length vectors

438+|||

439+||| ```idris example

440+||| concat [[1,2,3], [4,5,6]]

441+||| ```

312concat : (xss : Vect m (Vect n elem)) -> Vect (m * n) elem

442concat : (xss : Vect m (Vect n elem)) -> Vect (m * n) elem

313concat [] = []

443concat [] = []

314concat (v::vs) = v ++ concat vs

444concat (v::vs) = v ++ concat vs

315

445

316||| Foldr without seeding the accumulator

446||| Foldr without seeding the accumulator

447+|||

448+||| ```idris example

449+||| foldr1 (-) (fromList [1,2,3])

450+||| ```

317foldr1 : (t -> t -> t) -> Vect (S n) t -> t

451foldr1 : (t -> t -> t) -> Vect (S n) t -> t

318−foldr1 f (x::xs) = foldr f x xs

452+foldr1 f [x] = x

453+foldr1 f (x::y::xs) = f x (foldr1 f (y::xs))

319

454

320||| Foldl without seeding the accumulator

455||| Foldl without seeding the accumulator

456+|||

457+||| ```idris example

458+||| foldl1 (-) (fromList [1,2,3])

459+||| ```

321foldl1 : (t -> t -> t) -> Vect (S n) t -> t

460foldl1 : (t -> t -> t) -> Vect (S n) t -> t

322foldl1 f (x::xs) = foldl f x xs

461foldl1 f (x::xs) = foldl f x xs

323

462

@@ -327,6 +466,10 @@ foldl1 f (x::xs) = foldl f x xs

327

466

328||| The scanl function is similar to foldl, but returns all the intermediate

467||| The scanl function is similar to foldl, but returns all the intermediate

329||| accumulator states in the form of a vector.

468||| accumulator states in the form of a vector.

469+|||

470+||| ```idris example

471+||| scanl (-) 0 (fromList [1,2,3])

472+||| ```

330scanl : (res -> elem -> res) -> res -> Vect len elem -> Vect (S len) res

473scanl : (res -> elem -> res) -> res -> Vect len elem -> Vect (S len) res

331scanl f q [] = [q]

474scanl f q [] = [q]

332scanl f q (x::xs) = q :: scanl f (f q x) xs

475scanl f q (x::xs) = q :: scanl f (f q x) xs

@@ -335,6 +478,10 @@ scanl f q (x::xs) = q :: scanl f (f q x) xs

335||| starting value.

478||| starting value.

336||| It assumes the first element of the vector to be the starting value and then

479||| It assumes the first element of the vector to be the starting value and then

337||| starts the fold with the element following it.

480||| starts the fold with the element following it.

481+|||

482+||| ```idris example

483+||| scanl1 (-) (fromList [1,2,3])

484+||| ```

338scanl1 : (elem -> elem -> elem) -> Vect len elem -> Vect len elem

485scanl1 : (elem -> elem -> elem) -> Vect len elem -> Vect len elem

339scanl1 f [] = []

486scanl1 f [] = []

340scanl1 f (x::xs) = scanl f x xs

487scanl1 f (x::xs) = scanl f x xs

@@ -347,6 +494,10 @@ scanl1 f (x::xs) = scanl f x xs

347||| @ p the equality test

494||| @ p the equality test

348||| @ e the item to search for

495||| @ e the item to search for

349||| @ xs the vector to search in

496||| @ xs the vector to search in

497+|||

498+||| ```idris example

499+||| elemBy (==) 2 [1,2,3,4]

500+||| ```

350elemBy : (p : elem -> elem -> Bool) -> (e : elem) -> (xs : Vect len elem) -> Bool

501elemBy : (p : elem -> elem -> Bool) -> (e : elem) -> (xs : Vect len elem) -> Bool

351elemBy p e [] = False

502elemBy p e [] = False

352elemBy p e (x::xs) = p e x || elemBy p e xs

503elemBy p e (x::xs) = p e x || elemBy p e xs

@@ -354,17 +505,29 @@ elemBy p e (x::xs) = p e x || elemBy p e xs

354||| Use the default Boolean equality on elements to search for an item

505||| Use the default Boolean equality on elements to search for an item

355||| @ x what to search for

506||| @ x what to search for

356||| @ xs where to search

507||| @ xs where to search

508+|||

509+||| ```idris example

510+||| elem 3 [1,2,3,4]

511+||| ```

357elem : Eq elem => (x : elem) -> (xs : Vect len elem) -> Bool

512elem : Eq elem => (x : elem) -> (xs : Vect len elem) -> Bool

358elem = elemBy (==)

513elem = elemBy (==)

359

514

360||| Find the association of some key with a user-provided comparison

515||| Find the association of some key with a user-provided comparison

361||| @ p the comparison operator for keys (True if they match)

516||| @ p the comparison operator for keys (True if they match)

362||| @ e the key to look for

517||| @ e the key to look for

518+|||

519+||| ```idris example

520+||| lookupBy (==) 2 [(1, 'a'), (2, 'b'), (3, 'c')]

521+||| ```

363lookupBy : (p : key -> key -> Bool) -> (e : key) -> (xs : Vect n (key, val)) -> Maybe val

522lookupBy : (p : key -> key -> Bool) -> (e : key) -> (xs : Vect n (key, val)) -> Maybe val

364lookupBy p e [] = Nothing

523lookupBy p e [] = Nothing

365lookupBy p e ((l, r)::xs) = if p e l then Just r else lookupBy p e xs

524lookupBy p e ((l, r)::xs) = if p e l then Just r else lookupBy p e xs

366

525

367||| Find the assocation of some key using the default Boolean equality test

526||| Find the assocation of some key using the default Boolean equality test

527+|||

528+||| ```idris example

529+||| lookup 3 [(1, 'a'), (2, 'b'), (3, 'c')]

530+||| ```

368lookup : Eq key => key -> Vect n (key, val) -> Maybe val

531lookup : Eq key => key -> Vect n (key, val) -> Maybe val

369lookup = lookupBy (==)

532lookup = lookupBy (==)

370

533

@@ -372,11 +535,19 @@ lookup = lookupBy (==)

372||| @ p the comparison operator

535||| @ p the comparison operator

373||| @ elems the vector to search

536||| @ elems the vector to search

374||| @ xs what to search for

537||| @ xs what to search for

538+|||

539+||| ```idris example

540+||| hasAnyBy (==) [2,5] [1,2,3,4]

541+||| ```

375hasAnyBy : (p : elem -> elem -> Bool) -> (elems : Vect m elem) -> (xs : Vect len elem) -> Bool

542hasAnyBy : (p : elem -> elem -> Bool) -> (elems : Vect m elem) -> (xs : Vect len elem) -> Bool

376hasAnyBy p elems [] = False

543hasAnyBy p elems [] = False

377hasAnyBy p elems (x::xs) = elemBy p x elems || hasAnyBy p elems xs

544hasAnyBy p elems (x::xs) = elemBy p x elems || hasAnyBy p elems xs

378

545

379||| Check if any element of xs is found in elems using the default Boolean equality test

546||| Check if any element of xs is found in elems using the default Boolean equality test

547+|||

548+||| ```idris example

549+||| hasAny [2,5] [1,2,3,4]

550+||| ```

380hasAny : Eq elem => Vect m elem -> Vect len elem -> Bool

551hasAny : Eq elem => Vect m elem -> Vect len elem -> Bool

381hasAny = hasAnyBy (==)

552hasAny = hasAnyBy (==)

382

553

@@ -386,30 +557,62 @@ hasAny = hasAnyBy (==)

386

557

387||| Find the first element of the vector that satisfies some test

558||| Find the first element of the vector that satisfies some test

388||| @ p the test to satisfy

559||| @ p the test to satisfy

560+|||

561+||| ```idris example

562+||| find (== 3) [1,2,3,4]

563+||| ```

389find : (p : elem -> Bool) -> (xs : Vect len elem) -> Maybe elem

564find : (p : elem -> Bool) -> (xs : Vect len elem) -> Maybe elem

390find p [] = Nothing

565find p [] = Nothing

391find p (x::xs) = if p x then Just x else find p xs

566find p (x::xs) = if p x then Just x else find p xs

392

567

393||| Find the index of the first element of the vector that satisfies some test

568||| Find the index of the first element of the vector that satisfies some test

569+|||

570+||| ```idris example

571+||| findIndex (== 3) [1,2,3,4]

572+||| ```

394findIndex : (elem -> Bool) -> Vect len elem -> Maybe (Fin len)

573findIndex : (elem -> Bool) -> Vect len elem -> Maybe (Fin len)

395findIndex p [] = Nothing

574findIndex p [] = Nothing

396findIndex p (x :: xs) = if p x then Just 0 else map FS (findIndex p xs)

575findIndex p (x :: xs) = if p x then Just 0 else map FS (findIndex p xs)

397

576

398||| Find the indices of all elements that satisfy some test

577||| Find the indices of all elements that satisfy some test

578+|||

579+||| ```idris example

580+||| findIndices (< 3) [1,2,3,4]

581+||| ```

399findIndices : (elem -> Bool) -> Vect m elem -> List (Fin m)

582findIndices : (elem -> Bool) -> Vect m elem -> List (Fin m)

400findIndices p [] = []

583findIndices p [] = []

401findIndices p (x :: xs) = let is = map FS $ findIndices p xs

584findIndices p (x :: xs) = let is = map FS $ findIndices p xs

402 in if p x then 0 :: is else is

585 in if p x then 0 :: is else is

403

586

587+||| Find the index of the first element of the vector that satisfies some test

588+|||

589+||| ```idris example

590+||| elemIndexBy (==) 3 [1,2,3,4]

591+||| ```

404elemIndexBy : (elem -> elem -> Bool) -> elem -> Vect m elem -> Maybe (Fin m)

592elemIndexBy : (elem -> elem -> Bool) -> elem -> Vect m elem -> Maybe (Fin m)

405elemIndexBy p e = findIndex $ p e

593elemIndexBy p e = findIndex $ p e

406

594

595+||| Find the index of the first element of the vector equal to the given one.

596+|||

597+||| ```idris example

598+||| elemIndex 3 [1,2,3,4]

599+||| ```

407elemIndex : Eq elem => elem -> Vect m elem -> Maybe (Fin m)

600elemIndex : Eq elem => elem -> Vect m elem -> Maybe (Fin m)

408elemIndex = elemIndexBy (==)

601elemIndex = elemIndexBy (==)

409

602

603+||| Find the indices of all elements that satisfy some test

604+|||

605+||| ```idris example

606+||| elemIndicesBy (<=) 3 [1,2,3,4]

607+||| ```

410elemIndicesBy : (elem -> elem -> Bool) -> elem -> Vect m elem -> List (Fin m)

608elemIndicesBy : (elem -> elem -> Bool) -> elem -> Vect m elem -> List (Fin m)

411elemIndicesBy p e = findIndices $ p e

609elemIndicesBy p e = findIndices $ p e

412

610

611+||| Find the indices of all elements uquals to the given one

612+|||

613+||| ```idris example

614+||| elemIndices 3 [1,2,3,4,3]

615+||| ```

413elemIndices : Eq elem => elem -> Vect m elem -> List (Fin m)

616elemIndices : Eq elem => elem -> Vect m elem -> List (Fin m)

414elemIndices = elemIndicesBy (==)

617elemIndices = elemIndicesBy (==)

415

618

@@ -418,6 +621,10 @@ elemIndices = elemIndicesBy (==)

418--------------------------------------------------------------------------------

621--------------------------------------------------------------------------------

419

622

420||| Find all elements of a vector that satisfy some test

623||| Find all elements of a vector that satisfy some test

624+|||

625+||| ```idris example

626+||| filter (< 3) (fromList [1,2,3,4])

627+||| ```

421filter : (elem -> Bool) -> Vect len elem -> (p ** Vect p elem)

628filter : (elem -> Bool) -> Vect len elem -> (p ** Vect p elem)

422filter p [] = ( _ ** [] )

629filter p [] = ( _ ** [] )

423filter p (x::xs) =

630filter p (x::xs) =

@@ -428,6 +635,10 @@ filter p (x::xs) =

428 (_ ** tail)

635 (_ ** tail)

429

636

430||| Make the elements of some vector unique by some test

637||| Make the elements of some vector unique by some test

638+|||

639+||| ```idris example

640+||| nubBy (==) (fromList [1,2,2,3,4,4])

641+||| ```

431nubBy : (elem -> elem -> Bool) -> Vect len elem -> (p ** Vect p elem)

642nubBy : (elem -> elem -> Bool) -> Vect len elem -> (p ** Vect p elem)

432nubBy = nubBy' []

643nubBy = nubBy' []

433 where

644 where

@@ -439,15 +650,29 @@ nubBy = nubBy' []

439 | (_ ** tail) = (_ ** x::tail)

650 | (_ ** tail) = (_ ** x::tail)

440

651

441||| Make the elements of some vector unique by the default Boolean equality

652||| Make the elements of some vector unique by the default Boolean equality

653+|||

654+||| ```idris example

655+||| nub (fromList [1,2,2,3,4,4])

656+||| ```

442nub : Eq elem => Vect len elem -> (p ** Vect p elem)

657nub : Eq elem => Vect len elem -> (p ** Vect p elem)

443nub = nubBy (==)

658nub = nubBy (==)

444

659

660+||| Delete first element from list according to some test

661+|||

662+||| ```idris example

663+||| deleteBy (<) 3 (fromList [1,2,2,3,4,4])

664+||| ```

445deleteBy : (elem -> elem -> Bool) -> elem -> Vect len elem -> (p ** Vect p elem)

665deleteBy : (elem -> elem -> Bool) -> elem -> Vect len elem -> (p ** Vect p elem)

446deleteBy _ _ [] = (_ ** [])

666deleteBy _ _ [] = (_ ** [])

447deleteBy eq x (y::ys) =

667deleteBy eq x (y::ys) =

448 let (len ** zs) = deleteBy eq x ys

668 let (len ** zs) = deleteBy eq x ys

449 in if x `eq` y then (_ ** ys) else (S len ** y ::zs)

669 in if x `eq` y then (_ ** ys) else (S len ** y ::zs)

450

670

671+||| Delete first element from list equal to the given one

672+|||

673+||| ```idris example

674+||| delete 2 (fromList [1,2,2,3,4,4])

675+||| ```

451delete : (Eq elem) => elem -> Vect len elem -> (p ** Vect p elem)

676delete : (Eq elem) => elem -> Vect len elem -> (p ** Vect p elem)

452delete = deleteBy (==)

677delete = deleteBy (==)

453

678

@@ -462,11 +687,21 @@ delete = deleteBy (==)

462|||

687|||

463||| @ n the index to split at

688||| @ n the index to split at

464||| @ xs the `Vect` to split in two

689||| @ xs the `Vect` to split in two

690+|||

691+||| ```idris example

692+||| splitAt 2 (fromList [1,2,3,4])

693+||| ```

465splitAt : (n : Nat) -> (xs : Vect (n + m) elem) -> (Vect n elem, Vect m elem)

694splitAt : (n : Nat) -> (xs : Vect (n + m) elem) -> (Vect n elem, Vect m elem)

466splitAt Z xs = ([], xs)

695splitAt Z xs = ([], xs)

467splitAt (S k) (x :: xs) with (splitAt k xs)

696splitAt (S k) (x :: xs) with (splitAt k xs)

468 | (tk, dr) = (x :: tk, dr)

697 | (tk, dr) = (x :: tk, dr)

469

698

699+||| A tuple where the first element is a `Vect` of the `n` elements passing given test

700+||| and the second element is a `Vect` of the remaining elements of the original.

701+|||

702+||| ```idris example

703+||| partition (== 2) (fromList [1,2,3,2,4])

704+||| ```

470partition : (elem -> Bool) -> Vect len elem -> ((p ** Vect p elem), (q ** Vect q elem))

705partition : (elem -> Bool) -> Vect len elem -> ((p ** Vect p elem), (q ** Vect q elem))

471partition p [] = ((_ ** []), (_ ** []))

706partition p [] = ((_ ** []), (_ ** []))

472partition p (x::xs) =

707partition p (x::xs) =

@@ -480,17 +715,37 @@ partition p (x::xs) =

480-- Predicates

715-- Predicates

481--------------------------------------------------------------------------------

716--------------------------------------------------------------------------------

482

717

718+||| Verify vector prefix

719+|||

720+||| ```idris example

721+||| isPrefixOfBy (==) (fromList [1,2]) (fromList [1,2,3,4])

722+||| ```

483isPrefixOfBy : (elem -> elem -> Bool) -> Vect m elem -> Vect len elem -> Bool

723isPrefixOfBy : (elem -> elem -> Bool) -> Vect m elem -> Vect len elem -> Bool

484isPrefixOfBy p [] right = True

724isPrefixOfBy p [] right = True

485isPrefixOfBy p left [] = False

725isPrefixOfBy p left [] = False

486isPrefixOfBy p (x::xs) (y::ys) = p x y && isPrefixOfBy p xs ys

726isPrefixOfBy p (x::xs) (y::ys) = p x y && isPrefixOfBy p xs ys

487

727

728+||| Verify vector prefix

729+|||

730+||| ```idris example

731+||| isPrefixOf (fromList [1,2]) (fromList [1,2,3,4])

732+||| ```

488isPrefixOf : Eq elem => Vect m elem -> Vect len elem -> Bool

733isPrefixOf : Eq elem => Vect m elem -> Vect len elem -> Bool

489isPrefixOf = isPrefixOfBy (==)

734isPrefixOf = isPrefixOfBy (==)

490

735

736+||| Verify vector suffix

737+|||

738+||| ```idris example

739+||| isSuffixOfBy (==) (fromList [3,4]) (fromList [1,2,3,4])

740+||| ```

491isSuffixOfBy : (elem -> elem -> Bool) -> Vect m elem -> Vect len elem -> Bool

741isSuffixOfBy : (elem -> elem -> Bool) -> Vect m elem -> Vect len elem -> Bool

492isSuffixOfBy p left right = isPrefixOfBy p (reverse left) (reverse right)

742isSuffixOfBy p left right = isPrefixOfBy p (reverse left) (reverse right)

493

743

744+||| Verify vector suffix

745+|||

746+||| ```idris example

747+||| isSuffixOf (fromList [3,4]) (fromList [1,2,3,4])

748+||| ```

494isSuffixOf : Eq elem => Vect m elem -> Vect len elem -> Bool

749isSuffixOf : Eq elem => Vect m elem -> Vect len elem -> Bool

495isSuffixOf = isSuffixOfBy (==)

750isSuffixOf = isSuffixOfBy (==)

496

751

@@ -498,10 +753,20 @@ isSuffixOf = isSuffixOfBy (==)

498-- Conversions

753-- Conversions

499--------------------------------------------------------------------------------

754--------------------------------------------------------------------------------

500

755

756+||| Convert Maybe type into Vect

757+|||

758+||| ```idris example

759+||| maybeToVect (Just 2)

760+||| ```

501maybeToVect : Maybe elem -> (p ** Vect p elem)

761maybeToVect : Maybe elem -> (p ** Vect p elem)

502maybeToVect Nothing = (_ ** [])

762maybeToVect Nothing = (_ ** [])

503maybeToVect (Just j) = (_ ** [j])

763maybeToVect (Just j) = (_ ** [j])

504

764

765+||| Convert first element of Vect (if exists) into Maybe.

766+|||

767+||| ```idris example

768+||| vectToMaybe [2]

769+||| ```

505vectToMaybe : Vect len elem -> Maybe elem

770vectToMaybe : Vect len elem -> Maybe elem

506vectToMaybe [] = Nothing

771vectToMaybe [] = Nothing

507vectToMaybe (x::xs) = Just x

772vectToMaybe (x::xs) = Just x

@@ -510,6 +775,11 @@ vectToMaybe (x::xs) = Just x

510-- Misc

775-- Misc

511--------------------------------------------------------------------------------

776--------------------------------------------------------------------------------

512

777

778+||| Filter out Nothings from Vect

779+|||

780+||| ```idris example

781+||| catMaybes [Just 1, Just 2, Nothing, Nothing, Just 5]

782+||| ```

513catMaybes : Vect n (Maybe elem) -> (p ** Vect p elem)

783catMaybes : Vect n (Maybe elem) -> (p ** Vect p elem)

514catMaybes [] = (_ ** [])

784catMaybes [] = (_ ** [])

515catMaybes (Nothing::xs) = catMaybes xs

785catMaybes (Nothing::xs) = catMaybes xs

@@ -517,6 +787,11 @@ catMaybes ((Just j)::xs) =

517 let (_ ** tail) = catMaybes xs

787 let (_ ** tail) = catMaybes xs

518 in (_ ** j::tail)

788 in (_ ** j::tail)

519

789

790+||| Get diagonal elements

791+|||

792+||| ```idris example

793+||| diag [[1,2,3], [4,5,6], [7,8,9]]

794+||| ```

520diag : Vect len (Vect len elem) -> Vect len elem

795diag : Vect len (Vect len elem) -> Vect len elem

521diag [] = []

796diag [] = []

522diag ((x::xs)::xss) = x :: diag (map tail xss)

797diag ((x::xs)::xss) = x :: diag (map tail xss)

@@ -530,6 +805,10 @@ range {len=S _} = FZ :: map FS range

530||| This is like zipping all the inner `Vect`s together and is equivalent to `traverse id` (`transposeTraverse`).

805||| This is like zipping all the inner `Vect`s together and is equivalent to `traverse id` (`transposeTraverse`).

531|||

806|||

532||| As the types ensure rectangularity, this is an involution, unlike `Prelude.List.transpose`.

807||| As the types ensure rectangularity, this is an involution, unlike `Prelude.List.transpose`.

808+|||

809+||| ```idris example

810+||| transpose [[1,2], [3,4], [5,6], [7,8]]

811+||| ```

533transpose : Vect m (Vect n elem) -> Vect n (Vect m elem)

812transpose : Vect m (Vect n elem) -> Vect n (Vect m elem)

534transpose [] = replicate _ [] -- = [| [] |]

813transpose [] = replicate _ [] -- = [| [] |]

535transpose (x :: xs) = zipWith (::) x (transpose xs) -- = [| x :: xs |]

814transpose (x :: xs) = zipWith (::) x (transpose xs) -- = [| x :: xs |]

libs/base/System.idr+13

@@ -93,6 +93,19 @@ time : IO Integer

93time = do MkRaw t <- foreign FFI_C "idris_time" (IO (Raw Integer))

94 pure t

95

96+||| Wall clock time

97+record Clock where

98+ constructor MkClock

99+ seconds : Integer

100+ nanoseconds : Integer

101+

102+||| Get the system's wall clock time.

103+clockTime : IO Clock

104+clockTime

105+ = do vm <- getMyVM

106+ MkRaw c <- foreign FFI_C "idris_clock" (Ptr -> IO (Raw Clock)) vm

107+ pure c

108+

96||| Specify interval to sleep for in microseconds, must be nonnegative

109||| Specify interval to sleep for in microseconds, must be nonnegative

97usleep : (i : Int) -> { auto prf : So (i >= 0) } -> IO ()

110usleep : (i : Int) -> { auto prf : So (i >= 0) } -> IO ()

98usleep i = foreign FFI_C "idris_usleep" (Int -> IO ()) i

111usleep i = foreign FFI_C "idris_usleep" (Int -> IO ()) i

libs/contrib/Control/Algebra/Lattice.idr+16

@@ -25,6 +25,9 @@ implementation JoinSemilattice Nat where

25implementation Ord a => JoinSemilattice (MaxiphobicHeap a) where

26 join = merge

27

28+JoinSemilattice Bool where

29+ join a b = a || b

30+

28||| Sets equipped with a binary operation that is commutative, associative and

31||| Sets equipped with a binary operation that is commutative, associative and

29||| idempotent. Must satisfy the following laws:

32||| idempotent. Must satisfy the following laws:

30|||

33|||

@@ -42,6 +45,9 @@ interface MeetSemilattice a where

42implementation MeetSemilattice Nat where

45implementation MeetSemilattice Nat where

43 meet = minimum

46 meet = minimum

44

47

48+MeetSemilattice Bool where

49+ meet a b = a && b

50+

45||| Sets equipped with a binary operation that is commutative, associative and

51||| Sets equipped with a binary operation that is commutative, associative and

46||| idempotent and supplied with a unitary element. Must satisfy the following

52||| idempotent and supplied with a unitary element. Must satisfy the following

47||| laws:

53||| laws:

@@ -63,6 +69,9 @@ interface JoinSemilattice a => BoundedJoinSemilattice a where

63implementation BoundedJoinSemilattice Nat where

69implementation BoundedJoinSemilattice Nat where

64 bottom = Z

70 bottom = Z

65

71

72+BoundedJoinSemilattice Bool where

73+ bottom = False

74+

66||| Sets equipped with a binary operation that is commutative, associative and

75||| Sets equipped with a binary operation that is commutative, associative and

67||| idempotent and supplied with a unitary element. Must satisfy the following

76||| idempotent and supplied with a unitary element. Must satisfy the following

68||| laws:

77||| laws:

@@ -81,6 +90,9 @@ implementation BoundedJoinSemilattice Nat where

81interface MeetSemilattice a => BoundedMeetSemilattice a where

90interface MeetSemilattice a => BoundedMeetSemilattice a where

82 top : a

91 top : a

83

92

93+BoundedMeetSemilattice Bool where

94+ top = True

95+

84||| Sets equipped with two binary operations that are both commutative,

96||| Sets equipped with two binary operations that are both commutative,

85||| associative and idempotent, along with absorbtion laws for relating the two

97||| associative and idempotent, along with absorbtion laws for relating the two

86||| binary operations. Must satisfy the following:

98||| binary operations. Must satisfy the following:

@@ -101,6 +113,8 @@ interface (JoinSemilattice a, MeetSemilattice a) => Lattice a where { }

101

113

102implementation Lattice Nat where { }

114implementation Lattice Nat where { }

103

115

116+Lattice Bool where { }

117+

104||| Sets equipped with two binary operations that are both commutative,

118||| Sets equipped with two binary operations that are both commutative,

105||| associative and idempotent and supplied with neutral elements, along with

119||| associative and idempotent and supplied with neutral elements, along with

106||| absorbtion laws for relating the two binary operations. Must satisfy the

120||| absorbtion laws for relating the two binary operations. Must satisfy the

@@ -122,3 +136,5 @@ implementation Lattice Nat where { }

122||| forall a, meet a top == top

136||| forall a, meet a top == top

123||| forall a, join a bottom == bottom

137||| forall a, join a bottom == bottom

124interface (BoundedJoinSemilattice a, BoundedMeetSemilattice a) => BoundedLattice a where { }

138interface (BoundedJoinSemilattice a, BoundedMeetSemilattice a) => BoundedLattice a where { }

139+

140+BoundedLattice Bool where { }

libs/contrib/Control/Algebra/Laws.idrnew file+153

@@ -0,0 +1,153 @@

1+module Control.Algebra.Laws

2+

3+import Prelude.Algebra as A

4+import Control.Algebra

5+import Interfaces.Verified

6+

7+%access export

8+

9+||| -(-x) = x in any verified group.

10+inverseSquaredIsIdentity : VerifiedGroup t => (x : t) ->

11+ inverse (inverse x) = x

12+inverseSquaredIsIdentity x =

13+ let

14+ ix = inverse x

15+ iix = inverse ix

16+ in

17+ rewrite sym $ monoidNeutralIsNeutralR iix in

18+ rewrite sym $ groupInverseIsInverseL x in

19+ rewrite sym $ semigroupOpIsAssociative x ix iix in

20+ rewrite groupInverseIsInverseL ix in

21+ monoidNeutralIsNeutralL x

22+

23+||| -0 = 0 in any verified group.

24+inverseNeutralIsNeutral : VerifiedGroup t =>

25+ inverse (the t A.neutral) = A.neutral

26+inverseNeutralIsNeutral {t} =

27+ let e = the t neutral in

28+ rewrite sym $ cong {f = inverse} (groupInverseIsInverseL e) in

29+ rewrite monoidNeutralIsNeutralR $ inverse e in

30+ inverseSquaredIsIdentity e

31+

32+||| -(x + y) = -y + -x in any verified group.

33+inverseOfSum : VerifiedGroup t => (l, r : t) ->

34+ inverse (l <+> r) = inverse r <+> inverse l

35+inverseOfSum {t} l r =

36+ let

37+ e = the t neutral

38+ il = inverse l

39+ ir = inverse r

40+ sum = l <+> r

41+ ilr = inverse sum

42+ iril = ir <+> il

43+ ile = il <+> e

44+ in

45+ -- expand

46+ rewrite sym $ monoidNeutralIsNeutralR ilr in

47+ rewrite sym $ groupInverseIsInverseR r in

48+ rewrite sym $ monoidNeutralIsNeutralL ir in

49+ rewrite sym $ groupInverseIsInverseR l in

50+ -- shuffle

51+ rewrite semigroupOpIsAssociative ir il l in

52+ rewrite sym $ semigroupOpIsAssociative iril l r in

53+ rewrite sym $ semigroupOpIsAssociative iril sum ilr in

54+ -- contract

55+ rewrite sym $ monoidNeutralIsNeutralL il in

56+ rewrite groupInverseIsInverseL sum in

57+ rewrite sym $ semigroupOpIsAssociative (ir <+> ile) l ile in

58+ rewrite semigroupOpIsAssociative l il e in

59+ rewrite groupInverseIsInverseL l in

60+ rewrite monoidNeutralIsNeutralL e in

61+ Refl

62+

63+||| -(x + y) = -x + -y in any verified abelian group.

64+inverseDistributesOverGroupOp : VerifiedAbelianGroup t => (l, r : t) ->

65+ inverse (l <+> r) = inverse l <+> inverse r

66+inverseDistributesOverGroupOp l r =

67+ rewrite abelianGroupOpIsCommutative (inverse l) (inverse r) in

68+ inverseOfSum l r

69+

70+||| Anything multiplied by zero yields zero back in a verified ring.

71+multNeutralAbsorbingL : VerifiedRing t => (r : t) ->

72+ A.neutral <.> r = A.neutral

73+multNeutralAbsorbingL {t} r =

74+ let

75+ e = the t neutral

76+ ir = inverse r

77+ exr = e <.> r

78+ iexr = inverse exr

79+ in

80+ rewrite sym $ monoidNeutralIsNeutralR exr in

81+ rewrite sym $ groupInverseIsInverseR exr in

82+ rewrite sym $ semigroupOpIsAssociative iexr exr ((iexr <+> exr) <.> r) in

83+ rewrite groupInverseIsInverseR exr in

84+ rewrite sym $ ringOpIsDistributiveR e e r in

85+ rewrite monoidNeutralIsNeutralR e in

86+ groupInverseIsInverseR exr

87+

88+||| Anything multiplied by zero yields zero back in a verified ring.

89+multNeutralAbsorbingR : VerifiedRing t => (l : t) ->

90+ l <.> A.neutral = A.neutral

91+multNeutralAbsorbingR {t} l =

92+ let

93+ e = the t neutral

94+ il = inverse l

95+ lxe = l <.> e

96+ ilxe = inverse lxe

97+ in

98+ rewrite sym $ monoidNeutralIsNeutralL lxe in

99+ rewrite sym $ groupInverseIsInverseL lxe in

100+ rewrite semigroupOpIsAssociative (l <.> (lxe <+> ilxe)) lxe ilxe in

101+ rewrite groupInverseIsInverseL lxe in

102+ rewrite sym $ ringOpIsDistributiveL l e e in

103+ rewrite monoidNeutralIsNeutralL e in

104+ groupInverseIsInverseL lxe

105+

106+||| Inverse operator can be extracted before multiplication.

107+||| (-x)y = -(xy)

108+multInverseInversesL : VerifiedRing t => (l, r : t) ->

109+ inverse l <.> r = inverse (l <.> r)

110+multInverseInversesL l r =

111+ let

112+ il = inverse l

113+ lxr = l <.> r

114+ ilxr = il <.> r

115+ i_lxr = inverse lxr

116+ in

117+ rewrite sym $ monoidNeutralIsNeutralR ilxr in

118+ rewrite sym $ groupInverseIsInverseR lxr in

119+ rewrite sym $ semigroupOpIsAssociative i_lxr lxr ilxr in

120+ rewrite sym $ ringOpIsDistributiveR l il r in

121+ rewrite groupInverseIsInverseL l in

122+ rewrite multNeutralAbsorbingL r in

123+ monoidNeutralIsNeutralL i_lxr

124+

125+||| Inverse operator can be extracted before multiplication.

126+||| x(-y) = -(xy)

127+multInverseInversesR : VerifiedRing t => (l, r : t) ->

128+ l <.> inverse r = inverse (l <.> r)

129+multInverseInversesR l r =

130+ let

131+ ir = inverse r

132+ lxr = l <.> r

133+ lxir = l <.> ir

134+ ilxr = inverse lxr

135+ in

136+ rewrite sym $ monoidNeutralIsNeutralL lxir in

137+ rewrite sym $ groupInverseIsInverseL lxr in

138+ rewrite semigroupOpIsAssociative lxir lxr ilxr in

139+ rewrite sym $ ringOpIsDistributiveL l ir r in

140+ rewrite groupInverseIsInverseR r in

141+ rewrite multNeutralAbsorbingR l in

142+ monoidNeutralIsNeutralR ilxr

143+

144+||| Multiplication of inverses is the same as multiplication of

145+||| original elements.

146+||| (-x)(-y) = xy

147+multNegativeByNegativeIsPositive : VerifiedRing t => (l, r : t) ->

148+ inverse l <.> inverse r = l <.> r

149+multNegativeByNegativeIsPositive l r =

150+ rewrite multInverseInversesR (inverse l) r in

151+ rewrite sym $ multInverseInversesL (inverse l) r in

152+ rewrite inverseSquaredIsIdentity l in

153+ Refl

libs/contrib/Data/Bool/Extra.idr+52−2

@@ -3,6 +3,12 @@ module Data.Bool.Extra

3%access public export

4%default total

5

6+notInvolutive : (x : Bool) -> not (not x) = x

7+notInvolutive True = Refl

8+notInvolutive False = Refl

9+

10+-- AND

11+

6andSameNeutral : (x : Bool) -> x && x = x

12andSameNeutral : (x : Bool) -> x && x = x

7andSameNeutral False = Refl

13andSameNeutral False = Refl

8andSameNeutral True = Refl

14andSameNeutral True = Refl

@@ -15,6 +21,20 @@ andTrueNeutral : (x : Bool) -> x && True = x

15andTrueNeutral False = Refl

21andTrueNeutral False = Refl

16andTrueNeutral True = Refl

22andTrueNeutral True = Refl

17

23

24+andAssociative : (x, y, z : Bool) -> x && (y && z) = (x && y) && z

25+andAssociative True _ _ = Refl

26+andAssociative False _ _ = Refl

27+

28+andCommutative : (x, y : Bool) -> x && y = y && x

29+andCommutative x True = andTrueNeutral x

30+andCommutative x False = andFalseFalse x

31+

32+andNotFalse : (x : Bool) -> x && not x = False

33+andNotFalse False = Refl

34+andNotFalse True = Refl

35+

36+-- OR

37+

18orSameNeutral : (x : Bool) -> x || x = x

38orSameNeutral : (x : Bool) -> x || x = x

19orSameNeutral False = Refl

39orSameNeutral False = Refl

20orSameNeutral True = Refl

40orSameNeutral True = Refl

@@ -27,6 +47,36 @@ orTrueTrue : (x : Bool) -> x || True = True

27orTrueTrue False = Refl

47orTrueTrue False = Refl

28orTrueTrue True = Refl

48orTrueTrue True = Refl

29

49

50+orAssociative : (x, y, z : Bool) -> x || (y || z) = (x || y) || z

51+orAssociative True _ _ = Refl

52+orAssociative False _ _ = Refl

53+

54+orCommutative : (x, y : Bool) -> x || y = y || x

55+orCommutative x True = orTrueTrue x

56+orCommutative x False = orFalseNeutral x

57+

58+orNotTrue : (x : Bool) -> x || not x = True

59+orNotTrue False = Refl

60+orNotTrue True = Refl

61+

62+-- interaction & De Morgan's laws

63+

30−orSameAndRightNeutral : (x, right : Bool) -> x || (x && right) = x

64+orSameAndRightNeutral : (x, y : Bool) -> x || (x && y) = x

31orSameAndRightNeutral False _ = Refl

65orSameAndRightNeutral False _ = Refl

32−orSameAndRightNeutral True _ = Refl

66+orSameAndRightNeutral True _ = Refl

67+

68+andDistribOrR : (x, y, z : Bool) -> x && (y || z) = (x && y) || (x && z)

69+andDistribOrR False _ _ = Refl

70+andDistribOrR True _ _ = Refl

71+

72+orDistribAndR : (x, y, z : Bool) -> x || (y && z) = (x || y) && (x || z)

73+orDistribAndR False _ _ = Refl

74+orDistribAndR True _ _ = Refl

75+

76+notAndIsOr : (x, y : Bool) -> not (x && y) = not x || not y

77+notAndIsOr False _ = Refl

78+notAndIsOr True _ = Refl

79+

80+notOrIsAnd : (x, y : Bool) -> not (x || y) = not x && not y

81+notOrIsAnd False _ = Refl

82+notOrIsAnd True _ = Refl

libs/contrib/Data/Combinators.idr+2−2

@@ -26,13 +26,13 @@ infixl 9 ...

26(...) = (.) . (.)

27

28||| Warbler, as named in "To Mock a Mockingbird".

29−||| See http://code.jsoftware.com/wiki/Vocabulary/tilde

29+||| See https://code.jsoftware.com/wiki/Vocabulary/tilde

30||| Equivalent to `join` on the Reader monad (`(->) e` in Haskell)

31reflex : (a -> a -> b) -> (a -> b)

32reflex f x = f x x

33

34||| Phoenix, according to Data.Aviary.

35−||| See http://code.jsoftware.com/wiki/Vocabulary/fork.

35+||| See https://code.jsoftware.com/wiki/Vocabulary/fork.

36||| Equivalent to `liftA2` on the Reader monad (`(->) e` in Haskell)

37fork2 : (b -> c -> d) -> (a -> b) -> (a -> c) -> (a -> d)

38fork2 f g h x = f (g x) (h x)

libs/contrib/Data/Fin/Extra.idr+80−3

@@ -2,8 +2,85 @@ module Data.Fin.Extra

2

3import Data.Fin

4

5+%access public export

6+%default total

7+

8+

5||| Proof that an element **n** of Fin **m** , when converted to Nat is smaller than the bound **m**.

9||| Proof that an element **n** of Fin **m** , when converted to Nat is smaller than the bound **m**.

6−public export

7−elemSmallerThanBound : (n : Fin m) -> LTE (finToNat n) m

10+elemSmallerThanBound : (n : Fin m) -> LT (finToNat n) m

8−elemSmallerThanBound FZ = LTEZero

11+elemSmallerThanBound FZ = LTESucc LTEZero

9elemSmallerThanBound (FS x) = LTESucc (elemSmallerThanBound x)

12elemSmallerThanBound (FS x) = LTESucc (elemSmallerThanBound x)

13+

14+||| Proof that application of finToNat the last element of Fin **S n** gives **n**.

15+finToNatLastIsBound : finToNat (Fin.last {n}) = n

16+finToNatLastIsBound {n=Z} = Refl

17+finToNatLastIsBound {n=S k} = rewrite finToNatLastIsBound {n=k} in Refl

18+

19+||| Proof that an element **n** of Fin **m** , when converted to Nat is smaller than the bound **m**.

20+finToNatWeakenNeutral : {n : Fin m} -> finToNat (weaken n) = finToNat n

21+finToNatWeakenNeutral {n=FZ} = Refl

22+finToNatWeakenNeutral {m=S (S _)} {n=FS _} = cong finToNatWeakenNeutral

23+

24+||| Proof that it's possible to strengthen a weakened element of Fin **m**.

25+strengthenWeakenNeutral : (n : Fin m) -> strengthen (weaken n) = Right n

26+strengthenWeakenNeutral {m=S _} FZ = Refl

27+strengthenWeakenNeutral {m=S (S _)} (FS k) = rewrite strengthenWeakenNeutral k in Refl

28+

29+||| Proof that it's not possible to strengthen the last element of Fin **n**.

30+strengthenLastIsLeft : strengthen (Fin.last {n}) = Left (Fin.last {n})

31+strengthenLastIsLeft {n=Z} = Refl

32+strengthenLastIsLeft {n=S k} = rewrite strengthenLastIsLeft {n=k} in Refl

33+

34+||| Enumerate elements of Fin **n** backwards.

35+invFin : Fin n -> Fin n

36+invFin FZ = last

37+invFin {n=S (S _)} (FS k) = weaken (invFin k)

38+

39+||| Proof that an inverse of a weakened element of Fin **n** is a successive of an inverse of an original element.

40+invWeakenIsSucc : (m : Fin n) -> invFin (weaken m) = FS (invFin m)

41+invWeakenIsSucc FZ = Refl

42+invWeakenIsSucc {n=S (S _)} (FS k) = rewrite invWeakenIsSucc k in Refl

43+

44+||| Proof that double inversion of Fin **n** gives the original.

45+doubleInvFinSame : (m : Fin n) -> invFin (invFin m) = m

46+doubleInvFinSame {n=S Z} FZ = Refl

47+doubleInvFinSame {n=S (S k)} FZ = rewrite doubleInvFinSame {n=S k} FZ in Refl

48+doubleInvFinSame {n=S (S _)} (FS x) = trans (invWeakenIsSucc $ invFin x) (cong $ doubleInvFinSame x)

49+

50+||| Proof that an inverse of the last element of Fin (S **n**) in FZ.

51+invLastIsFZ : invFin (Fin.last {n}) = FZ

52+invLastIsFZ {n=Z} = Refl

53+invLastIsFZ {n=S k} = rewrite invLastIsFZ {n=k} in Refl

54+

55+||| Proof that it's possible to strengthen an inverse of a succesive element of Fin **n**.

56+strengthenNotLastIsRight : (m : Fin (S n)) -> strengthen (invFin (FS m)) = Right (invFin m)

57+strengthenNotLastIsRight m = strengthenWeakenNeutral (invFin m)

58+

59+||| Either tightens the bound on a Fin or proves that it's the last.

60+strengthen' : (m : Fin (S n)) -> Either (m = Fin.last) (m' : Fin n ** finToNat m = finToNat m')

61+strengthen' {n = Z} FZ = Left Refl

62+strengthen' {n = S k} FZ = Right (FZ ** Refl)

63+strengthen' {n = S k} (FS m) with (strengthen' m)

64+ | Left eq = Left $ cong eq

65+ | Right (m' ** eq) = Right (FS m' ** cong eq)

66+

67+||| A view of Nat as a quotient of some number and a finite remainder.

68+data FractionView : (n : Nat) -> (d : Nat) -> Type where

69+ Fraction : (n : Nat) -> (d : Nat) -> {auto ok: GT d Z} ->

70+ (q : Nat) -> (r : Fin d) ->

71+ q * d + finToNat r = n -> FractionView n d

72+

73+||| Converts Nat to the fractional view with a non-zero divisor.

74+divMod : (n, d : Nat) -> {auto ok: GT d Z} -> FractionView n d

75+divMod Z (S d) = Fraction Z (S d) Z FZ Refl

76+divMod (S n) (S d) with (divMod n (S d))

77+ | (Fraction n (S d) q r eq) with (strengthen' r)

78+ | Left eq' = Fraction (S n) (S d) (S q) FZ $

79+ rewrite sym eq in

80+ rewrite trans (cong {f=finToNat} eq') finToNatLastIsBound in

81+ cong $ trans

82+ (plusZeroRightNeutral (d + q * S d))

83+ (plusCommutative d (q * S d))

84+ | Right (r' ** eq') = Fraction (S n) (S d) q (FS r') $

85+ rewrite sym $ plusSuccRightSucc (q * S d) (finToNat r') in

86+ cong $ trans (sym $ cong {f=plus (q * S d)} eq') eq

libs/contrib/Data/List/Extra.idrdeleted−44

@@ -1,44 +0,0 @@

1−module Data.List.Extra

2−

3−%default total

4−%access export

5−

6−||| Serves as a specification for reverseOnto.

7−reverseOntoSpec : (xs, ys : List a) -> reverseOnto xs ys = reverse ys ++ xs

8−reverseOntoSpec _ [] = Refl

9−reverseOntoSpec xs (y::ys) =

10− trans (reverseOntoSpec (y::xs) ys)

11− (trans (appendAssociative (reverse ys) [y] xs)

12− (cong {f = \l => l ++ xs} (sym (reverseOntoSpec [y] ys))))

13−

14−||| The reverse of an empty list is an empty list. Together with reverseCons,

15−||| serves as a specification for reverse.

16−reverseNil : reverse [] = []

17−reverseNil = Refl

18−

19−||| The reverse of a cons is the reverse of the tail followed by the head.

20−||| Together with reverseNil serves as a specification for reverse.

21−reverseCons : (x : a) -> (xs : List a) -> reverse (x::xs) = reverse xs ++ [x]

22−reverseCons x xs = reverseOntoSpec [x] xs

23−

24−||| Reversing an append is appending reversals backwards.

25−reverseAppend : (xs, ys : List a) ->

26− reverse (xs ++ ys) = reverse ys ++ reverse xs

27−reverseAppend [] ys = sym (appendNilRightNeutral (reverse ys))

28−reverseAppend (x :: xs) ys =

29− trans (trans (reverseCons x (xs ++ ys))

30− (cong {f = \l => l ++ [x]} (reverseAppend xs ys)))

31− (sym (trans (cong (reverseCons x xs))

32− (appendAssociative (reverse ys) (reverse xs) [x])))

33−

34−||| Reversing a singleton list is a no-op.

35−reverseSingletonId : (x : a) -> reverse [x] = [x]

36−reverseSingletonId _ = Refl

37−

38−||| Reversing a reverse gives the original.

39−reverseReverseId : (xs : List a) -> reverse (reverse xs) = xs

40−reverseReverseId [] = Refl

41−reverseReverseId (x :: xs) =

42− trans (cong (reverseCons x xs))

43− (trans (reverseAppend (reverse xs) [x])

44− (cong (reverseReverseId xs)))

libs/contrib/Data/List/Reverse.idrnew file+99

@@ -0,0 +1,99 @@

1+||| Properties of the reverse function.

2+module Data.List.Reverse

3+

4+%default total

5+%access export

6+

7+||| The final segment of the accumulator is the final segment of the result.

8+reverseOntoAcc : (xs, ys, zs : List a) ->

9+ reverseOnto (ys ++ zs) xs = (reverseOnto ys xs) ++ zs

10+reverseOntoAcc [] _ _ = Refl

11+reverseOntoAcc (x :: xs) (ys) (zs) = reverseOntoAcc xs (x :: ys) zs

12+

13+||| Serves as a specification for reverseOnto.

14+reverseOntoSpec : (xs, ys : List a) -> reverseOnto xs ys = reverse ys ++ xs

15+reverseOntoSpec xs ys = reverseOntoAcc ys [] xs

16+

17+||| The reverse of an empty list is an empty list. Together with reverseCons,

18+||| serves as a specification for reverse.

19+reverseNil : reverse [] = []

20+reverseNil = Refl

21+

22+||| The reverse of a cons is the reverse of the tail followed by the head.

23+||| Together with reverseNil serves as a specification for reverse.

24+reverseCons : (x : a) -> (xs : List a) -> reverse (x::xs) = reverse xs ++ [x]

25+reverseCons x xs = reverseOntoSpec [x] xs

26+

27+||| Reversing an append is appending reversals backwards.

28+reverseAppend : (xs, ys : List a) ->

29+ reverse (xs ++ ys) = reverse ys ++ reverse xs

30+reverseAppend [] ys = sym (appendNilRightNeutral (reverse ys))

31+reverseAppend (x :: xs) ys =

32+ rewrite reverseCons x (xs ++ ys) in

33+ rewrite reverseAppend xs ys in

34+ rewrite reverseCons x xs in

35+ sym $ appendAssociative (reverse ys) (reverse xs) [x]

36+

37+||| A recursive definition of reverse.

38+reverseRec : List a -> List a

39+reverseRec [] = []

40+reverseRec (x :: xs) = reverseRec xs ++ [x]

41+

42+||| The iterative and recursive defintions of reverse are the same.

43+reverseEquiv : (xs : List a) -> reverseRec xs = reverse xs

44+reverseEquiv [] = Refl

45+reverseEquiv (x :: xs) =

46+ rewrite reverseEquiv xs in

47+ rewrite reverseAppend [x] xs in

48+ Refl

49+

50+||| Reversing a singleton list is a no-op.

51+reverseSingletonId : (x : a) -> reverse [x] = [x]

52+reverseSingletonId _ = Refl

53+

54+||| Reversing a reverse gives the original.

55+reverseReverseId : (xs : List a) -> reverse (reverse xs) = xs

56+reverseReverseId [] = Refl

57+reverseReverseId (x :: xs) =

58+ rewrite reverseCons x xs in

59+ rewrite reverseAppend (reverse xs) [x] in

60+ cong $ reverseReverseId xs

61+

62+||| Reversing onto preserves list length.

63+reverseOntoLength : (xs, acc : List a) ->

64+ length $ reverseOnto acc xs = length acc + length xs

65+reverseOntoLength [] acc = rewrite plusZeroRightNeutral (length acc) in Refl

66+reverseOntoLength (x :: xs) acc =

67+ rewrite reverseOntoLength xs (x :: acc) in

68+ plusSuccRightSucc (length acc) (length xs)

69+

70+||| Reversing preserves list length.

71+reverseLength : (xs : List a) -> length $ reverse xs = length xs

72+reverseLength xs = reverseOntoLength xs []

73+

74+||| Equal reversed lists are equal.

75+reverseEqual : (xs, ys : List a) -> reverse xs = reverse ys -> xs = ys

76+reverseEqual xs ys prf =

77+ rewrite sym $ reverseReverseId xs in

78+ rewrite prf in

79+ reverseReverseId ys

80+

81+||| Do geese see God?

82+data Palindrome : (xs : List a) -> Type where

83+ Empty : Palindrome []

84+ Single : Palindrome [_]

85+ Multi : Palindrome xs -> Palindrome $ [x] ++ xs ++ [x]

86+

87+||| A Palindrome reversed is itself.

88+palindromeReverse : (xs : List a) -> Palindrome xs -> reverse xs = xs

89+palindromeReverse [] Empty = Refl

90+palindromeReverse [_] Single = Refl

91+palindromeReverse ([x] ++ ys ++ [x]) (Multi pf) =

92+ rewrite reverseAppend ([x] ++ ys) [x] in

93+ rewrite reverseAppend [x] ys in

94+ rewrite palindromeReverse ys pf in

95+ Refl

96+

97+||| Only Palindromes are equal to their own reverse.

98+postulate -- This is a tough one. Any takers?

99+reversePalindrome : (xs : List a) -> reverse xs = xs -> Palindrome xs

libs/contrib/Data/Logic/Propositional.idrnew file+161

@@ -0,0 +1,161 @@

1+module Data.Logic.Propositional

2+

3+%default total

4+%access public export

5+

6+-- Idris uses intuitionistic logic, so it does not validate the

7+-- principle of excluded middle (PEM) or similar theorems of classical

8+-- logic. But it does validate certain relations among these

9+-- propositions, and that's what's in this file.

10+

11+||| The principle of excluded middle

12+PEM : Type -> Type

13+PEM p = Either p (Not p)

14+

15+||| Double negation elimination

16+DNE : Type -> Type

17+DNE p = Not $ Not p -> p

18+

19+||| The consensus theorem (at least, the interesting part)

20+Consensus : Type -> Type -> Type -> Type

21+Consensus p q r = (q, r) -> Either (p, q) (Not p, r)

22+

23+||| Peirce's law

24+Peirce : Type -> Type -> Type

25+Peirce p q = ((p -> q) -> p) -> p

26+

27+||| Not sure if this one has a name, so call it Frege's law

28+Frege : Type -> Type -> Type -> Type

29+Frege p q r = (p -> r) -> (q -> r) -> ((p -> q) -> q) -> r

30+

31+||| The converse of contraposition: (p -> q) -> Not q -> Not p

32+Transposition : Type -> Type -> Type

33+Transposition p q = (Not q -> Not p) -> p -> q

34+

35+||| This isn't a good name.

36+Switch : Type -> Type

37+Switch p = (Not p -> p) -> p

38+

39+-- PEM and the others can't be proved outright, but it is possible to

40+-- prove the double negations (DN) of all of them.

41+

42+||| The double negation of a proposition

43+DN : Type -> Type

44+DN p = Not $ Not p

45+

46+pemDN : DN $ PEM p

47+pemDN f = f $ Right $ \x => f $ Left x

48+

49+dneDN : DN $ DNE p

50+dneDN f = f $ \g => void $ g $ \x => f $ \_ => x

51+

52+consensusDN : DN $ Consensus p q r

53+consensusDN f = f $ \(y, z) => Right (\x => f $ \(_, _) => Left (x, y), z)

54+

55+peirceDN : DN $ Peirce p q

56+peirceDN f = f $ \g => g $ \x => void $ f $ \_ => x

57+

58+fregeDN : DN $ Frege p q r

59+fregeDN f = f $ \g, h, i => h $ i $ \x => void $ f $ \_, _, _ => g x

60+

61+transpositionDN : DN $ Transposition p q

62+transpositionDN f = f $ \g, x => void $ g (\y => f $ \_, _ => y) x

63+

64+switchDN : DN $ Switch p

65+switchDN f = f $ \g => g $ \x => f $ \_ => x

66+

67+-- It's easy to prove all these theorems assuming PEM.

68+

69+dnePEM : PEM p -> DNE p

70+dnePEM (Left l) _ = l

71+dnePEM (Right r) f = void $ f r

72+

73+consensusPEM : PEM p -> Consensus p q r

74+consensusPEM (Left l) (y, _) = Left (l, y)

75+consensusPEM (Right r) (_, z) = Right (r, z)

76+

77+peircePEM : PEM p -> Peirce p q

78+peircePEM (Left l) _ = l

79+peircePEM (Right r) f = f $ \x => void $ r x

80+

81+fregePEM : PEM p -> Frege p q r

82+fregePEM (Left l) f _ _ = f l

83+fregePEM (Right r) _ g h = g $ h $ \x => void $ r x

84+

85+transpositionPEM : PEM p -> Transposition q p

86+transpositionPEM (Left l) _ _ = l

87+transpositionPEM (Right r) f x = void $ f r x

88+

89+switchPEM : PEM p -> Switch p

90+switchPEM (Left l) _ = l

91+switchPEM (Right r) f = f r

92+

93+-- It's trivial to prove these theorems assuming double negation

94+-- elimination (DNE), since their double negations can all be proved.

95+

96+||| Eliminate double negations

97+EDN : DN p -> DNE p -> p

98+EDN f g = g f

99+

100+pemDNE : DNE $ PEM p -> PEM p

101+pemDNE = EDN pemDN

102+

103+-- It's possible to prove the theorems assuming Peirce's law, but some

104+-- thought must be given to choosing the right instances. Peirce's law

105+-- is therefore weaker than PEM on an instance-by-instance basis, but

106+-- all the instances together are equivalent.

107+

108+pemPeirce : Peirce (PEM p) Void -> PEM p

109+pemPeirce f = f $ \g => Right $ \x => g $ Left x

110+

111+dnePeirce : Peirce p Void -> DNE p

112+dnePeirce f g = f $ \h => void $ g h

113+

114+consensusPeirce : Peirce (Consensus p q r) Void -> Consensus p q r

115+consensusPeirce f (y, z) =

116+ f (\g, (_, _) => Right (\x => g (\_ => Left (x, y)), z)) (y, z)

117+

118+fregePeirce : Peirce (Frege p q r) Void -> Frege p q r

119+fregePeirce f g h i =

120+ f (\j, _, _, _ => h $ i $ \x => void $ j $ \_, _, _ => g x) g h i

121+

122+transpositionPeirce : Peirce (Transposition p q) Void -> Transposition p q

123+transpositionPeirce f g x =

124+ f (\h, _, _ => void $ g (\y => h $ \_, _ => y) x) (\j, _ => g j x) x

125+

126+-- There are a variety of single axioms sufficient for deriving all of

127+-- classical logic. The earliest of these is known as Nicod's axiom,

128+-- but it is written using only nand operators and doesn't lend itself

129+-- to Idris's type system. Meredith's axiom, on the other hand, is

130+-- written using implication and negation.

131+

132+||| Meredith's axiom, sufficient for deriving all of classical logic

133+Meredith : (p, q, r, s, t : Type) -> Type

134+Meredith p q r s t =

135+ ((((p -> q) -> Not r -> Not s) -> r) -> t) -> (t -> p) -> s -> p

136+

137+-- The Meredith axiom implies all of classical logic, and so in

138+-- particular it implies PEM, and therefore cannot be proved in

139+-- intuitionistic logic. As usual, however, its double negation can be

140+-- proved.

141+

142+meredithDN : DN $ Meredith p q r s t

143+meredithDN f =

144+ f $ \g, h, x =>

145+ h $ g $ \i =>

146+ void $ i

147+ (\y => void $ f $ \_, _, _ => y)

148+ (\z => f $ \_, _, _ => h $ g $ \_ => z)

149+ x

150+

151+-- Meredith can be proved assuming PEM, since the type system itself

152+-- takes care of the rest.

153+

154+meredithPEM : PEM p -> Meredith p q r s t

155+meredithPEM (Left l) _ _ _ = l

156+meredithPEM (Right r) f g x =

157+ g $ f $ \h =>

158+ void $ h

159+ (\y => void $ r y)

160+ (\z => r $ g $ f (\_ => z))

161+ x

libs/contrib/Data/Nat.idr+17

@@ -1,8 +1,25 @@

1module Data.Nat

2

3%default total

4+%access public export

4

5

5diff : Nat -> Nat -> Nat

6diff : Nat -> Nat -> Nat

6diff k Z = k

7diff k Z = k

7diff Z j = j

8diff Z j = j

8diff (S k) (S j) = diff k j

9diff (S k) (S j) = diff k j

10+

11+ltePlus : LTE m1 n1 -> LTE m2 n2 -> LTE (m1 + m2) (n1 + n2)

12+ltePlus {n1=Z} LTEZero lte = lte

13+ltePlus {n1=S k} LTEZero lte = lteSuccRight $ ltePlus {n1=k} LTEZero lte

14+ltePlus (LTESucc lte1) lte2 = LTESucc $ ltePlus lte1 lte2

15+

16+lteCongPlus : (k : Nat) -> LTE m n -> LTE (m + k) (n + k)

17+lteCongPlus k lte = ltePlus lte lteRefl

18+

19+lteMult : LTE m1 n1 -> LTE m2 n2 -> LTE (m1 * m2) (n1 * n2)

20+lteMult LTEZero _ = LTEZero

21+lteMult {m1=S k} (LTESucc _) LTEZero = rewrite multZeroRightZero k in LTEZero

22+lteMult (LTESucc lte1) (LTESucc lte2) = LTESucc $ ltePlus lte2 $ lteMult lte1 $ LTESucc lte2

23+

24+lteCongMult : (k : Nat) -> LTE m n -> LTE (m * k) (n * k)

25+lteCongMult k lte = lteMult lte lteRefl

libs/contrib/Data/Nat/Ack.idrnew file+60

@@ -0,0 +1,60 @@

1+||| Properties of the Ackermann function.

2+module Data.Nat.Ackermann

3+

4+%access public export

5+

6+%default total

7+

8+-- Primitive recursive functions are functions that can be calculated

9+-- by programs that don't use unbounded loops. Almost all common

10+-- mathematical functions are primitive recursive.

11+

12+-- Uncomputable functions are functions that can't be calculated by

13+-- any programs at all. One example is the Busy Beaver function:

14+-- BB(k) = the maximum number of steps that can be executed by a

15+-- halting Turing machine with k states.

16+-- The values of the Busy Beaver function are unimaginably large for

17+-- any but the smallest inputs.

18+

19+-- The Ackermann function is the most well-known example of a total

20+-- computable function that is not primitive recursive, i.e. a general

21+-- recursive function. It grows strictly faster than any primitive

22+-- recursive function, but also strictly slower than a function like

23+-- the Busy Beaver.

24+

25+-- There are many variations of the Ackermann function. Here is one

26+-- common definition

27+-- (see https://sites.google.com/site/pointlesslargenumberstuff/home/2/ackermann)

28+-- that uses nested recursion:

29+

30+ackRec : Nat -> Nat -> Nat

31+-- Base rule

32+ackRec Z m = S m

33+-- Prime rule

34+ackRec (S k) Z = ackRec k 1

35+-- Catastrophic rule

36+ackRec (S k) (S j) = ackRec k $ ackRec (S k) j

37+

38+-- The so-called "base rule" and "prime rule" work together to ensure

39+-- termination. Happily, the Idris totality checker has no issues.

40+

41+-- An unusual "repeating" defintion of the function is given in the

42+-- book The Little Typer:

43+

44+ackRep : Nat -> Nat -> Nat

45+ackRep Z = (+) 1

46+ackRep (S k) = repeat (ackRep k)

47+ where

48+ repeat : (Nat -> Nat) -> Nat -> Nat

49+ repeat f Z = f 1

50+ repeat f (S k) = f (repeat f k)

51+

52+-- These two definitions don't look like they define the same

53+-- function, but they do:

54+

55+ackRepRec : (n, m : Nat) -> ackRep n m = ackRec n m

56+ackRepRec Z _ = Refl

57+ackRepRec (S k) Z = ackRepRec k 1

58+ackRepRec (S k) (S j) =

59+ rewrite sym $ ackRepRec (S k) j in

60+ ackRepRec k $ ackRep (S k) j

libs/contrib/Data/Nat/Fact.idrnew file+56

@@ -0,0 +1,56 @@

1+||| Properties of factorial functions.

2+module Data.Nat.Fact

3+

4+%access public export

5+

6+%default total

7+

8+||| Recursive definition of factorial.

9+factRec : Nat -> Nat

10+factRec Z = 1

11+factRec (S k) = (S k) * factRec k

12+

13+||| Tail-recursive accumulator for factItr.

14+factAcc : Nat -> Nat -> Nat

15+factAcc Z acc = acc

16+factAcc (S k) acc = factAcc k $ (S k) * acc

17+

18+||| Iterative definition of factorial.

19+factItr : Nat -> Nat

20+factItr n = factAcc n 1

21+

22+----------------------------------------

23+

24+||| Multiplicand-shuffling lemma.

25+multShuffle : (a, b, c : Nat) -> a * (b * c) = b * (a * c)

26+multShuffle a b c =

27+ rewrite multAssociative a b c in

28+ rewrite multCommutative a b in

29+ sym $ multAssociative b a c

30+

31+||| Multiplication of the accumulator.

32+factAccMult : (a, b, c : Nat) ->

33+ a * factAcc b c = factAcc b (a * c)

34+factAccMult _ Z _ = Refl

35+factAccMult a (S k) c =

36+ rewrite factAccMult a k (S k * c) in

37+ rewrite multShuffle a (S k) c in

38+ Refl

39+

40+||| Addition of accumulators.

41+factAccPlus : (a, b, c : Nat) ->

42+ factAcc a b + factAcc a c = factAcc a (b + c)

43+factAccPlus Z _ _ = Refl

44+factAccPlus (S k) b c =

45+ rewrite factAccPlus k (S k * b) (S k * c) in

46+ rewrite sym $ multDistributesOverPlusRight (S k) b c in

47+ Refl

48+

49+||| The recursive and iterative definitions are the equivalent.

50+factRecItr : (n : Nat) -> factRec n = factItr n

51+factRecItr Z = Refl

52+factRecItr (S k) =

53+ rewrite factRecItr k in

54+ rewrite factAccMult k k 1 in

55+ rewrite multOneRightNeutral k in

56+ factAccPlus k 1 k

libs/contrib/Data/Nat/Fib.idrnew file+50

@@ -0,0 +1,50 @@

1+||| Properties of the Fibonacci function.

2+module Data.Nat.Fib

3+

4+%access public export

5+

6+%default total

7+

8+||| Recursive definition of Fibonacci.

9+fibRec : Nat -> Nat

10+fibRec Z = Z

11+fibRec (S Z) = S Z

12+fibRec (S (S k)) = fibRec (S k) + fibRec k

13+

14+||| Accumulator for fibItr.

15+fibAcc : Nat -> Nat -> Nat -> Nat

16+fibAcc Z a _ = a

17+fibAcc (S k) a b = fibAcc k b (a + b)

18+

19+||| Iterative definition of Fibonacci.

20+fibItr : Nat -> Nat

21+fibItr n = fibAcc n 0 1

22+

23+||| Addend shuffling lemma.

24+plusLemma : (a, b, c, d : Nat) -> (a + b) + (c + d) = (a + c) + (b + d)

25+plusLemma a b c d =

26+ rewrite sym $ plusAssociative a b (c + d) in

27+ rewrite plusAssociative b c d in

28+ rewrite plusCommutative b c in

29+ rewrite sym $ plusAssociative c b d in

30+ plusAssociative a c (b + d)

31+

32+||| Helper lemma for fibacc.

33+fibAdd : (n, a, b, c, d : Nat) ->

34+ fibAcc n a b + fibAcc n c d = fibAcc n (a + c) (b + d)

35+fibAdd Z _ _ _ _ = Refl

36+fibAdd (S Z) _ _ _ _ = Refl

37+fibAdd (S (S k)) a b c d =

38+ rewrite fibAdd k (a + b) (b + (a + b)) (c + d) (d + (c + d)) in

39+ rewrite plusLemma b (a + b) d (c + d) in

40+ rewrite plusLemma a b c d in

41+ Refl

42+

43+||| Iterative and recursive Fibonacci definitions are equivalent.

44+fibEq : (n : Nat) -> fibRec n = fibItr n

45+fibEq Z = Refl

46+fibEq (S Z) = Refl

47+fibEq (S (S k)) =

48+ rewrite fibEq k in

49+ rewrite fibEq (S k) in

50+ fibAdd k 1 1 0 1

libs/contrib/Data/Nat/Parity.idr+204−3

@@ -2,9 +2,52 @@ module Data.Nat.Parity

2

3%access public export

4

5−--------------------------------------------------------------------------------

5+----------------------------------------

6−-- Parity

6+

7−--------------------------------------------------------------------------------

7+-- Type-level, constructive definitions of parity.

8+

9+||| A nat is Even when it is twice some other nat.

10+Even : Nat -> Type

11+Even n = (half : Nat ** n = half * 2)

12+

13+||| A nat is Odd when it is one more than twice some other nat.

14+Odd : Nat -> Type

15+Odd n = (haf : Nat ** n = S $ haf * 2)

16+

17+----------------------------------------

18+

19+||| Two more than an Even is Even.

20+add2Even : Even n -> Even (2 + n)

21+add2Even (half ** pf) = (S half ** cong {f = (+) 2} pf)

22+

23+||| Two more than an Odd is Odd.

24+add2Odd : Odd n -> Odd (2 + n)

25+add2Odd (haf ** pf) = (S haf ** cong {f = (+) 2} pf)

26+

27+||| One more than an Even is Odd.

28+succEvenOdd : Even n -> Odd (S n)

29+succEvenOdd (half ** pf) = (half ** cong {f = S} pf)

30+

31+||| One more than an Odd is Even.

32+succOddEven : Odd n -> Even (S n)

33+succOddEven (haf ** pf) = (S haf ** cong {f = S} pf)

34+

35+||| One less than an Odd is Even.

36+predOddEven : Odd (S n) -> Even n

37+predOddEven (haf ** pf) = (haf ** cong {f = Nat.pred} pf)

38+

39+||| A helper fact.

40+succDoublePredPred : S n = k * 2 -> n = S $ (pred k) * 2

41+succDoublePredPred {k = Z} prf = absurd prf

42+succDoublePredPred {k = S _} prf = cong {f = Nat.pred} prf

43+

44+||| One less than an Even is Odd.

45+predEvenOdd : Even (S n) -> Odd n

46+predEvenOdd (half ** pf) = (pred half ** succDoublePredPred pf)

47+

48+----------------------------------------

49+

50+-- Boolean definitions of parity.

8

51

9mutual

52mutual

10 even : Nat -> Bool

53 even : Nat -> Bool

@@ -14,3 +57,161 @@ mutual

14 odd : Nat -> Bool

57 odd : Nat -> Bool

15 odd Z = False

58 odd Z = False

16 odd (S k) = even k

59 odd (S k) = even k

60+

61+----------------------------------------

62+

63+-- The boolean and type-level definitions are equivalent in the sense

64+-- that a proof of one can be gotten from a proof of the other.

65+

66+mutual

67+ ||| Evens are even.

68+ evenEven : Even n -> even n = True

69+ evenEven {n = Z} _ = Refl

70+ evenEven {n = S _} pf = oddOdd $ predEvenOdd pf

71+

72+ ||| Odds are odd.

73+ oddOdd : Odd n -> odd n = True

74+ oddOdd {n = Z} (_ ** pf) = absurd pf

75+ oddOdd {n = S _} pf = evenEven $ predOddEven pf

76+

77+mutual

78+ ||| If it's even, it's Even.

79+ evenEvenConverse : even n = True -> Even n

80+ evenEvenConverse {n = Z} prf = (0 ** Refl)

81+ evenEvenConverse {n = S k} prf =

82+ let (haf ** pf) = oddOddConverse prf in

83+ (S haf ** cong pf)

84+

85+ ||| If it's odd, it's Odd

86+ oddOddConverse : odd n = True -> Odd n

87+ oddOddConverse {n = Z} prf = absurd prf

88+ oddOddConverse {n = S k} prf =

89+ let (half ** pf) = evenEvenConverse prf in

90+ (half ** cong pf)

91+

92+----------------------------------------

93+

94+||| Every nat is either even or odd.

95+evenorodd : (n : Nat) -> Either (even n = True) (odd n = True)

96+evenorodd Z = Left Refl

97+evenorodd (S k) = case evenorodd k of

98+ Left l => Right l

99+ Right r => Left r

100+

101+||| Every nat is either Even or Odd.

102+evenOrOdd : (n : Nat) -> Either (Even n) (Odd n)

103+evenOrOdd n = case evenorodd n of

104+ Left e => Left $ evenEvenConverse e

105+ Right o => Right $ oddOddConverse o

106+

107+||| No nat is both even and odd.

108+notevenandodd : even n = True -> odd n = True -> Void

109+notevenandodd {n = Z} en on = absurd on

110+notevenandodd {n = S _} en on = notevenandodd on en

111+

112+||| No nat is both Even and Odd.

113+notEvenAndOdd : Even n -> Odd n -> Void

114+notEvenAndOdd en on = notevenandodd (evenEven en) (oddOdd on)

115+

116+||| Evenness is decidable.

117+evenDec : (n : Nat) -> Dec $ Even n

118+evenDec n = case evenOrOdd n of

119+ Left even => Yes even

120+ Right odd => No $ \even => notEvenAndOdd even odd

121+

122+||| Oddness is decidable.

123+oddDec : (n : Nat) -> Dec $ Odd n

124+oddDec n = case evenOrOdd n of

125+ Left even => No $ notEvenAndOdd even

126+ Right odd => Yes odd

127+

128+----------------------------------------

129+

130+||| An Odd is the successor of an Even.

131+oddSuccEven : Odd n -> (m : Nat ** (n = S m, Even m))

132+oddSuccEven (haf ** pf) = (haf * 2 ** (pf, (haf ** Refl)))

133+

134+||| Even plus Even is Even.

135+evenPlusEven : Even j -> Even k -> Even (j + k)

136+evenPlusEven (half_j ** pf_j) (half_k ** pf_k) =

137+ (half_j + half_k **

138+ rewrite pf_j in

139+ rewrite pf_k in

140+ sym $ multDistributesOverPlusLeft half_j half_k 2)

141+

142+||| Odd plus Even is Odd.

143+oddPlusEven : Odd j -> Even k -> Odd (j + k)

144+oddPlusEven oj ek =

145+ let

146+ (i ** (ipj, ei)) = oddSuccEven oj

147+ (half_ik ** eik) = evenPlusEven ei ek

148+ in

149+ (half_ik **

150+ rewrite ipj in

151+ cong {f = S} eik)

152+

153+||| Even plus Odd is Odd.

154+evenPlusOdd : Even j -> Odd k -> Odd (j + k)

155+evenPlusOdd {j} {k} ej ok = rewrite plusCommutative j k in oddPlusEven ok ej

156+

157+||| Odd plus Odd is Even.

158+oddPlusOdd : Odd j -> Odd k -> Even (j + k)

159+oddPlusOdd oj ok =

160+ let

161+ (i ** (ipj, ei)) = oddSuccEven oj

162+ (haf_ik ** oik) = evenPlusOdd ei ok

163+ in

164+ (S haf_ik **

165+ rewrite ipj in

166+ rewrite oik in

167+ Refl)

168+

169+||| A helper fact.

170+multShuffle : (a, b, c : Nat) ->

171+ (a * c) * (b * c) = ((a * b) * c) * c

172+multShuffle a b c =

173+ rewrite multAssociative (a * c) b c in

174+ rewrite multCommutative (a * c) b in

175+ rewrite multAssociative b a c in

176+ rewrite multCommutative b a in

177+ Refl

178+

179+||| Even times Even is Even.

180+evenMultEven : Even j -> Even k -> Even (j * k)

181+evenMultEven (half_j ** pf_j) (half_k ** pf_k) =

182+ (half_j * half_k * 2 **

183+ rewrite pf_j in

184+ rewrite pf_k in

185+ multShuffle half_j half_k 2)

186+

187+||| Odd times Even is Even.

188+oddMultEven : Odd j -> Even k -> Even (j * k)

189+oddMultEven oj (half_k ** pf_k) =

190+ let

191+ (i ** (ipj, ei)) = oddSuccEven oj

192+ (half_ik ** oik) = evenMultEven ei (half_k ** pf_k)

193+ in

194+ (half_k + half_ik **

195+ rewrite multDistributesOverPlusLeft half_k half_ik 2 in

196+ rewrite ipj in

197+ rewrite oik in

198+ rewrite pf_k in

199+ Refl)

200+

201+||| Even times Odd is Even.

202+evenMultOdd : Even j -> Odd k -> Even (j * k)

203+evenMultOdd {j} {k} ej ok = rewrite multCommutative j k in oddMultEven ok ej

204+

205+||| Odd times Odd is Odd.

206+oddMultOdd : Odd j -> Odd k -> Odd (j * k)

207+oddMultOdd oj (haf_k ** pf_k) =

208+ let

209+ (i ** (ipj, ei)) = oddSuccEven oj

210+ (half_ik ** eik) = evenMultOdd ei (haf_k ** pf_k)

211+ in

212+ (haf_k + half_ik **

213+ rewrite multDistributesOverPlusLeft haf_k half_ik 2 in

214+ rewrite ipj in

215+ rewrite eik in

216+ rewrite pf_k in

217+ Refl)

libs/contrib/Data/SortedMap.idr+8

@@ -201,6 +201,10 @@ export

201empty : Ord k => SortedMap k v

202empty = Empty

203

204+export

205+singleton : Ord k => k -> v -> SortedMap k v

206+singleton k v = M Z (Leaf k v)

207+

204export

208export

205lookup : k -> SortedMap k v -> Maybe v

209lookup : k -> SortedMap k v -> Maybe v

206lookup _ Empty = Nothing

210lookup _ Empty = Nothing

@@ -287,6 +291,10 @@ export

287mergeLeft : SortedMap k v -> SortedMap k v -> SortedMap k v

291mergeLeft : SortedMap k v -> SortedMap k v -> SortedMap k v

288mergeLeft = mergeWith const

292mergeLeft = mergeWith const

289

293

294+export

295+(Show k, Show v) => Show (SortedMap k v) where

296+ show m = "fromList " ++ (show $ toList m)

297+

290-- TODO: is this the right variant of merge to use for this? I think it is, but

298-- TODO: is this the right variant of merge to use for this? I think it is, but

291-- I could also see the advantages of using `mergeLeft`. The current approach is

299-- I could also see the advantages of using `mergeLeft`. The current approach is

292-- strictly more powerful I believe, because `mergeLeft` can be emulated with

300-- strictly more powerful I believe, because `mergeLeft` can be emulated with

libs/contrib/Interfaces/Proposition.idrnew file+32

@@ -0,0 +1,32 @@

1+module Interfaces.Proposition

2+

3+%default total

4+%access public export

5+

6+

7+||| A canonical proof that some type containing no more than one value,

8+||| comprising a mere proposition.

9+interface Proposition t where

10+ ||| If there are two values of t, prove that they are actually the same

11+ atMostOneValue : (x : t) -> (y : t) -> x = y

12+

13+Proposition () where

14+ atMostOneValue () () = Refl

15+

16+Proposition Void where

17+ atMostOneValue _ _ impossible

18+

19+Proposition (x = y) where

20+ atMostOneValue Refl Refl = Refl

21+

22+Proposition (LTE m n) where

23+ atMostOneValue {m=Z} LTEZero LTEZero = Refl

24+ atMostOneValue {m=S _} (LTESucc x) (LTESucc y) = cong $ atMostOneValue x y

25+

26+Proposition (NonEmpty xs) where

27+ atMostOneValue IsNonEmpty IsNonEmpty = Refl

28+

29+(Proposition a, Proposition b) => Proposition (a, b) where

30+ atMostOneValue (x1, y1) (x2, y2) =

31+ rewrite atMostOneValue x1 x2 in

32+ rewrite atMostOneValue y1 y2 in Refl

libs/contrib/Interfaces/Verified.idr+171−9

@@ -6,6 +6,7 @@ import Control.Algebra.NumericImplementations

6import Control.Algebra.VectorSpace

7import Data.Vect

8import Data.ZZ

9+import Data.Bool.Extra

9

10

10%default total

11%default total

11%access public export

12%access public export

@@ -30,12 +31,24 @@ VerifiedFunctor (Pair a) where

30 functorIdentity g p (a,b) = rewrite p b in Refl

31 functorIdentity g p (a,b) = rewrite p b in Refl

31 functorComposition (a,b) g1 g2 = Refl

32 functorComposition (a,b) g1 g2 = Refl

32

33

34+VerifiedFunctor (Either a) where

35+ functorIdentity _ _ (Left _) = Refl

36+ functorIdentity _ p (Right x) = cong (p x)

37+ functorComposition (Left _) _ _ = Refl

38+ functorComposition (Right _) _ _ = Refl

39+

33VerifiedFunctor Maybe where

40VerifiedFunctor Maybe where

34 functorIdentity _ _ Nothing = Refl

41 functorIdentity _ _ Nothing = Refl

35 functorIdentity g p (Just x) = rewrite p x in Refl

42 functorIdentity g p (Just x) = rewrite p x in Refl

36 functorComposition Nothing g1 g2 = Refl

43 functorComposition Nothing g1 g2 = Refl

37 functorComposition (Just x) g1 g2 = Refl

44 functorComposition (Just x) g1 g2 = Refl

38

45

46+VerifiedFunctor List where

47+ functorIdentity _ _ [] = Refl

48+ functorIdentity g p (x :: xs) = rewrite p x in cong (functorIdentity g p xs)

49+ functorComposition [] _ _ = Refl

50+ functorComposition (x :: xs) f g = rewrite functorComposition xs f g in Refl

51+

39VerifiedFunctor (Vect n) where

52VerifiedFunctor (Vect n) where

40 functorIdentity _ _ [] = Refl

53 functorIdentity _ _ [] = Refl

41 functorIdentity g p (x :: xs) = rewrite p x in cong (functorIdentity g p xs)

54 functorIdentity g p (x :: xs) = rewrite p x in cong (functorIdentity g p xs)

@@ -53,6 +66,75 @@ interface (Applicative f, VerifiedFunctor f) => VerifiedApplicative (f : Type ->

53 applicativeInterchange : (x : a) -> (g : f (a -> b)) ->

66 applicativeInterchange : (x : a) -> (g : f (a -> b)) ->

54 g <*> pure x = pure (\g' : (a -> b) => g' x) <*> g

67 g <*> pure x = pure (\g' : (a -> b) => g' x) <*> g

55

68

69+VerifiedApplicative (Either a) where

70+ applicativeMap (Left x) g = Refl

71+ applicativeMap (Right x) g = Refl

72+ applicativeIdentity (Left x) = Refl

73+ applicativeIdentity (Right x) = Refl

74+ applicativeComposition (Left x) (Left y) (Left z) = Refl

75+ applicativeComposition (Left x) (Left y) (Right z) = Refl

76+ applicativeComposition (Left x) (Right y) (Left z) = Refl

77+ applicativeComposition (Left x) (Right y) (Right z) = Refl

78+ applicativeComposition (Right x) (Left y) (Left z) = Refl

79+ applicativeComposition (Right x) (Left y) (Right z) = Refl

80+ applicativeComposition (Right x) (Right y) (Left z) = Refl

81+ applicativeComposition (Right x) (Right y) (Right z) = Refl

82+ applicativeHomomorphism x g = Refl

83+ applicativeInterchange x (Left y) = Refl

84+ applicativeInterchange x (Right y) = Refl

85+

86+private

87+foldrConcatEq : (g1 : List (a -> b)) -> (g2 : List (a -> b)) ->

88+ (xs : List a) ->

89+ foldr (\f, meth => map f xs ++ meth) [] (g1 ++ g2) = foldr (\f, meth => map f xs ++ meth) [] g1 ++ foldr (\f, meth => map f xs ++ meth) [] g2

90+foldrConcatEq [] _ _ = Refl

91+foldrConcatEq (g1 :: gs1) gs2 xs =

92+ trans

93+ (cong $ foldrConcatEq gs1 gs2 xs)

94+ (appendAssociative

95+ (map g1 xs)

96+ (foldr (\f, meth => map f xs ++ meth) [] gs1)

97+ (foldr (\f, meth => map f xs ++ meth) [] gs2))

98+

99+private

100+foldrConcatEq' : (x1 : List a) -> (x2 : List a) ->

101+ (g : a -> List b) ->

102+ foldr (\x, meth => g x ++ meth) [] (x1 ++ x2) = foldr (\x, meth => g x ++ meth) [] x1 ++ foldr (\x, meth => g x ++ meth) [] x2

103+foldrConcatEq' [] _ _ = Refl

104+foldrConcatEq' (x1 :: xs1) xs2 g =

105+ trans

106+ (cong {f=((++) $ g x1)} $ foldrConcatEq' xs1 xs2 g)

107+ (appendAssociative

108+ (g x1)

109+ (foldr (\x, meth => g x ++ meth) [] xs1)

110+ (foldr (\x, meth => g x ++ meth) [] xs2))

111+

112+private

113+foldrMapCombine : (xs : List a) -> (gs1 : List (a -> b)) -> (g2 : b -> c) ->

114+ map g2 (foldr (\g, meth => map g xs ++ meth) [] gs1) =

115+ foldr (\g, meth => map g xs ++ meth) [] (map ((.) g2) gs1)

116+foldrMapCombine xs [] g2 = Refl

117+foldrMapCombine xs (g1 :: gs1) g2 =

118+ trans

119+ (mapAppendDistributive g2 (map g1 xs) (foldr (\g, meth => map g xs ++ meth) [] gs1))

120+ (appendCong2 (sym $ functorComposition xs g1 g2) (foldrMapCombine xs gs1 g2))

121+

122+VerifiedApplicative List where

123+ applicativeMap [] f = Refl

124+ applicativeMap (x :: xs) f = rewrite applicativeMap xs f in Refl

125+ applicativeIdentity xs = rewrite sym $ applicativeMap xs id in functorIdentity' xs

126+ applicativeComposition _ _ [] = Refl

127+ applicativeComposition xs gs1 (g2 :: gs2) = trans

128+ (trans

129+ (foldrConcatEq (map ((.) g2) gs1) (foldr (\g, meth => map g gs1 ++ meth) [] (map (.) gs2 ++ [])) xs)

130+ (cong $ applicativeComposition xs gs1 gs2))

131+ (sym $

132+ cong {f=(++ foldr (\g, meth => map g (foldr (\g', meth' => map g' xs ++ meth') [] gs1) ++ meth) [] gs2)} $

133+ foldrMapCombine xs gs1 g2)

134+ applicativeHomomorphism x g = Refl

135+ applicativeInterchange x [] = Refl

136+ applicativeInterchange x (g :: gs) = cong $ applicativeInterchange x gs

137+

56VerifiedApplicative (Vect n) where

138VerifiedApplicative (Vect n) where

57 applicativeMap [] f = Refl

139 applicativeMap [] f = Refl

58 applicativeMap (x :: xs) f = rewrite applicativeMap xs f in Refl

140 applicativeMap (x :: xs) f = rewrite applicativeMap xs f in Refl

@@ -95,16 +177,61 @@ interface (Monad m, VerifiedApplicative m) => VerifiedMonad (m : Type -> Type) w

95 monadAssociativity : (mx : m a) -> (f : a -> m b) -> (g : b -> m c) ->

177 monadAssociativity : (mx : m a) -> (f : a -> m b) -> (g : b -> m c) ->

96 (mx >>= f) >>= g = mx >>= (\x => f x >>= g)

178 (mx >>= f) >>= g = mx >>= (\x => f x >>= g)

97

179

180+VerifiedMonad (Either a) where

181+ monadApplicative (Left x) (Left y) = Refl

182+ monadApplicative (Left x) (Right y) = Refl

183+ monadApplicative (Right x) (Left y) = Refl

184+ monadApplicative (Right x) (Right y) = Refl

185+ monadLeftIdentity x f = Refl

186+ monadRightIdentity (Left x) = Refl

187+ monadRightIdentity (Right x) = Refl

188+ monadAssociativity (Left x) f g = Refl

189+ monadAssociativity (Right x) f g = Refl

190+

98VerifiedMonad Maybe where

191VerifiedMonad Maybe where

99− monadApplicative Nothing Nothing = Refl

192+ monadApplicative Nothing Nothing = Refl

100− monadApplicative Nothing (Just x) = Refl

193+ monadApplicative Nothing (Just x) = Refl

101− monadApplicative (Just x) Nothing = Refl

194+ monadApplicative (Just x) Nothing = Refl

102− monadApplicative (Just x) (Just y) = Refl

195+ monadApplicative (Just x) (Just y) = Refl

103− monadLeftIdentity x f = Refl

196+ monadLeftIdentity x f = Refl

104− monadRightIdentity Nothing = Refl

197+ monadRightIdentity Nothing = Refl

105− monadRightIdentity (Just x) = Refl

198+ monadRightIdentity (Just x) = Refl

106− monadAssociativity Nothing f g = Refl

199+ monadAssociativity Nothing f g = Refl

107− monadAssociativity (Just x) f g = Refl

200+ monadAssociativity (Just x) f g = Refl

201+

202+VerifiedMonad List where

203+ monadApplicative [] _ = Refl

204+ monadApplicative (x :: xs) [] = Refl

205+ monadApplicative (g :: gs) xs = appendCong2 (mapFoldrEq g xs) (monadApplicative gs xs) where

206+ mapFoldrEq : (f : a -> b) -> (x : List a) -> map f x = foldr (\x1, meth => f x1 :: meth) [] x

207+ mapFoldrEq _ [] = Refl

208+ mapFoldrEq f (_ :: x) = cong $ mapFoldrEq f x

209+ monadLeftIdentity x f = appendNilRightNeutral (f x)

210+ monadRightIdentity [] = Refl

211+ monadRightIdentity (x :: xs) = cong $ monadRightIdentity xs

212+ monadAssociativity [] _ _ = Refl

213+ monadAssociativity (x :: xs) g1 g2 =

214+ trans

215+ (foldrConcatEq' (g1 x) (foldr (\x1, meth => g1 x1 ++ meth) [] xs) g2)

216+ (cong $ monadAssociativity xs g1 g2)

217+

218+interface (Alternative f, VerifiedApplicative f) => VerifiedAlternative (f : Type -> Type) where

219+ alternativeLeftIdentity : (x : f a) -> Applicative.empty <|> x = x

220+ alternativeRightIdentity : (x : f a) -> x <|> Applicative.empty = x

221+ alternativeAssociativity : (x : f a) -> (y : f a) -> (z : f a) ->

222+ x <|> (y <|> z) = (x <|> y) <|> z

223+

224+VerifiedAlternative Maybe where

225+ alternativeLeftIdentity _ = Refl

226+ alternativeRightIdentity Nothing = Refl

227+ alternativeRightIdentity (Just _) = Refl

228+ alternativeAssociativity Nothing _ _ = Refl

229+ alternativeAssociativity (Just _) _ _ = Refl

230+

231+VerifiedAlternative List where

232+ alternativeLeftIdentity _ = Refl

233+ alternativeRightIdentity = appendNilRightNeutral

234+ alternativeAssociativity = appendAssociative

108

235

109interface Semigroup a => VerifiedSemigroup a where

236interface Semigroup a => VerifiedSemigroup a where

110 semigroupOpIsAssociative : (l, c, r : a) -> l <+> (c <+> r) = (l <+> c) <+> r

237 semigroupOpIsAssociative : (l, c, r : a) -> l <+> (c <+> r) = (l <+> c) <+> r

@@ -191,7 +318,42 @@ interface JoinSemilattice a => VerifiedJoinSemilattice a where

191 joinSemilatticeJoinIsCommutative : (l, r : a) -> join l r = join r l

318 joinSemilatticeJoinIsCommutative : (l, r : a) -> join l r = join r l

192 joinSemilatticeJoinIsIdempotent : (e : a) -> join e e = e

319 joinSemilatticeJoinIsIdempotent : (e : a) -> join e e = e

193

320

321+VerifiedJoinSemilattice Nat where

322+ joinSemilatticeJoinIsAssociative = maximumAssociative

323+ joinSemilatticeJoinIsCommutative = maximumCommutative

324+ joinSemilatticeJoinIsIdempotent = maximumIdempotent

325+

326+VerifiedJoinSemilattice Bool where

327+ joinSemilatticeJoinIsAssociative = orAssociative

328+ joinSemilatticeJoinIsCommutative = orCommutative

329+ joinSemilatticeJoinIsIdempotent = orSameNeutral

330+

194interface MeetSemilattice a => VerifiedMeetSemilattice a where

331interface MeetSemilattice a => VerifiedMeetSemilattice a where

195 meetSemilatticeMeetIsAssociative : (l, c, r : a) -> meet l (meet c r) = meet (meet l c) r

332 meetSemilatticeMeetIsAssociative : (l, c, r : a) -> meet l (meet c r) = meet (meet l c) r

196 meetSemilatticeMeetIsCommutative : (l, r : a) -> meet l r = meet r l

333 meetSemilatticeMeetIsCommutative : (l, r : a) -> meet l r = meet r l

197 meetSemilatticeMeetIsIdempotent : (e : a) -> meet e e = e

334 meetSemilatticeMeetIsIdempotent : (e : a) -> meet e e = e

335+

336+VerifiedMeetSemilattice Nat where

337+ meetSemilatticeMeetIsAssociative = minimumAssociative

338+ meetSemilatticeMeetIsCommutative = minimumCommutative

339+ meetSemilatticeMeetIsIdempotent = minimumIdempotent

340+

341+VerifiedMeetSemilattice Bool where

342+ meetSemilatticeMeetIsAssociative = andAssociative

343+ meetSemilatticeMeetIsCommutative = andCommutative

344+ meetSemilatticeMeetIsIdempotent = andSameNeutral

345+

346+interface (VerifiedJoinSemilattice a, BoundedJoinSemilattice a) => VerifiedBoundedJoinSemilattice a where

347+ joinBottomIsIdentity : (x : a) -> join x Lattice.bottom = x

348+

349+VerifiedBoundedJoinSemilattice Nat where

350+ joinBottomIsIdentity = maximumZeroNLeft

351+

352+VerifiedBoundedJoinSemilattice Bool where

353+ joinBottomIsIdentity = orFalseNeutral

354+

355+interface (VerifiedMeetSemilattice a, BoundedMeetSemilattice a) => VerifiedBoundedMeetSemilattice a where

356+ meetTopIsIdentity : (x : a) -> meet x Lattice.top = x

357+

358+VerifiedBoundedMeetSemilattice Bool where

359+ meetTopIsIdentity = andTrueNeutral

libs/contrib/Language/JSON.idr+1−1

@@ -1,4 +1,4 @@

1−||| The JSON language, as described at http://json.org/

1+||| The JSON language, as described at https://json.org/

2module Language.JSON

3

4import Language.JSON.Lexer

libs/contrib/Network/Cgi.idr+3

@@ -30,10 +30,12 @@ data CGI : Type -> Type where

30getAction : CGI a -> CGIInfo -> IO (a, CGIInfo)

31getAction (MkCGI act) = act

32

33+export

33implementation Functor CGI where

34implementation Functor CGI where

34 map f (MkCGI c) = MkCGI (\s => do (a, i) <- c s

35 map f (MkCGI c) = MkCGI (\s => do (a, i) <- c s

35 pure (f a, i))

36 pure (f a, i))

36

37

38+export

37implementation Applicative CGI where

39implementation Applicative CGI where

38 pure v = MkCGI (\s => pure (v, s))

40 pure v = MkCGI (\s => pure (v, s))

39

41

@@ -41,6 +43,7 @@ implementation Applicative CGI where

41 (c, j) <- b i

43 (c, j) <- b i

42 pure (f c, j))

44 pure (f c, j))

43

45

46+export

44implementation Monad CGI where

47implementation Monad CGI where

45 (>>=) (MkCGI f) k = MkCGI (\s => do v <- f s

48 (>>=) (MkCGI f) k = MkCGI (\s => do v <- f s

46 getAction (k (fst v)) (snd v))

49 getAction (k (fst v)) (snd v))

libs/contrib/Network/Socket/Data.idr+6−6

@@ -71,15 +71,15 @@ Show SocketFamily where

71 show AF_INET6 = "AF_INET6"

72

73ToCode SocketFamily where

74− toCode AF_UNSPEC = 0

74+ toCode AF_UNSPEC = unsafePerformIO (foreign FFI_C "#AF_UNSPEC" (IO Int))

75− toCode AF_INET = 2

75+ toCode AF_INET = unsafePerformIO (foreign FFI_C "#AF_INET" (IO Int))

76− toCode AF_INET6 = 10

76+ toCode AF_INET6 = unsafePerformIO (foreign FFI_C "#AF_INET6" (IO Int))

77

78getSocketFamily : Int -> Maybe SocketFamily

79getSocketFamily i =

80− Prelude.List.lookup i [ (0, AF_UNSPEC)

80+ Prelude.List.lookup i [ (toCode AF_UNSPEC, AF_UNSPEC)

81− , (2, AF_INET)

81+ , (toCode AF_INET, AF_INET)

82− , (10, AF_INET6)

82+ , (toCode AF_INET6, AF_INET6)

83 ]

84

85-- ------------------------------------------------------------ [ Socket Types ]

libs/contrib/Text/Lexer.idr+4−4

@@ -161,14 +161,14 @@ hexDigits : Lexer

161hexDigits = some hexDigit

162

163||| Recognise a single octal digit

164−||| /[0-8]/

164+||| /[0-7]/

165octDigit : Lexer

166−octDigit = pred isHexDigit

166+octDigit = pred isOctDigit

167

168||| Recognise one or more octal digits

169−||| /[0-8]+/

169+||| /[0-7]+/

170octDigits : Lexer

171−octDigits = some hexDigit

171+octDigits = some octDigit

172

173||| Recognise a single alpha character

174||| /[A-Za-z]/

libs/contrib/contrib.ipkg+3−1

@@ -8,6 +8,7 @@ modules = CFFI

8

9 , Control.Algebra

10 , Control.Algebra.Lattice

11+ , Control.Algebra.Laws

11 , Control.Algebra.NumericImplementations

12 , Control.Algebra.NumericImplementations

12 , Control.Algebra.VectorSpace

13 , Control.Algebra.VectorSpace

13

14

@@ -42,7 +43,7 @@ modules = CFFI

42 , Data.Heap

43 , Data.Heap

43 , Data.IOArray

44 , Data.IOArray

44 , Data.List.Zipper

45 , Data.List.Zipper

45− , Data.List.Extra

46+ , Data.List.Reverse

46

47

47 , Data.Matrix

48 , Data.Matrix

48 , Data.Matrix.Algebraic

49 , Data.Matrix.Algebraic

@@ -70,6 +71,7 @@ modules = CFFI

70

71

71 , Interfaces.Correlative

72 , Interfaces.Correlative

72 , Interfaces.Verified

73 , Interfaces.Verified

74+ , Interfaces.Proposition

73

75

74 , Language.JSON

76 , Language.JSON

75 , Language.JSON.Data

77 , Language.JSON.Data

libs/effects/Effect/File.idr+4−4

@@ -73,8 +73,8 @@ data FileHandle : (m : Mode) -> Type where

73-- ---------------------------------------------- [ Resource Type Construction ]

74

75||| Calculates the type for the resource being computed over. `Unit`

76−||| to describe pre-and-post file handle acquisistion, and `FileHandle

76+||| to describe pre-and-post file handle acquisition, and `FileHandle

77−||| m` when a file handle has been aqcuired.

77+||| m` when a file handle has been acquired.

78|||

79||| @m The mode the file handle was generated under.

80||| @ty The functions return type.

@@ -315,7 +315,7 @@ R = FileHandle Read

315W : Type

316W = FileHandle WriteTruncate

317

318−||| A file can only be appeneded to.

318+||| A file can only be appended to.

319A : Type

320A = FileHandle Append

321

@@ -324,7 +324,7 @@ RW : Type

324RW = FileHandle ReadWrite

325

326||| A file opened for reading and writing and has been truncated to

327−||| zero if it previsiouly existed.

327+||| zero if it previously existed.

328RWPlus : Type

329RWPlus = FileHandle ReadWriteTruncate

330

libs/effects/Effect/Logging/Category.idr+2−2

@@ -130,7 +130,7 @@ initLogger l cs = call $ InitLogger l cs

130|||

131||| @l The logging level.

132||| @cs The logging categories.

133−||| @m THe message to be logged.

133+||| @m The message to be logged.

134log : (Show a, Eq a) => (l : LogLevel n)

135 -> (cs : List a)

136 -> (m : String)

@@ -141,7 +141,7 @@ log l cs msg = call $ Log l cs msg

141|||

142||| @l The logging level.

143||| @cs The logging categories.

144−||| @m THe message to be logged.

144+||| @m The message to be logged.

145logN : (Show a, Eq a) => (l : Nat)

146 -> {auto prf : LTE l 70}

147 -> (cs : List a)

libs/effects/Effect/Perf.idr+1−1

@@ -193,7 +193,7 @@ collectPMetrics b = call $ TurnOn b

193collectPMetricsAndShow : Eff () [PERF]

194collectPMetricsAndShow = call $ TurnOn True

195

196−||| Return gatheres metrics

196+||| Return gathered metrics

197getPerfMetrics : Eff PMetrics [PERF]

198getPerfMetrics = call $ GetMetrics

199

libs/prelude/IO.idr+1−1

@@ -80,7 +80,7 @@ foreign_prim f fname (FFun arg sc) env

80||| Idris compiler backend in use. For the default C backend, see the

81||| documentation for `FFI_C`.

82|||

83−||| For more details, please consult [the Idris documentation](http://docs.idris-lang.org/en/latest/reference/ffi.html).

83+||| For more details, please consult [the Idris documentation](https://idris.readthedocs.io/en/latest/reference/ffi.html).

84|||

85||| @ f an FFI descriptor, which is specific to the compiler backend.

86||| @ fname the name of the foreign function

libs/prelude/Prelude/Bool.idr+1−1

@@ -12,7 +12,7 @@ data Bool = False | True

12||| The underlying implementation of the if ... then ... else ... syntax

13||| @ b the condition on the if

14||| @ t the value if b is true

15−||| @ e the falue if b is false

15+||| @ e the value if b is false

16ifThenElse : (b : Bool) -> (t : Lazy a) -> (e : Lazy a) -> a

17ifThenElse True t e = t

18ifThenElse False t e = e

libs/prelude/Prelude/File.idr+41−33

@@ -3,6 +3,7 @@ module Prelude.File

3import Builtins

4import Prelude.List

5import Prelude.Maybe

6+import Prelude.Functor

6import Prelude.Monad

7import Prelude.Monad

7import Prelude.Chars

8import Prelude.Chars

8import Prelude.Strings

9import Prelude.Strings

@@ -13,6 +14,7 @@ import Prelude.Basics

13import Prelude.Interfaces

14import Prelude.Interfaces

14import Prelude.Either

15import Prelude.Either

15import Prelude.Show

16import Prelude.Show

17+

16import IO

18import IO

17

19

18%access public export

20%access public export

@@ -79,7 +81,7 @@ do_ferror h = foreign FFI_C "fileError" (Ptr -> IO Int) h

79export

81export

80ferror : File -> IO Bool

82ferror : File -> IO Bool

81ferror (FHandle h) = do err <- do_ferror h

83ferror (FHandle h) = do err <- do_ferror h

82− pure (not (err == 0))

84+ pure (err /= 0)

83

85

84||| Call the RTS's file opening function

86||| Call the RTS's file opening function

85private

87private

@@ -94,26 +96,24 @@ export

94fopen : (f : String) -> (m : String) -> IO (Either FileError File)

96fopen : (f : String) -> (m : String) -> IO (Either FileError File)

95fopen f m = do h <- do_fopen f m

97fopen f m = do h <- do_fopen f m

96 if !(nullPtr h)

98 if !(nullPtr h)

97− then do err <- getFileError

99+ then Left <$> getFileError

98− pure (Left err)

99 else pure (Right (FHandle h))

100 else pure (Right (FHandle h))

100

101

101||| Check whether a file handle is actually a null pointer

102||| Check whether a file handle is actually a null pointer

102export

103export

103validFile : File -> IO Bool

104validFile : File -> IO Bool

104−validFile (FHandle h) = do x <- nullPtr h

105+validFile (FHandle h) = not <$> nullPtr h

105− pure (not x)

106

107||| Modes for opening files

109

110modeStr : Mode -> String

111−modeStr Read = "r"

111+modeStr Read = "rb"

112−modeStr WriteTruncate = "w"

112+modeStr WriteTruncate = "wb"

113−modeStr Append = "a"

113+modeStr Append = "ab"

114−modeStr ReadWrite = "r+"

114+modeStr ReadWrite = "rb+"

115−modeStr ReadWriteTruncate = "w+"

115+modeStr ReadWriteTruncate = "wb+"

116−modeStr ReadAppend = "a+"

116+modeStr ReadAppend = "ab+"

117

118||| Open a file

119||| @ f the filename

@@ -150,7 +150,8 @@ do_getFileAccessTime h =

150private

151do_getFileModifiedTime : Ptr -> IO Integer

152do_getFileModifiedTime h =

153+ do vm <- getMyVM

153− do MkRaw i <- foreign FFI_C "fileModifiedTime" (Ptr -> IO (Raw Integer)) h

154+ MkRaw i <- foreign FFI_C "fileModifiedTime" (Ptr -> Ptr -> IO (Raw Integer)) vm h

154 pure i

155 pure i

155

156

156private

157private

@@ -168,17 +169,15 @@ fileSize : File -> IO (Either FileError Int)

168fileSize (FHandle h)

169fileSize (FHandle h)

169 = do s <- do_getFileSize h

170 = do s <- do_getFileSize h

170 if (s < 0)

171 if (s < 0)

171− then do err <- getFileError

172+ then Left <$> getFileError

172− pure (Left err)

173 else pure (Right s)

174

175export

176fileModifiedTime : File -> IO (Either FileError Integer)

177fileModifiedTime (FHandle h)

178 = do s <- do_getFileModifiedTime h

179− if (s < 0)

179+ if (s == -1)

180− then do err <- getFileError

180+ then Left <$> getFileError

181− pure (Left err)

182 else pure (Right s)

181 else pure (Right s)

183

182

184export

183export

@@ -186,8 +185,7 @@ fileAccessTime : File -> IO (Either FileError Integer)

186fileAccessTime (FHandle h)

185fileAccessTime (FHandle h)

187 = do s <- do_getFileAccessTime h

186 = do s <- do_getFileAccessTime h

188 if (s < 0)

187 if (s < 0)

189− then do err <- getFileError

188+ then Left <$> getFileError

190− pure (Left err)

191 else pure (Right s)

189 else pure (Right s)

192

190

193export

191export

@@ -195,11 +193,9 @@ fileStatusTime : File -> IO (Either FileError Integer)

195fileStatusTime (FHandle h)

193fileStatusTime (FHandle h)

196 = do s <- do_getFileStatusTime h

194 = do s <- do_getFileStatusTime h

197 if (s < 0)

195 if (s < 0)

198− then do err <- getFileError

196+ then Left <$> getFileError

199− pure (Left err)

200 else pure (Right s)

197 else pure (Right s)

201

198

202−

203private

199private

204do_fread : Ptr -> IO' l String

200do_fread : Ptr -> IO' l String

205do_fread h = prim_fread h

201do_fread h = prim_fread h

@@ -263,8 +259,7 @@ do_fwrite h s = do res <- prim_fwrite h s

263 then do errno <- getErrno

259 then do errno <- getErrno

264 if errno == 0

260 if errno == 0

265 then pure (Left FileWriteError)

261 then pure (Left FileWriteError)

266− else do err <- getFileError

262+ else Left <$> getFileError

267− pure (Left err)

268 else pure (Right ())

263 else pure (Right ())

269

264

270||| Write a line to a file

265||| Write a line to a file

@@ -286,7 +281,18 @@ do_feof h = foreign FFI_C "fileEOF" (Ptr -> IO Int) h

286export

281export

287fEOF : File -> IO Bool

282fEOF : File -> IO Bool

288fEOF (FHandle h) = do eof <- do_feof h

283fEOF (FHandle h) = do eof <- do_feof h

289− pure (not (eof == 0))

284+ pure (eof /= 0)

285+

286+private

287+do_fremove : String -> IO Int

288+do_fremove s = foreign FFI_C "fileRemove" (String -> IO Int) s

289+

290+||| Remove a file

291+||| @s the file name

292+export

293+fRemove : (s : String) -> IO Bool

294+fRemove s = do res <- do_fremove s

295+ pure (res == 0)

290

296

291export

297export

292fpoll : File -> IO Bool

298fpoll : File -> IO Bool

@@ -305,7 +311,8 @@ readFile : (filepath : String) -> IO (Either FileError String)

305readFile fn = do Right h <- openFile fn Read

311readFile fn = do Right h <- openFile fn Read

306 | Left err => pure (Left err)

312 | Left err => pure (Left err)

307 Right max <- fileSize h

313 Right max <- fileSize h

314+ | Left err => do closeFile h

308− | Left err => pure (Left err)

315+ pure (Left err)

309 sb <- newStringBuffer (max + 1)

316 sb <- newStringBuffer (max + 1)

310 c <- readFile' h max sb

317 c <- readFile' h max sb

311 closeFile h

318 closeFile h

@@ -328,8 +335,11 @@ export

328writeFile : (filepath : String) -> (contents : String) ->

335writeFile : (filepath : String) -> (contents : String) ->

329 IO (Either FileError ())

336 IO (Either FileError ())

330writeFile fn contents = do

337writeFile fn contents = do

331− Right h <- openFile fn WriteTruncate | Left err => pure (Left err)

338+ Right h <- openFile fn WriteTruncate

339+ | Left err => pure (Left err)

332− Right () <- fPutStr h contents | Left err => pure (Left err)

340+ Right () <- fPutStr h contents

341+ | Left err => do closeFile h

342+ pure (Left err)

333 closeFile h

343 closeFile h

334 pure (Right ())

344 pure (Right ())

335

345

@@ -339,8 +349,7 @@ dirOpen : (d : String) -> IO (Either FileError Directory)

339dirOpen d

349dirOpen d

340 = do dptr <- foreign FFI_C "idris_dirOpen" (String -> IO Ptr) d

350 = do dptr <- foreign FFI_C "idris_dirOpen" (String -> IO Ptr) d

341 if !(nullPtr dptr)

351 if !(nullPtr dptr)

342− then do err <- getFileError

352+ then Left <$> getFileError

343− pure (Left err)

344 else pure (Right (DHandle dptr))

353 else pure (Right (DHandle dptr))

345

354

346export

355export

@@ -351,7 +360,7 @@ export

351dirError : Directory -> IO Bool

360dirError : Directory -> IO Bool

352dirError (DHandle d)

361dirError (DHandle d)

353 = do err <- foreign FFI_C "idris_dirError" (Ptr -> IO Int) d

362 = do err <- foreign FFI_C "idris_dirError" (Ptr -> IO Int) d

354− pure (not (err == 0))

363+ pure (err /= 0)

355

364

356export

365export

357dirEntry : Directory -> IO (Either FileError String)

366dirEntry : Directory -> IO (Either FileError String)

@@ -367,8 +376,7 @@ createDir d

367 = do ok <- foreign FFI_C "idris_mkdir" (String -> IO Int) d

376 = do ok <- foreign FFI_C "idris_mkdir" (String -> IO Int) d

368 if (ok == 0)

377 if (ok == 0)

369 then pure (Right ())

378 then pure (Right ())

370− else do err <- getFileError

379+ else Left <$> getFileError

371− pure (Left err)

372

380

373export

381export

374changeDir : String -> IO Bool

382changeDir : String -> IO Bool

libs/prelude/Prelude/List.idr+35−5

@@ -436,12 +436,12 @@ intercalate sep xss = concat $ intersperse sep xss

436|||

437||| transpose [[], [1, 2]] = [[1], [2]]

438||| transpose (transpose [[], [1, 2]]) = [[1, 2]]

439−|||

440−||| TODO: Solution which satisfies the totality checker?

441transpose : List (List a) -> List (List a)

439transpose : List (List a) -> List (List a)

442transpose [] = []

440transpose [] = []

443−transpose ([] :: xss) = transpose xss

441+transpose (heads :: tails) = spreadHeads heads (transpose tails) where

444−transpose ((x::xs) :: xss) = assert_total $ (x :: (mapMaybe head' xss)) :: (transpose (xs :: (map (drop 1) xss)))

442+ spreadHeads [] tails = tails

443+ spreadHeads (head :: heads) [] = [head] :: spreadHeads heads []

444+ spreadHeads (head :: heads) (tail :: tails) = (head :: tail) :: spreadHeads heads tails

445

446--------------------------------------------------------------------------------

447-- Membership tests

@@ -861,10 +861,40 @@ catMaybes (x::xs) =

861-- Properties

862--------------------------------------------------------------------------------

863

864+Uninhabited ([] = _ :: _) where

865+ uninhabited Refl impossible

866+

867+Uninhabited (_ :: _ = []) where

868+ uninhabited Refl impossible

869+

864||| (::) is injective

870||| (::) is injective

871+consInjective : {x : a} -> {xs : List a} -> {y : b} -> {ys : List b} ->

865−consInjective : (x :: xs) = (y :: ys) -> (x = y, xs = ys)

872+ (x :: xs) = (y :: ys) -> (x = y, xs = ys)

866consInjective Refl = (Refl, Refl)

873consInjective Refl = (Refl, Refl)

867

874

875+||| Two lists are equal, if their heads are equal and their tails are equal.

876+consCong2 : {x : a} -> {xs : List a} -> {y : b} -> {ys : List b} ->

877+ x = y -> xs = ys -> x :: xs = y :: ys

878+consCong2 Refl Refl = Refl

879+

880+||| Appending pairwise equal lists gives equal lists

881+appendCong2 : {x1 : List a} -> {x2 : List a} ->

882+ {y1 : List b} -> {y2 : List b} ->

883+ x1 = y1 -> x2 = y2 -> x1 ++ x2 = y1 ++ y2

884+appendCong2 {x1=[]} {y1=(_ :: _)} Refl _ impossible

885+appendCong2 {x1=(_ :: _)} {y1=[]} Refl _ impossible

886+appendCong2 {x1=[]} {y1=[]} _ eq2 = eq2

887+appendCong2 {x1=(_ :: _)} {y1=(_ :: _)} eq1 eq2 =

888+ consCong2

889+ (fst $ consInjective eq1)

890+ (appendCong2 (snd $ consInjective eq1) eq2)

891+

892+||| List.map is distributive over appending.

893+mapAppendDistributive : (f : a -> b) -> (x : List a) -> (y : List a) ->

894+ map f (x ++ y) = map f x ++ map f y

895+mapAppendDistributive _ [] _ = Refl

896+mapAppendDistributive f (_ :: xs) y = cong $ mapAppendDistributive f xs y

897+

868||| The empty list is a right identity for append.

898||| The empty list is a right identity for append.

869appendNilRightNeutral : (l : List a) ->

899appendNilRightNeutral : (l : List a) ->

870 l ++ [] = l

900 l ++ [] = l

libs/prelude/Prelude/Nat.idr+32−61

@@ -512,19 +512,18 @@ plusLeftCancel (S left) right right' p =

512

513total plusRightCancel : (left : Nat) -> (left' : Nat) -> (right : Nat) ->

514 (p : left + right = left' + right) -> left = left'

515−plusRightCancel left left' Z p = rewrite sym (plusZeroRightNeutral left) in

515+plusRightCancel left left' right p =

516− rewrite sym (plusZeroRightNeutral left') in

516+ plusLeftCancel right left left' $

517− p

517+ rewrite plusCommutative right left in

518−plusRightCancel left left' (S right) p =

518+ rewrite plusCommutative right left' in

519− plusRightCancel left left' right

519+ p

520− (succInjective _ _ (rewrite plusSuccRightSucc left right in

521− rewrite plusSuccRightSucc left' right in p))

522

520

523total plusLeftLeftRightZero : (left : Nat) -> (right : Nat) ->

521total plusLeftLeftRightZero : (left : Nat) -> (right : Nat) ->

524 (p : left + right = left) -> right = Z

522 (p : left + right = left) -> right = Z

525−plusLeftLeftRightZero Z right p = p

523+plusLeftLeftRightZero left right p =

526−plusLeftLeftRightZero (S left) right p =

524+ plusLeftCancel left right Z $

527− plusLeftLeftRightZero left right (succInjective _ _ p)

525+ rewrite plusZeroRightNeutral left in

526+ p

528

527

529-- Mult

528-- Mult

530total multZeroLeftZero : (right : Nat) -> Z * right = Z

529total multZeroLeftZero : (right : Nat) -> Z * right = Z

@@ -558,27 +557,21 @@ multCommutative (S left) right =

558 rewrite multRightSuccPlus right left in

557 rewrite multRightSuccPlus right left in

559 Refl

558 Refl

560

559

561−total multDistributesOverPlusRight : (left : Nat) -> (centre : Nat) -> (right : Nat) ->

562− left * (centre + right) = (left * centre) + (left * right)

563−multDistributesOverPlusRight Z centre right = Refl

564−multDistributesOverPlusRight (S left) centre right =

565− let inductiveHypothesis = multDistributesOverPlusRight left centre right in

566− rewrite inductiveHypothesis in

567− rewrite plusAssociative (plus centre (mult left centre)) right (mult left right) in

568− rewrite sym (plusAssociative centre (mult left centre) right) in

569− rewrite plusCommutative (mult left centre) right in

570− rewrite plusAssociative centre right (mult left centre) in

571− rewrite plusAssociative (plus centre right) (mult left centre) (mult left right) in

572− Refl

573−

574total multDistributesOverPlusLeft : (left : Nat) -> (centre : Nat) -> (right : Nat) ->

560total multDistributesOverPlusLeft : (left : Nat) -> (centre : Nat) -> (right : Nat) ->

575 (left + centre) * right = (left * right) + (centre * right)

561 (left + centre) * right = (left * right) + (centre * right)

576−multDistributesOverPlusLeft Z centre right = Refl

562+multDistributesOverPlusLeft Z centre right = Refl

577−multDistributesOverPlusLeft (S left) centre right =

563+multDistributesOverPlusLeft (S k) centre right =

578− let inductiveHypothesis = multDistributesOverPlusLeft left centre right in

564+ rewrite multDistributesOverPlusLeft k centre right in

579− rewrite inductiveHypothesis in

580− rewrite plusAssociative right (mult left right) (mult centre right) in

565+ rewrite plusAssociative right (k * right) (centre * right) in

581− Refl

566+ Refl

567+

568+total multDistributesOverPlusRight : (left : Nat) -> (centre : Nat) -> (right : Nat) ->

569+ left * (centre + right) = (left * centre) + (left * right)

570+multDistributesOverPlusRight left centre right =

571+ rewrite multCommutative left (centre + right) in

572+ rewrite multCommutative left centre in

573+ rewrite multCommutative left right in

574+ multDistributesOverPlusLeft centre right left

582

575

583total multAssociative : (left : Nat) -> (centre : Nat) -> (right : Nat) ->

576total multAssociative : (left : Nat) -> (centre : Nat) -> (right : Nat) ->

584 left * (centre * right) = (left * centre) * right

577 left * (centre * right) = (left * centre) * right

@@ -590,18 +583,10 @@ multAssociative (S left) centre right =

590 Refl

583 Refl

591

584

592total multOneLeftNeutral : (right : Nat) -> 1 * right = right

585total multOneLeftNeutral : (right : Nat) -> 1 * right = right

593−multOneLeftNeutral Z = Refl

586+multOneLeftNeutral right = plusZeroRightNeutral right

594−multOneLeftNeutral (S right) =

595− let inductiveHypothesis = multOneLeftNeutral right in

596− rewrite inductiveHypothesis in

597− Refl

598

587

599total multOneRightNeutral : (left : Nat) -> left * 1 = left

588total multOneRightNeutral : (left : Nat) -> left * 1 = left

600−multOneRightNeutral Z = Refl

589+multOneRightNeutral left = rewrite multCommutative left 1 in multOneLeftNeutral left

601−multOneRightNeutral (S left) =

602− let inductiveHypothesis = multOneRightNeutral left in

603− rewrite inductiveHypothesis in

604− Refl

605

590

606-- Minus

591-- Minus

607total minusSuccSucc : (left : Nat) -> (right : Nat) ->

592total minusSuccSucc : (left : Nat) -> (right : Nat) ->

@@ -689,10 +674,7 @@ total powerZeroOne : (base : Nat) -> power base 0 = S Z

689powerZeroOne base = Refl

674powerZeroOne base = Refl

690

675

691total powerOneNeutral : (base : Nat) -> power base 1 = base

676total powerOneNeutral : (base : Nat) -> power base 1 = base

692−powerOneNeutral Z = Refl

677+powerOneNeutral base = rewrite multCommutative base 1 in multOneLeftNeutral base

693−powerOneNeutral (S base) =

694− let inductiveHypothesis = powerOneNeutral base in

695− rewrite inductiveHypothesis in Refl

696

678

697total powerOneSuccOne : (exp : Nat) -> power 1 exp = S Z

679total powerOneSuccOne : (exp : Nat) -> power 1 exp = S Z

698powerOneSuccOne Z = Refl

680powerOneSuccOne Z = Refl

@@ -701,8 +683,7 @@ powerOneSuccOne (S exp) =

701 rewrite inductiveHypothesis in Refl

683 rewrite inductiveHypothesis in Refl

702

684

703total powerSuccSuccMult : (base : Nat) -> power base 2 = mult base base

685total powerSuccSuccMult : (base : Nat) -> power base 2 = mult base base

704−powerSuccSuccMult Z = Refl

705−powerSuccSuccMult (S base) = rewrite multOneRightNeutral base in Refl

686+powerSuccSuccMult base = rewrite multOneRightNeutral base in Refl

706

687

707total powerPowerMultPower : (base : Nat) -> (exp : Nat) -> (exp' : Nat) ->

688total powerPowerMultPower : (base : Nat) -> (exp : Nat) -> (exp' : Nat) ->

708 power (power base exp) exp' = power base (exp * exp')

689 power (power base exp) exp' = power base (exp * exp')

@@ -796,34 +777,24 @@ minimumIdempotent Z = Refl

796minimumIdempotent (S k) = cong (minimumIdempotent k)

777minimumIdempotent (S k) = cong (minimumIdempotent k)

797

778

798total minimumZeroZeroRight : (right : Nat) -> minimum 0 right = Z

779total minimumZeroZeroRight : (right : Nat) -> minimum 0 right = Z

799−minimumZeroZeroRight Z = Refl

780+minimumZeroZeroRight right = Refl

800−minimumZeroZeroRight (S right) = minimumZeroZeroRight right

801

781

802total minimumZeroZeroLeft : (left : Nat) -> minimum left 0 = Z

782total minimumZeroZeroLeft : (left : Nat) -> minimum left 0 = Z

803−minimumZeroZeroLeft Z = Refl

783+minimumZeroZeroLeft left = rewrite minimumCommutative left 0 in Refl

804−minimumZeroZeroLeft (S left) = Refl

805

784

806total minimumSuccSucc : (left : Nat) -> (right : Nat) ->

785total minimumSuccSucc : (left : Nat) -> (right : Nat) ->

807 minimum (S left) (S right) = S (minimum left right)

786 minimum (S left) (S right) = S (minimum left right)

808−minimumSuccSucc Z Z = Refl

787+minimumSuccSucc left right = Refl

809−minimumSuccSucc (S left) Z = Refl

810−minimumSuccSucc Z (S right) = Refl

811−minimumSuccSucc (S left) (S right) = Refl

812

788

813total maximumZeroNRight : (right : Nat) -> maximum Z right = right

789total maximumZeroNRight : (right : Nat) -> maximum Z right = right

814−maximumZeroNRight Z = Refl

790+maximumZeroNRight right = Refl

815−maximumZeroNRight (S right) = Refl

816

791

817total maximumZeroNLeft : (left : Nat) -> maximum left Z = left

792total maximumZeroNLeft : (left : Nat) -> maximum left Z = left

818−maximumZeroNLeft Z = Refl

793+maximumZeroNLeft left = rewrite maximumCommutative left Z in Refl

819−maximumZeroNLeft (S left) = Refl

820

794

821total maximumSuccSucc : (left : Nat) -> (right : Nat) ->

795total maximumSuccSucc : (left : Nat) -> (right : Nat) ->

822 S (maximum left right) = maximum (S left) (S right)

796 S (maximum left right) = maximum (S left) (S right)

823−maximumSuccSucc Z Z = Refl

797+maximumSuccSucc left right = Refl

824−maximumSuccSucc (S left) Z = Refl

825−maximumSuccSucc Z (S right) = Refl

826−maximumSuccSucc (S left) (S right) = Refl

827

798

828total sucMaxL : (l : Nat) -> maximum (S l) l = (S l)

799total sucMaxL : (l : Nat) -> maximum (S l) l = (S l)

829sucMaxL Z = Refl

800sucMaxL Z = Refl

man/idris.1+6−2

@@ -1,6 +1,6 @@

1.\" Manpage for Idris.

2.\" Contact <> to correct errors or typos.

3−.TH man 1 "26 May 2018" "1.3.0" "Idris man page"

3+.TH man 1 "23 October 2018" "1.3.2" "Idris man page"

4.SH NAME

5idris -\ a general purpose pure functional programming language with dependent types.

6.SH SYNOPSIS

@@ -99,6 +99,10 @@ should not necessarily be seen as production ready nor for industrial use.

99 e.g. corei7 or cortex-m3.

100 --color,--colour Force coloured output

101 --nocolor,--nocolour Disable coloured output

102+ --optimise-nat-like-types,--optimize-nat-like-types

103+ Compile Nat-like types to big ints

104+ --no-optimise-nat-like-types,--no-optimize-nat-like-types

105+ Do not compile Nat-like types to big ints

102 --consolewidth WIDTH Select console width: auto, infinite, nat

106 --consolewidth WIDTH Select console width: auto, infinite, nat

103 --highlight Emit source code highlighting

107 --highlight Emit source code highlighting

104 --no-tactic-deprecation-warnings

108 --no-tactic-deprecation-warnings

@@ -109,7 +113,7 @@ should not necessarily be seen as production ready nor for industrial use.

109

113

110.SH SEE ALSO

114.SH SEE ALSO

111

115

112−+ The IDRIS web site (http://idris-lang.org/

116++ The IDRIS web site (https://idris-lang.org/

113

117

114+ The IRC channel #idris, on chat.freenode.net

118+ The IRC channel #idris, on chat.freenode.net

115

119

rts/idris_bitstring.c−2

@@ -1,5 +1,3 @@

1−#include <assert.h>

2−

3#include "idris_rts.h"

1#include "idris_rts.h"

4

2

5VAL idris_b8const(VM *vm, uint8_t a) {

3VAL idris_b8const(VM *vm, uint8_t a) {

rts/idris_heap.c+2

@@ -110,12 +110,14 @@ void c_heap_destroy(CHeap * heap)

110void alloc_heap(Heap * h, size_t heap_size, size_t growth, char * old)

111{

112 char * mem = malloc(heap_size);

113+

113 if (mem == NULL) {

114 if (mem == NULL) {

114 fprintf(stderr,

115 fprintf(stderr,

115 "RTS ERROR: Unable to allocate heap. Requested %zd bytes.\n",

116 "RTS ERROR: Unable to allocate heap. Requested %zd bytes.\n",

116 heap_size);

117 heap_size);

117 exit(EXIT_FAILURE);

118 exit(EXIT_FAILURE);

118 }

119 }

120+ memset(mem, 0, heap_size);

119

121

120 h->heap = mem;

122 h->heap = mem;

121 h->next = aligned_heap_pointer(h->heap);

123 h->next = aligned_heap_pointer(h->heap);

rts/idris_rts.c+23−27

@@ -72,6 +72,7 @@ VM* init_vm(int stack_size, size_t heap_size,

72

73 vm->max_threads = max_threads;

74 vm->processes = 0;

75+ vm->creator = NULL;

75

76

76#else

77#else

77 global_vm = vm;

78 global_vm = vm;

@@ -131,16 +132,18 @@ void init_signals(void) {

131Stats terminate(VM* vm) {

132Stats terminate(VM* vm) {

132 Stats stats = vm->stats;

133 Stats stats = vm->stats;

133 STATS_ENTER_EXIT(stats)

134 STATS_ENTER_EXIT(stats)

134−#ifdef HAS_PTHREAD

135− free(vm->inbox);

136−#endif

137 free(vm->valstack);

135 free(vm->valstack);

138 free_heap(&(vm->heap));

136 free_heap(&(vm->heap));

139 c_heap_destroy(&(vm->c_heap));

137 c_heap_destroy(&(vm->c_heap));

140#ifdef HAS_PTHREAD

138#ifdef HAS_PTHREAD

141− pthread_mutex_destroy(&(vm -> inbox_lock));

139+ pthread_mutex_destroy(&(vm->inbox_lock));

142− pthread_mutex_destroy(&(vm -> inbox_block));

140+ pthread_mutex_destroy(&(vm->inbox_block));

141+ pthread_mutex_destroy(&(vm->alloc_lock));

143− pthread_cond_destroy(&(vm -> inbox_waiting));

142+ pthread_cond_destroy(&(vm->inbox_waiting));

143+ free(vm->inbox);

144+ if (vm->creator != NULL) {

145+ vm->creator->processes--;

146+ }

144#endif

147#endif

145 // free(vm);

148 // free(vm);

146 // Set the VM as inactive, so that if any message gets sent to it

149 // Set the VM as inactive, so that if any message gets sent to it

@@ -209,7 +212,6 @@ void * allocate(size_t sz, int lock) {

209}

212}

210

213

211void* iallocate(VM * vm, size_t isize, int outerlock) {

214void* iallocate(VM * vm, size_t isize, int outerlock) {

212−// return malloc(isize);

213 size_t size = aligned(isize);

215 size_t size = aligned(isize);

214

216

215#ifdef HAS_PTHREAD

217#ifdef HAS_PTHREAD

@@ -225,7 +227,6 @@ void* iallocate(VM * vm, size_t isize, int outerlock) {

225 char* ptr = vm->heap.next;

227 char* ptr = vm->heap.next;

226 vm->heap.next += size;

228 vm->heap.next += size;

227 assert(vm->heap.next <= vm->heap.end);

229 assert(vm->heap.next <= vm->heap.end);

228− memset(ptr, 0, size);

229 ((Hdr*)ptr)->sz = isize;

230 ((Hdr*)ptr)->sz = isize;

230

231

231#ifdef HAS_PTHREAD

232#ifdef HAS_PTHREAD

@@ -241,6 +242,13 @@ void* iallocate(VM * vm, size_t isize, int outerlock) {

241 vm->heap.size += size;

242 vm->heap.size += size;

242 }

243 }

243 idris_gc(vm);

244 idris_gc(vm);

245+

246+ // If there's still not enough room, grow the heap and try again

247+ if (vm->heap.next + size >= vm->heap.end) {

248+ vm->heap.size += size+vm->heap.growth;

249+ idris_gc(vm);

250+ }

251+

244#ifdef HAS_PTHREAD

252#ifdef HAS_PTHREAD

245 if (lock) { // not message passing

253 if (lock) { // not message passing

246 pthread_mutex_unlock(&vm->alloc_lock);

254 pthread_mutex_unlock(&vm->alloc_lock);

@@ -783,28 +791,25 @@ VAL idris_systemInfo(VM* vm, VAL index) {

783 return MKSTR(vm, "");

791 return MKSTR(vm, "");

784}

792}

785

793

794+#ifdef HAS_PTHREAD

786typedef struct {

795typedef struct {

787 VM* vm; // thread's VM

796 VM* vm; // thread's VM

788− VM* callvm; // calling thread's VM

789 func fn;

797 func fn;

790 VAL arg;

798 VAL arg;

791} ThreadData;

799} ThreadData;

792

800

793−#ifdef HAS_PTHREAD

794void* runThread(void* arg) {

801void* runThread(void* arg) {

795 ThreadData* td = (ThreadData*)arg;

802 ThreadData* td = (ThreadData*)arg;

796 VM* vm = td->vm;

803 VM* vm = td->vm;

797− VM* callvm = td->callvm;

804+ func fn = td->fn;

798

805

799 init_threaddata(vm);

806 init_threaddata(vm);

800

807

801 TOP(0) = td->arg;

808 TOP(0) = td->arg;

802 BASETOP(0);

809 BASETOP(0);

803 ADDTOP(1);

810 ADDTOP(1);

804− td->fn(vm, NULL);

805− callvm->processes--;

806−

807 free(td);

811 free(td);

812+ fn(vm, NULL);

808

813

809 // Stats stats =

814 // Stats stats =

810 terminate(vm);

815 terminate(vm);

@@ -816,6 +821,7 @@ void* vmThread(VM* callvm, func f, VAL arg) {

816 VM* vm = init_vm(callvm->stack_max - callvm->valstack, callvm->heap.size,

821 VM* vm = init_vm(callvm->stack_max - callvm->valstack, callvm->heap.size,

817 callvm->max_threads);

822 callvm->max_threads);

818 vm->processes=1; // since it can send and receive messages

823 vm->processes=1; // since it can send and receive messages

824+ vm->creator = callvm;

819 pthread_t t;

825 pthread_t t;

820 pthread_attr_t attr;

826 pthread_attr_t attr;

821// size_t stacksize;

827// size_t stacksize;

@@ -824,15 +830,15 @@ void* vmThread(VM* callvm, func f, VAL arg) {

824// pthread_attr_getstacksize (&attr, &stacksize);

830// pthread_attr_getstacksize (&attr, &stacksize);

825// pthread_attr_setstacksize (&attr, stacksize*64);

831// pthread_attr_setstacksize (&attr, stacksize*64);

826

832

827− ThreadData *td = malloc(sizeof(ThreadData));

833+ ThreadData *td = malloc(sizeof(ThreadData)); // free'd in runThread

828 td->vm = vm;

834 td->vm = vm;

829− td->callvm = callvm;

830 td->fn = f;

835 td->fn = f;

831 td->arg = copyTo(vm, arg);

836 td->arg = copyTo(vm, arg);

832

837

833 callvm->processes++;

838 callvm->processes++;

834

839

835 int ok = pthread_create(&t, &attr, runThread, td);

840 int ok = pthread_create(&t, &attr, runThread, td);

841+ pthread_attr_destroy(&attr);

836// usleep(100);

842// usleep(100);

837 if (ok == 0) {

843 if (ok == 0) {

838 return vm;

844 return vm;

@@ -843,7 +849,7 @@ void* vmThread(VM* callvm, func f, VAL arg) {

843}

849}

844

850

845void* idris_stopThread(VM* vm) {

851void* idris_stopThread(VM* vm) {

846− close_vm(vm);

852+ terminate(vm);

847 pthread_exit(NULL);

853 pthread_exit(NULL);

848 return NULL;

854 return NULL;

849}

855}

@@ -1152,16 +1158,6 @@ void idris_disableBuffering(void) {

1152 setvbuf(stdout, NULL, _IONBF, 0);

1158 setvbuf(stdout, NULL, _IONBF, 0);

1153}

1159}

1154

1160

1155−#ifndef SEL4

1156−int idris_usleep(int usec) {

1157− struct timespec t;

1158− t.tv_sec = usec / 1000000;

1159− t.tv_nsec = (usec % 1000000) * 1000;

1160−

1161− return nanosleep(&t, NULL);

1162−}

1163−#endif // SEL4

1164−

1165void stackOverflow(void) {

1161void stackOverflow(void) {

1166 fprintf(stderr, "Stack overflow");

1162 fprintf(stderr, "Stack overflow");

1167 exit(-1);

1163 exit(-1);

rts/idris_rts.h+6−6

@@ -4,8 +4,8 @@

4#include <assert.h>

5#include <stdlib.h>

6#include <stdio.h>

7−#ifdef HAS_PTHREAD

8#include <string.h>

7#include <string.h>

8+#ifdef HAS_PTHREAD

9#include <stdarg.h>

10#include <pthread.h>

11#endif

@@ -152,6 +152,7 @@ struct VM {

152

153 int processes; // Number of child processes

154 int max_threads; // maximum number of threads to run in parallel

155+ struct VM* creator; // The VM that created this VM, NULL for root VM

155#endif

156#endif

156 Stats stats;

157 Stats stats;

157

158

@@ -290,6 +291,9 @@ typedef intptr_t i_int;

290 if (vm->valstack_top+(x) > vm->stack_max) { stackOverflow(); } \

291 if (vm->valstack_top+(x) > vm->stack_max) { stackOverflow(); } \

291 else { memset(vm->valstack_top, 0, (x)*sizeof(VAL)); } \

292 else { memset(vm->valstack_top, 0, (x)*sizeof(VAL)); } \

292 } while(0)

293 } while(0)

294+#define RESERVENOALLOC(x) do { \

295+ if (vm->valstack_top+(x) > vm->stack_max) { stackOverflow(); } \

296+ } while(0)

293#define ADDTOP(x) vm->valstack_top += (x)

297#define ADDTOP(x) vm->valstack_top += (x)

294#define TOPBASE(x) vm->valstack_top = vm->valstack_base + (x)

298#define TOPBASE(x) vm->valstack_top = vm->valstack_base + (x)

295#define BASETOP(x) vm->valstack_base = vm->valstack_top + (x)

299#define BASETOP(x) vm->valstack_base = vm->valstack_top + (x)

@@ -331,7 +335,7 @@ size_t GETSTROFFLEN(VAL stroff);

331#define PROJECT(vm,r,loc,num) \

335#define PROJECT(vm,r,loc,num) \

332 memcpy(&(LOC(loc)), ((Con*)(r))->args, sizeof(VAL)*num)

336 memcpy(&(LOC(loc)), ((Con*)(r))->args, sizeof(VAL)*num)

333#define SLIDE(vm, args) \

337#define SLIDE(vm, args) \

334− memcpy(&(LOC(0)), &(TOP(0)), sizeof(VAL)*args)

338+ memmove(&(LOC(0)), &(TOP(0)), sizeof(VAL)*args)

335

339

336void* iallocate(VM *, size_t, int);

340void* iallocate(VM *, size_t, int);

337

341

@@ -503,10 +507,6 @@ const char *idris_getArg(int i);

503// disable stdin/stdout buffering

507// disable stdin/stdout buffering

504void idris_disableBuffering(void);

508void idris_disableBuffering(void);

505

509

506−#ifndef SEL4

507−int idris_usleep(int usec);

508−#endif // SEL4

509−

510// Handle stack overflow.

511// Just reports an error and exits.

512

rts/idris_stdfgn.c+38−5

@@ -11,9 +11,7 @@

11#include <unistd.h>

12

13#ifdef _WIN32

14−int win_fpoll(void* h);

14+#include "windows/win_utils.h"

15−FILE *win32_u8fopen(const char *path, const char *mode);

16−FILE *win32_u8popen(const char *path, const char *mode);

17#else

15#else

18#include <sys/select.h>

16#include <sys/select.h>

19#endif

17#endif

@@ -48,6 +46,10 @@ int fileError(void* h) {

48 return ferror(f);

46 return ferror(f);

49}

47}

50

48

49+int fileRemove(const char *filename) {

50+ return remove(filename);

51+}

52+

51int fileSize(void* h) {

53int fileSize(void* h) {

52 FILE* f = (FILE*)h;

54 FILE* f = (FILE*)h;

53 int fd = fileno(f);

55 int fd = fileno(f);

@@ -72,13 +74,13 @@ VAL fileAccessTime(void* h) {

72 }

74 }

73}

75}

74

76

75−VAL fileModifiedTime(void* h) {

77+VAL fileModifiedTime(VM* vm, void* h) {

76 FILE* f = (FILE*)h;

78 FILE* f = (FILE*)h;

77 int fd = fileno(f);

79 int fd = fileno(f);

78

80

79 struct stat buf;

81 struct stat buf;

80 if (fstat(fd, &buf) == 0) {

82 if (fstat(fd, &buf) == 0) {

81− return MKBIGI(buf.st_mtime);

83+ return MKBIGUI(vm, buf.st_mtime);

82 } else {

84 } else {

83 return MKBIGI(-1);

85 return MKBIGI(-1);

84 }

86 }

@@ -108,6 +110,7 @@ void* idris_dirOpen(char* dname) {

108 } else {

110 } else {

109 DirInfo* di = malloc(sizeof(DirInfo));

111 DirInfo* di = malloc(sizeof(DirInfo));

110 di->dirptr = d;

112 di->dirptr = d;

113+ di->error = 0;

111

114

112 return (void*)di;

115 return (void*)di;

113 }

116 }

@@ -205,6 +208,36 @@ VAL idris_time() {

205 return MKBIGI(t);

208 return MKBIGI(t);

206}

209}

207

210

211+VAL idris_clock(VM* vm) {

212+ VAL result;

213+#ifdef _WIN32

214+ int64_t sec, nsec;

215+ win32_gettime(&sec, &nsec);

216+ idris_constructor(result, vm, 0, 2, 0);

217+ idris_setConArg(result, 0, MKBIGI(sec));

218+ idris_setConArg(result, 1, MKBIGI(nsec));

219+#else

220+ struct timespec ts;

221+ // We're not checking the result here, which is of course bad, but

222+ // CLOCK_REALTIME is required by POSIX at least!

223+ clock_gettime(CLOCK_REALTIME, &ts);

224+ idris_constructor(result, vm, 0, 2, 0);

225+ idris_setConArg(result, 0, MKBIGI(ts.tv_sec));

226+ idris_setConArg(result, 1, MKBIGI(ts.tv_nsec));

227+#endif

228+ return result;

229+}

230+

231+#ifndef SEL4

232+int idris_usleep(int usec) {

233+ struct timespec t;

234+ t.tv_sec = usec / 1000000;

235+ t.tv_nsec = (usec % 1000000) * 1000;

236+

237+ return nanosleep(&t, NULL);

238+}

239+#endif // SEL4

240+

208VAL idris_mkFileError(VM* vm) {

241VAL idris_mkFileError(VM* vm) {

209 VAL result;

242 VAL result;

210 switch(errno) {

243 switch(errno) {

rts/idris_stdfgn.h+6−1

@@ -12,12 +12,13 @@ void* fileOpen(char* f, char* mode);

12void fileClose(void* h);

13int fileEOF(void* h);

14int fileError(void* h);

15+int fileRemove(const char* fname);

15// Returns a negative number if not a file (e.g. directory or device)

16// Returns a negative number if not a file (e.g. directory or device)

16int fileSize(void* h);

17int fileSize(void* h);

17

18

18// Return a negative number if not a file (e.g. directory or device)

19// Return a negative number if not a file (e.g. directory or device)

19VAL fileAccessTime(void* h);

20VAL fileAccessTime(void* h);

20−VAL fileModifiedTime(void* h);

21+VAL fileModifiedTime(VM* vm, void* h);

21VAL fileStatusTime(void* h);

22VAL fileStatusTime(void* h);

22

23

23void* idris_dirOpen(char* dname);

24void* idris_dirOpen(char* dname);

@@ -52,6 +53,10 @@ void* idris_stdin();

52char* getEnvPair(int i);

53char* getEnvPair(int i);

53

54

54VAL idris_time();

55VAL idris_time();

56+VAL idris_clock(VM* vm);

57+#ifndef SEL4

58+int idris_usleep(int usec);

59+#endif // SEL4

55

60

56void idris_forceGC();

61void idris_forceGC();

57

62

rts/idris_utf8.c−1

@@ -1,5 +1,4 @@

1#include "idris_utf8.h"

2−#include <stdio.h>

3#include <string.h>

2#include <string.h>

4#include <stdlib.h>

3#include <stdlib.h>

5

4

rts/seL4/CMakeLists.txtnew file+43

@@ -0,0 +1,43 @@

1+cmake_minimum_required(VERSION 3.7.2)

2+

3+project(libsel4-idris-rts C)

4+

5+file(GLOB static

6+ rts/idris_rts.c

7+ rts/idris_heap.c

8+ rts/idris_gc.c

9+ rts/idris_gmp.c

10+ rts/idris_bitstring.c

11+ rts/idris_opts.c

12+ rts/idris_stats.c

13+ rts/idris_utf8.c

14+ rts/idris_stdfgn.c

15+ rts/mini-gmp.c

16+ rts/idris_buffer.c

17+ rts/getline.c

18+ rts/idris_net.c

19+ rts/seL4/idris_main.c

20+)

21+

22+set(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -Wall")

23+# Ignore some warnings

24+set(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -Wno-unused-parameter")

25+set(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -Wno-sign-compare")

26+# Don't use the host machines' environment when cross compiling

27+set(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -undef")

28+set(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -DIDRIS_TARGET_OS=\"\\\"seL4\\\"\"")

29+set(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -DSEL4")

30+execute_process(

31+ COMMAND ${CMAKE_C_COMPILER} -dumpmachine

32+ OUTPUT_VARIABLE MACHINE

33+ OUTPUT_STRIP_TRAILING_WHITESPACE

34+)

35+set(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -DIDRIS_TARGET_TRIPLE=\"\\\"${MACHINE}\\\"\"")

36+

37+add_library(sel4-idris-rts EXCLUDE_FROM_ALL ${static})

38+target_include_directories(sel4-idris-rts PUBLIC rts)

39+target_link_libraries(

40+ sel4-idris-rts

41+ Configuration

42+ muslc

43+)

rts/seL4/Kbuilddeleted−2

@@ -1,2 +0,0 @@

1−libsel4-idris-rts: $(libc) common

2−libs-$(CONFIG_LIBSEL4_IDRIS_RTS) += libsel4-idris-rts

rts/seL4/Kconfigdeleted−9

@@ -1,9 +0,0 @@

1−config LIBSEL4_IDRIS_RTS

2− bool "libsel4-idris-rts"

3− default y

4− select HAVE_LIBSEL4_IDRIS_RTS

5− help

6− Idris RTS compiled for seL4

7−

8−config HAVE_LIBSEL4_IDRIS_RTS

9− bool

rts/seL4/Makefiledeleted−33

@@ -1,33 +0,0 @@

1−# Target

2−TARGETS := libsel4-idris-rts.a

3−

4−# Source files required to build the target

5−FILES := \

6− idris_rts.c \

7− idris_heap.c \

8− idris_gc.c \

9− idris_gmp.c \

10− idris_bitstring.c \

11− idris_opts.c \

12− idris_stats.c \

13− idris_utf8.c \

14− idris_stdfgn.c \

15− mini-gmp.c \

16− idris_buffer.c \

17− getline.c \

18− idris_net.c \

19− seL4/idris_main.c

20−CFILES := $(addprefix rts/,$(FILES))

21−

22−# Header file directory this library provides

23−HDRFILES := $(wildcard ${SOURCE_DIR}/rts/*)

24−

25−CFLAGS += -W -Wall

26−# Don't use the host machines' environment when cross compiling

27−CFLAGS += -undef

28−CFLAGS += -DIDRIS_TARGET_OS=\"seL4\"

29−CFLAGS += -DSEL4

30−MACHINE := $(shell $(CC) -dumpmachine)

31−CFLAGS += -DIDRIS_TARGET_TRIPLE=\"$(MACHINE)\"

32−

33−include $(SEL4_COMMON)/common.mk

rts/seL4/README.mdnew file+5

@@ -0,0 +1,5 @@

1+# libsel4-idris-rts - Idris RTS library for the seL4 microkernel

2+The Idris RTS compiled to the seL4 microkernel.

3+

4+## How to use this library?

5+See the instructions in the project repository, [mokshasoft/sel4-idris-manifest](https://github.com/mokshasoft/sel4-idris-manifest).

rts/seL4/idris_main.c+2−3

@@ -6,8 +6,8 @@

6void _idris__123_runMain_95_0_125_(VM* vm, VAL* oldbase);

7

8RTSOpts opts = {

9− .init_heap_size = 16384000,

9+ .init_heap_size = 100000,

10− .max_stack_size = 4096000,

10+ .max_stack_size = 5000,

11 .show_summary = 0

12};

13

@@ -24,7 +24,6 @@ int main() {

24 }

25#endif

26

27− free_nullaries();

28 // Remove call to terminate since it crashes the application during a free

27 // Remove call to terminate since it crashes the application during a free

29 //Stats stats = terminate(vm);

28 //Stats stats = terminate(vm);

30

29

rts/windows/win_utils.c+16

@@ -1,7 +1,9 @@

1#include <io.h>

2+#include <stdint.h>

2#include <stdio.h>

3#include <stdio.h>

3#include <windows.h>

4#include <windows.h>

4

5

6+

5// THis file exists to avoid clashes between windows.h and idris_rts.h

7// THis file exists to avoid clashes between windows.h and idris_rts.h

6//

8//

7

9

@@ -28,6 +30,7 @@ int widen_utf8(const char *filename_utf8, LPWSTR *filename_w)

28 MultiByteToWideChar(CP_UTF8, 0, filename_utf8, -1, *filename_w, num_chars);

30 MultiByteToWideChar(CP_UTF8, 0, filename_utf8, -1, *filename_w, num_chars);

29 return num_chars;

31 return num_chars;

30}

32}

33+

31FILE *win32_u8fopen(const char *path, const char *mode)

34FILE *win32_u8fopen(const char *path, const char *mode)

32{

35{

33 LPWSTR wpath, wmode;

36 LPWSTR wpath, wmode;

@@ -49,3 +52,16 @@ FILE *win32_u8popen(const char *path, const char *mode)

49 free(wmode);

52 free(wmode);

50 return f;

53 return f;

51}

54}

55+

56+void win32_gettime(int64_t* sec, int64_t* nsec)

57+{

58+ FILETIME ft;

59+ GetSystemTimePreciseAsFileTime(&ft);

60+ ULARGE_INTEGER t;

61+ t.HighPart = ft.dwHighDateTime;

62+ t.LowPart = ft.dwLowDateTime;

63+

64+ *nsec = (t.QuadPart % 10000000)*100;

65+ *sec = t.QuadPart / 10000000;

66+ *sec -= 11644473600; // LDAP epoch to Unix epoch

67+}

rts/windows/win_utils.hnew file+9

@@ -0,0 +1,9 @@

1+#include <stdint.h>

2+#include <stdio.h>

3+

4+#pragma once

5+

6+int win_fpoll(void *h);

7+FILE *win32_u8fopen(const char *path, const char *mode);

8+FILE *win32_u8popen(const char *path, const char *mode);

9+void win32_gettime(int64_t* sec, int64_t* nsec);

src/IRTS/Bytecode.hs+3−2

@@ -86,6 +86,7 @@ data BC =

86 -- | reserve n more stack items (i.e. check there's space, grow if

87 -- necessary)

88 | RESERVE Int

89+ | RESERVENOALLOC Int

89

90

90 -- | move the top of stack up

91 -- | move the top of stack up

91 | ADDTOP Int

92 | ADDTOP Int

@@ -127,13 +128,13 @@ bc reg (SV (Loc i)) r = assign reg (L i) ++ clean r

127bc reg (SApp False f vs) r =

128bc reg (SApp False f vs) r =

128 if argCount == 0

129 if argCount == 0

129 then moveReg 0 vs ++ [STOREOLD, BASETOP 0, CALL f] ++ ret

130 then moveReg 0 vs ++ [STOREOLD, BASETOP 0, CALL f] ++ ret

130− else RESERVE argCount : moveReg 0 vs ++

131+ else RESERVENOALLOC argCount : moveReg 0 vs ++

131 [STOREOLD, BASETOP 0, ADDTOP argCount, CALL f] ++ ret

132 [STOREOLD, BASETOP 0, ADDTOP argCount, CALL f] ++ ret

132 where

133 where

133 ret = assign reg RVal ++ clean r

134 ret = assign reg RVal ++ clean r

134 argCount = length vs

135 argCount = length vs

135bc reg (SApp True f vs) r

136bc reg (SApp True f vs) r

136− = RESERVE (length vs) : moveReg 0 vs

137+ = RESERVENOALLOC (length vs) : moveReg 0 vs

137 ++ [SLIDE (length vs), TOPBASE (length vs), TAILCALL f]

138 ++ [SLIDE (length vs), TOPBASE (length vs), TAILCALL f]

138bc reg (SForeign t fname args) r

139bc reg (SForeign t fname args) r

139 = FOREIGNCALL reg t fname (map farg args) : clean r

140 = FOREIGNCALL reg t fname (map farg args) : clean r

src/IRTS/CodegenC.hs+26−16

@@ -72,6 +72,7 @@ codegenC' defs out exec incs objs libs flags exports iface dbg

72 Raw -> writeSource out cout

73 _ -> do

74 (tmpn, tmph) <- tempfile ".c"

75+ hSetEncoding tmph utf8

75 hPutStr tmph cout

76 hPutStr tmph cout

76 hFlush tmph

77 hFlush tmph

77 hClose tmph

78 hClose tmph

@@ -121,7 +122,7 @@ gccDbg _ = []

121

122

122cname :: Name -> String

123cname :: Name -> String

123cname n = "_idris_" ++ concatMap cchar (showCG n)

124cname n = "_idris_" ++ concatMap cchar (showCG n)

124− where cchar x | isAlpha x || isDigit x = [x]

125+ where cchar x | isAscii x && isAlpha x || isDigit x = [x]

125 | otherwise = "_" ++ show (fromEnum x) ++ "_"

126 | otherwise = "_" ++ show (fromEnum x) ++ "_"

126

127

127indent :: Int -> String

128indent :: Int -> String

@@ -320,6 +321,8 @@ bcc f i (SLIDE n) = indent i ++ "SLIDE(vm, " ++ show n ++ ");\n"

320bcc f i REBASE = indent i ++ "REBASE;\n"

321bcc f i REBASE = indent i ++ "REBASE;\n"

321bcc f i (RESERVE 0) = ""

322bcc f i (RESERVE 0) = ""

322bcc f i (RESERVE n) = indent i ++ "RESERVE(" ++ show n ++ ");\n"

323bcc f i (RESERVE n) = indent i ++ "RESERVE(" ++ show n ++ ");\n"

324+bcc f i (RESERVENOALLOC 0) = ""

325+bcc f i (RESERVENOALLOC n) = indent i ++ "RESERVENOALLOC(" ++ show n ++ ");\n"

323bcc f i (ADDTOP 0) = ""

326bcc f i (ADDTOP 0) = ""

324bcc f i (ADDTOP n) = indent i ++ "ADDTOP(" ++ show n ++ ");\n"

327bcc f i (ADDTOP n) = indent i ++ "ADDTOP(" ++ show n ++ ");\n"

325bcc f i (TOPBASE n) = indent i ++ "TOPBASE(" ++ show n ++ ");\n"

328bcc f i (TOPBASE n) = indent i ++ "TOPBASE(" ++ show n ++ ");\n"

@@ -424,6 +427,13 @@ bitCoerce v op input output arg

424signedTy :: NativeTy -> String

427signedTy :: NativeTy -> String

425signedTy t = "int" ++ show (nativeTyWidth t) ++ "_t"

428signedTy t = "int" ++ show (nativeTyWidth t) ++ "_t"

426

429

430+-- Need to ensure we have enough spare *before* GMP operations because they

431+-- use the idris allocator but outside our control, and if it GCs in the middle

432+-- then things get moved which leads to trouble...

433+-- I'm just guessing how much it'll need. This is a TMP HACK. Sorry.

434+wrapGMP op

435+ = "idris_requireAlloc(vm, 65536); " ++ op ++ "; idris_doneAlloc(vm)"

436+

427doOp v (LPlus (ATInt ITNative)) [l, r] = v ++ "ADD(" ++ creg l ++ ", " ++ creg r ++ ")"

437doOp v (LPlus (ATInt ITNative)) [l, r] = v ++ "ADD(" ++ creg l ++ ", " ++ creg r ++ ")"

428doOp v (LMinus (ATInt ITNative)) [l, r] = v ++ "INTOP(-," ++ creg l ++ ", " ++ creg r ++ ")"

438doOp v (LMinus (ATInt ITNative)) [l, r] = v ++ "INTOP(-," ++ creg l ++ ", " ++ creg r ++ ")"

429doOp v (LTimes (ATInt ITNative)) [l, r] = v ++ "MULT(" ++ creg l ++ ", " ++ creg r ++ ")"

439doOp v (LTimes (ATInt ITNative)) [l, r] = v ++ "MULT(" ++ creg l ++ ", " ++ creg r ++ ")"

@@ -484,21 +494,21 @@ doOp v (LSGe ATFloat) [l, r] = v ++ "FLOATBOP(>=," ++ creg l ++ ", " ++ creg r +

484

494

485doOp v (LIntFloat ITBig) [x] = v ++ "idris_castBigFloat(vm, " ++ creg x ++ ")"

495doOp v (LIntFloat ITBig) [x] = v ++ "idris_castBigFloat(vm, " ++ creg x ++ ")"

486doOp v (LFloatInt ITBig) [x] = v ++ "idris_castFloatBig(vm, " ++ creg x ++ ")"

496doOp v (LFloatInt ITBig) [x] = v ++ "idris_castFloatBig(vm, " ++ creg x ++ ")"

487−doOp v (LPlus (ATInt ITBig)) [l, r] = v ++ "idris_bigPlus(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

497+doOp v (LPlus (ATInt ITBig)) [l, r] = wrapGMP $ v ++ "idris_bigPlus(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

488−doOp v (LMinus (ATInt ITBig)) [l, r] = v ++ "idris_bigMinus(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

498+doOp v (LMinus (ATInt ITBig)) [l, r] = wrapGMP $ v ++ "idris_bigMinus(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

489−doOp v (LTimes (ATInt ITBig)) [l, r] = v ++ "idris_bigTimes(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

499+doOp v (LTimes (ATInt ITBig)) [l, r] = wrapGMP $ v ++ "idris_bigTimes(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

490−doOp v (LSDiv (ATInt ITBig)) [l, r] = v ++ "idris_bigDivide(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

500+doOp v (LSDiv (ATInt ITBig)) [l, r] = wrapGMP $ v ++ "idris_bigDivide(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

491−doOp v (LSRem (ATInt ITBig)) [l, r] = v ++ "idris_bigMod(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

501+doOp v (LSRem (ATInt ITBig)) [l, r] = wrapGMP $ v ++ "idris_bigMod(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

492−doOp v (LAnd ITBig) [l, r] = v ++ "idris_bigAnd(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

502+doOp v (LAnd ITBig) [l, r] = wrapGMP $ v ++ "idris_bigAnd(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

493−doOp v (LOr ITBig) [l, r] = v ++ "idris_bigOr(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

503+doOp v (LOr ITBig) [l, r] = wrapGMP $ v ++ "idris_bigOr(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

494−doOp v (LSHL ITBig) [l, r] = v ++ "idris_bigShiftLeft(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

504+doOp v (LSHL ITBig) [l, r] = wrapGMP $ v ++ "idris_bigShiftLeft(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

495−doOp v (LLSHR ITBig) [l, r] = v ++ "idris_bigLShiftRight(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

505+doOp v (LLSHR ITBig) [l, r] = wrapGMP $ v ++ "idris_bigLShiftRight(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

496−doOp v (LASHR ITBig) [l, r] = v ++ "idris_bigAShiftRight(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

506+doOp v (LASHR ITBig) [l, r] = wrapGMP $ v ++ "idris_bigAShiftRight(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

497−doOp v (LEq (ATInt ITBig)) [l, r] = v ++ "idris_bigEq(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

507+doOp v (LEq (ATInt ITBig)) [l, r] = wrapGMP $ v ++ "idris_bigEq(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

498−doOp v (LSLt (ATInt ITBig)) [l, r] = v ++ "idris_bigLt(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

508+doOp v (LSLt (ATInt ITBig)) [l, r] = wrapGMP $ v ++ "idris_bigLt(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

499−doOp v (LSLe (ATInt ITBig)) [l, r] = v ++ "idris_bigLe(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

509+doOp v (LSLe (ATInt ITBig)) [l, r] = wrapGMP $ v ++ "idris_bigLe(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

500−doOp v (LSGt (ATInt ITBig)) [l, r] = v ++ "idris_bigGt(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

510+doOp v (LSGt (ATInt ITBig)) [l, r] = wrapGMP $ v ++ "idris_bigGt(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

501−doOp v (LSGe (ATInt ITBig)) [l, r] = v ++ "idris_bigGe(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

511+doOp v (LSGe (ATInt ITBig)) [l, r] = wrapGMP $ v ++ "idris_bigGe(vm, " ++ creg l ++ ", " ++ creg r ++ ")"

502

512

503doOp v (LIntFloat ITNative) [x] = v ++ "idris_castIntFloat(" ++ creg x ++ ")"

513doOp v (LIntFloat ITNative) [x] = v ++ "idris_castIntFloat(" ++ creg x ++ ")"

504doOp v (LFloatInt ITNative) [x] = v ++ "idris_castFloatInt(" ++ creg x ++ ")"

514doOp v (LFloatInt ITNative) [x] = v ++ "idris_castFloatInt(" ++ creg x ++ ")"

src/IRTS/Compiler.hs+132−15

@@ -5,7 +5,8 @@ Description : Coordinates the compilation process.

5License : BSD3

6Maintainer : The Idris Community.

7-}

8−{-# LANGUAGE CPP, FlexibleContexts, PatternGuards, TypeSynonymInstances #-}

8+{-# LANGUAGE CPP, FlexibleContexts, MultiWayIf, NamedFieldPuns, PatternGuards,

9+ TypeSynonymInstances #-}

9

10

10module IRTS.Compiler(compile, generate) where

11module IRTS.Compiler(compile, generate) where

11

12

@@ -34,6 +35,7 @@ import Control.Category

34import Control.Monad.State

35import Control.Monad.State

35import Data.List

36import Data.List

36import qualified Data.Map as M

37import qualified Data.Map as M

38+import Data.Maybe (maybe)

37import Data.Ord

39import Data.Ord

38import qualified Data.Set as S

40import qualified Data.Set as S

39import System.Directory

41import System.Directory

@@ -393,6 +395,16 @@ irTerm top vs env tm@(App _ f a) = do

393 EQ | isNewtype

395 EQ | isNewtype

394 -> irTerm top vs env (head argsPruned)

396 -> irTerm top vs env (head argsPruned)

395

397

398+ -- compile Nat-likes as bigints

399+ | Just LikeZ <- isLikeNat ist n

400+ -> irTerm top vs env $ Constant (BI 0)

401+

402+ -- compile Nat-likes as bigints

403+ | Just LikeS <- isLikeNat ist n

404+ -> irTerm top vs env $ mkApp

405+ (P Ref (sUN "prim__addBigInt") Erased)

406+ (Constant (BI 1) : argsPruned)

407+

396 | otherwise -- not newtype, plain data ctor

408 | otherwise -- not newtype, plain data ctor

397 -> buildApp (LV n) argsPruned

409 -> buildApp (LV n) argsPruned

398

410

@@ -405,6 +417,14 @@ irTerm top vs env tm@(App _ f a) = do

405 | isNewtype -- newtype but the value is not among args yet

417 | isNewtype -- newtype but the value is not among args yet

406 -> return . padLams $ \[vn] -> LApp False (LV n) [LV vn]

418 -> return . padLams $ \[vn] -> LApp False (LV n) [LV vn]

407

419

420+ -- compile Nat-likes as bigints

421+ -- it seems that prim applications needn't be saturated

422+ | Just LikeS <- isLikeNat ist n

423+ -> irTerm top vs env $

424+ App Complete

425+ (P Ref (sUN "prim__addBigInt") Erased)

426+ (Constant $ BI 1)

427+

408 -- not a newtype, just apply to a constructor

428 -- not a newtype, just apply to a constructor

409 | otherwise

429 | otherwise

410 -> padLams . applyToNames <$> buildApp (LV n) argsPruned

430 -> padLams . applyToNames <$> buildApp (LV n) argsPruned

@@ -501,6 +521,58 @@ irTerm top vs env (TType _) = return LNothing

501irTerm top vs env Erased = return LNothing

521irTerm top vs env Erased = return LNothing

502irTerm top vs env Impossible = return LNothing

522irTerm top vs env Impossible = return LNothing

503

523

524+data LikeNat = LikeZ | LikeS

525+

526+isLikeNat :: IState -> Name -> Maybe LikeNat

527+isLikeNat ist cn

528+ -- Nat itself is special-cased in Idris/DataOpts.hs,

529+ -- which will have already happened at this point.

530+

531+ -- If the optimisation is disabled then nothing looks like Nat.

532+ | GeneralisedNatHack `notElem` opt_optimise (idris_options ist)

533+ = Nothing

534+

535+ | Just cTy <- lookupTyExact cn $ tt_ctxt ist

536+ , (P TCon{} tyN _, _) <- unApply $ getRetTy cTy

537+ , Just (z, s) <- natLikeCtors tyN

538+ = if | cn == z -> Just LikeZ

539+ | cn == s -> Just LikeS

540+ | otherwise -> error $ "isLikeNat: constructor not found in its own family: " ++ show (cn, tyN)

541+

542+ | otherwise = Nothing

543+ where

544+ natLikeCtors :: Name -> Maybe (Name, Name)

545+ natLikeCtors tyN = case lookupCtxtExact tyN $ idris_datatypes ist of

546+ Just TI{con_names = [z, s]}

547+ | 0 <- getUsedCount z

548+ , looksLikeS s

549+ -> Just (z, s)

550+

551+ Just TI{con_names = [s, z]}

552+ | 0 <- getUsedCount z

553+ , looksLikeS s

554+ -> Just (z, s)

555+

556+ _ -> Nothing

557+

558+ getUsedCount :: Name -> Int

559+ getUsedCount n =

560+ maybe 0 (length . usedpos)

561+ $ lookupCtxtExact n

562+ $ idris_callgraph ist

563+

564+ looksLikeS :: Name -> Bool

565+ looksLikeS cn

566+ | Just [(i, _)] <- fmap usedpos $ lookupCtxtExact cn $ idris_callgraph ist

567+ , Just cTy <- lookupTyExact cn $ tt_ctxt ist

568+ , [recTy] <- [recTy | (j, (_n, recTy)) <- zip [0..] (getArgTys cTy), j == i]

569+ , (P TCon{} recTyN _, _) <- unApply recTy

570+ , (P TCon{} tyN _, _) <- unApply $ getRetTy cTy

571+ , recTyN == tyN

572+ = True

573+

574+ | otherwise = False

575+

504doForeign :: Vars -> [Name] -> [Term] -> Idris LExp

576doForeign :: Vars -> [Name] -> [Term] -> Idris LExp

505doForeign vs env (ret : fname : world : args)

577doForeign vs env (ret : fname : world : args)

506 = do args' <- mapM splitArg args

578 = do args' <- mapM splitArg args

@@ -533,7 +605,7 @@ irTree top args tree = do

533

605

534irSC :: Name -> Vars -> SC -> Idris LExp

606irSC :: Name -> Vars -> SC -> Idris LExp

535irSC top vs (STerm t) = irTerm top vs [] t

607irSC top vs (STerm t) = irTerm top vs [] t

536−irSC top vs (UnmatchedCase str) = return $ LLazyExp $ LError str

608+irSC top vs (UnmatchedCase str) = return $ LError str

537

609

538irSC top vs (ProjCase tm alts) = do

610irSC top vs (ProjCase tm alts) = do

539 tm' <- irTerm top vs [] tm

611 tm' <- irTerm top vs [] tm

@@ -616,18 +688,41 @@ irSC top vs (Case up n alts@[ConCase cn a ns sc, DefaultCase sc']) = do

616 detag <- fgetState (opt_detaggable . ist_optimisation cn)

688 detag <- fgetState (opt_detaggable . ist_optimisation cn)

617 if detag

689 if detag

618 then irSC top vs (Case up n [ConCase cn a ns sc])

690 then irSC top vs (Case up n [ConCase cn a ns sc])

691+ else do

692+ likeNat <- isLikeNat <$> getIState <*> pure cn

693+ case likeNat of

694+ -- the annoying case: LikeS is translated into a default case

695+ -- so we need to change the original DefaultCase to Z-case

696+ -- and reorder it before this one

697+ Just LikeS -> do

698+ zCase <- LConstCase (BI 0) <$> irSC top vs sc'

699+ sCase <- irAlt top vs (LV n) (ConCase cn a ns sc)

700+ return $ LCase up (LV n) [zCase, sCase]

701+

702+ -- the usual case

619− else LCase up (LV n) <$> mapM (irAlt top vs (LV n)) alts

703+ _ -> LCase up (LV n) <$> mapM (irAlt top vs (LV n)) alts

620−

704+

621−irSC top vs sc@(Case up n alts) = do

705+irSC top vs sc@(Case up n alts) = getIState >>= rhs

622− -- check that neither alternative needs the newtype optimisation,

623− -- see comment above

624− goneWrong <- or <$> mapM isDetaggable alts

625− when goneWrong

626− $ ifail ("irSC: non-trivial case-match on detaggable data: " ++ show sc)

627−

628− -- everything okay

629− LCase up (LV n) <$> mapM (irAlt top vs (LV n)) alts

630 where

706 where

707+ rhs ist

708+ | [ConCase cns as nss scs, ConCase cnz az nsz scz] <- alts

709+ , Just LikeS <- isLikeNat ist cns

710+ = do

711+ -- reorder to make the Z case come first

712+ zCase <- LConstCase (BI 0) <$> irSC top vs scz

713+ sCase <- irAlt top vs (LV n) (ConCase cns as nss scs)

714+ return $ LCase up (LV n) [zCase, sCase]

715+

716+ | otherwise = do

717+ -- check that neither alternative needs the newtype optimisation,

718+ -- see comment above

719+ goneWrong <- or <$> mapM isDetaggable alts

720+ when goneWrong

721+ $ ifail ("irSC: non-trivial case-match on detaggable data: " ++ show sc)

722+

723+ -- everything okay

724+ LCase up (LV n) <$> mapM (irAlt top vs (LV n)) alts

725+

631 isDetaggable (ConCase cn _ _ _) = fgetState $ opt_detaggable . ist_optimisation cn

726 isDetaggable (ConCase cn _ _ _) = fgetState $ opt_detaggable . ist_optimisation cn

632 isDetaggable _ = return False

727 isDetaggable _ = return False

633

728

@@ -636,10 +731,32 @@ irSC top vs ImpossibleCase = return LNothing

636irAlt :: Name -> Vars -> LExp -> CaseAlt -> Idris LAlt

731irAlt :: Name -> Vars -> LExp -> CaseAlt -> Idris LAlt

637

732

638-- this leaves out all unused arguments of the constructor

733-- this leaves out all unused arguments of the constructor

639−irAlt top vs _ (ConCase n t args sc) = do

734+irAlt top vs tm (ConCase n t args sc) = do

735+ likeNat <- isLikeNat <$> getIState <*> pure n

640 used <- map fst <$> fgetState (cg_usedpos . ist_callgraph n)

736 used <- map fst <$> fgetState (cg_usedpos . ist_callgraph n)

641 let usedArgs = [a | (i,a) <- zip [0..] args, i `elem` used]

737 let usedArgs = [a | (i,a) <- zip [0..] args, i `elem` used]

738+

739+ case likeNat of

740+ -- like S

741+ Just LikeS -> do

742+ sc' <- irSC top vs sc

743+ case usedArgs of

744+ [pv] -> return $ LDefaultCase $ LLet pv

745+ ( LOp

746+ (LMinus (ATInt ITBig))

747+ [ tm

748+ , LConst (BI 1)

749+ ]

750+ )

751+ sc'

752+

753+ _ -> ifail $ "irAlt/LikeS: multiple used args: " ++ show usedArgs

754+

755+ -- like Z

756+ Just LikeZ -> LConstCase (BI 0) <$> irSC top vs sc

757+

758+ -- not like Nat

642− LConCase (-1) n usedArgs <$> irSC top (methodVars `M.union` vs) sc

759+ Nothing -> LConCase (-1) n usedArgs <$> irSC top (methodVars `M.union` vs) sc

643 where

760 where

644 methodVars = case n of

761 methodVars = case n of

645 SN (ImplementationCtorN interfaceName)

762 SN (ImplementationCtorN interfaceName)

src/IRTS/DumpBC.hs+1

@@ -63,6 +63,7 @@ serializeBC n bc = indent n ++

63 SLIDE n -> "SLIDE " ++ show n

64 REBASE -> "REBASE"

65 RESERVE n -> "RESERVE " ++ show n

66+ RESERVENOALLOC n -> "RESERVENOALLOC " ++ show n

66 ADDTOP n -> "ADDTOP " ++ show n

67 ADDTOP n -> "ADDTOP " ++ show n

67 TOPBASE n -> "TOPBASE " ++ show n

68 TOPBASE n -> "TOPBASE " ++ show n

68 BASETOP n -> "BASETOP " ++ show n

69 BASETOP n -> "BASETOP " ++ show n

src/IRTS/JavaScript/AST.hs+1−1

@@ -202,7 +202,7 @@ jsStmt2Text (JsSwitchCase exp l d) =

202 default2Text Nothing = ""

203 default2Text (Just z) =

204 T.concat ["default:\n", indent $ T.concat [jsStmt2Text z, ";\nbreak;\n"]]

205−jsStmt2Text (JsError t) = T.concat ["throw new Error( ", jsAst2Text t, ");"]

205+jsStmt2Text (JsError t) = T.concat ["$JSRTS.die(", jsAst2Text t, ");\n"]

206jsStmt2Text (JsForever x) =

207 T.concat ["for(;;) {\n", indent $ jsStmt2Text x, "}\n"]

208jsStmt2Text JsContinue = "continue;"

src/IRTS/JavaScript/Codegen.hs+7−4

@@ -108,22 +108,25 @@ makeExportDecls :: Map Name LDecl -> ExportIFace -> [Text]

108makeExportDecls defs (Export _ _ e) =

109 concatMap makeExport e

110 where

111− uncurryF name argTy (Just args) =

111+ uncurryF name argTy (Just args) retTy =

112− if length argTy == length args then name

112+ if length argTy == length args then

113+ case (retTy, length args) of

114+ (FIO _, 0) -> T.concat ["function(){return ", name, "()()}"]

115+ _ -> name

113 else T.concat [ "function(){ return "

116 else T.concat [ "function(){ return "

114 , name

117 , name

115 , ".apply(this, Array.prototype.slice.call(arguments, 0,", T.pack $ show $ length args,"))"

118 , ".apply(this, Array.prototype.slice.call(arguments, 0,", T.pack $ show $ length args,"))"

116 , T.concat $ map (\x -> T.concat ["(arguments[", T.pack $ show x , "])"]) [length args .. (length argTy - 1)]

119 , T.concat $ map (\x -> T.concat ["(arguments[", T.pack $ show x , "])"]) [length args .. (length argTy - 1)]

117 , "}"

120 , "}"

118 ]

121 ]

119− uncurryF name argTy Nothing = name

122+ uncurryF name argTy Nothing retTy = name

120

123

121 makeExport (ExportData _) =

124 makeExport (ExportData _) =

122 []

125 []

123 makeExport (ExportFun name (FStr exportname) retTy argTy) =

126 makeExport (ExportFun name (FStr exportname) retTy argTy) =

124 [T.concat [ T.pack $ exportname

127 [T.concat [ T.pack $ exportname

125 , ": "

128 , ": "

126− , uncurryF (jsName name) argTy (getArgList' name defs)

129+ , uncurryF (jsName name) argTy (getArgList' name defs) retTy

127 ]

130 ]

128 ]

131 ]

129

132

src/IRTS/Portable.hs+1

@@ -265,6 +265,7 @@ instance ToJSON BC where

265 toJSON (FOREIGNCALL r fd ret exps) = object ["FOREIGNCALL" .= (r, fd, ret, exps)]

266 toJSON (SLIDE i) = object ["SLIDE" .= i]

267 toJSON (RESERVE i) = object ["RESERVE" .= i]

268+ toJSON (RESERVENOALLOC i) = object ["RESERVENOALLOC" .= i]

268 toJSON (ADDTOP i) = object ["ADDTOP" .= i]

269 toJSON (ADDTOP i) = object ["ADDTOP" .= i]

269 toJSON (TOPBASE i) = object ["TOPBASE" .= i]

270 toJSON (TOPBASE i) = object ["TOPBASE" .= i]

270 toJSON (BASETOP i) = object ["BASETOP" .= i]

271 toJSON (BASETOP i) = object ["BASETOP" .= i]

src/Idris/AbsSyntax.hs+2−1

@@ -1659,7 +1659,8 @@ getUnboundImplicits i t tm = getImps t (collectImps tm)

1659 argInfo n (Imp opt _ _ _ _ _) Placeholder

1660 = (True, PImp 0 True opt n Placeholder)

1661 argInfo n (Imp opt _ _ _ _ _) t'

1662+ = (InaccessibleArg `elem` opt,

1662− = (False, PImp (getPriority i t') True opt n t')

1663+ PImp (getPriority i t') True opt n t')

1663 argInfo n (Exp opt _ _ _) t'

1664 argInfo n (Exp opt _ _ _) t'

1664 = (InaccessibleArg `elem` opt,

1665 = (InaccessibleArg `elem` opt,

1665 PExp (getPriority i t') opt n t')

1666 PExp (getPriority i t') opt n t')

src/Idris/AbsSyntaxTree.hs+1

@@ -392,6 +392,7 @@ data IBCWrite = IBCFix FixDecl

392 | IBCDeprecate Name String

393 | IBCFragile Name String

394 | IBCConstraint FC UConstraint

395+ | IBCImportHash FilePath Int

395 deriving (Show, Generic)

396 deriving (Show, Generic)

396

397

397initialInteractiveOpts :: InteractiveOpts

398initialInteractiveOpts :: InteractiveOpts

src/Idris/CmdOptions.hs+15−3

@@ -18,6 +18,7 @@ import Idris.Info (getIdrisVersion)

18import Idris.Options

19import IRTS.CodegenCommon

20

21+import qualified Control.Monad.Fail as Fail

21import Control.Monad.Trans (lift)

22import Control.Monad.Trans (lift)

22import Control.Monad.Trans.Except (throwE)

23import Control.Monad.Trans.Except (throwE)

23import Control.Monad.Trans.Reader (ask)

24import Control.Monad.Trans.Reader (ask)

@@ -71,7 +72,7 @@ runArgParser = do opts <- execParser $ info parser

71 PP.empty,

72 PP.empty,

72 PP.text "More details over Idris can be found online here:",

73 PP.text "More details over Idris can be found online here:",

73 PP.empty,

74 PP.empty,

74− PP.indent 4 (PP.text "http://www.idris-lang.org/")]

75+ PP.indent 4 (PP.text "https://www.idris-lang.org/")]

75

76

76execArgParserPure :: [String] -> ParserResult [Opt]

77execArgParserPure :: [String] -> ParserResult [Opt]

77execArgParserPure args = preProcOpts <$> execParserPure (prefs idm) (info parser idm) args

78execArgParserPure args = preProcOpts <$> execParserPure (prefs idm) (info parser idm) args

@@ -209,6 +210,17 @@ parseFlags = many $

209 <|> flag' (AddOpt PETransform) (long "partial-eval")

210 <|> flag' (AddOpt PETransform) (long "partial-eval")

210 <|> flag' (RemoveOpt PETransform) (long "no-partial-eval" <> help "Switch off partial evaluation, mainly for debugging purposes")

211 <|> flag' (RemoveOpt PETransform) (long "no-partial-eval" <> help "Switch off partial evaluation, mainly for debugging purposes")

211

212

213+ <|> flag' (AddOpt GeneralisedNatHack) (

214+ long "optimise-nat-like-types"

215+ <> long "optimize-nat-like-types"

216+ <> help "Enable compilation of Nat-like types to bigints"

217+ )

218+ <|> flag' (RemoveOpt GeneralisedNatHack) (

219+ long "no-optimise-nat-like-types"

220+ <> long "no-optimize-nat-like-types"

221+ <> help "Disable compilation of Nat-like types to bigints"

222+ )

223+

212 <|> OptLevel <$> option auto (short 'O' <> long "level")

224 <|> OptLevel <$> option auto (short 'O' <> long "level")

213

225

214 <|> TargetTriple <$> strOption (long "target" <> metavar "TRIPLE" <> help "If supported the codegen will target the named triple.")

226 <|> TargetTriple <$> strOption (long "target" <> metavar "TRIPLE" <> help "If supported the codegen will target the named triple.")

@@ -253,7 +265,7 @@ parseCodegen :: String -> Codegen

253parseCodegen "bytecode" = Bytecode

265parseCodegen "bytecode" = Bytecode

254parseCodegen cg = Via IBCFormat (map toLower cg)

266parseCodegen cg = Via IBCFormat (map toLower cg)

255

267

256−parseLogCats :: Monad m => String -> m [LogCat]

268+parseLogCats :: Fail.MonadFail m => String -> m [LogCat]

257parseLogCats s =

269parseLogCats s =

258 case lastMay (readP_to_S doParse s) of

270 case lastMay (readP_to_S doParse s) of

259 Just (xs, _) -> return xs

271 Just (xs, _) -> return xs

@@ -279,7 +291,7 @@ parseLogCats s =

279 s <- look

291 s <- look

280 fail $ "Category: " ++ s ++ " is not recognised."

292 fail $ "Category: " ++ s ++ " is not recognised."

281

293

282−parseConsoleWidth :: Monad m => String -> m ConsoleWidth

294+parseConsoleWidth :: Fail.MonadFail m => String -> m ConsoleWidth

283parseConsoleWidth "auto" = return AutomaticWidth

295parseConsoleWidth "auto" = return AutomaticWidth

284parseConsoleWidth "infinite" = return InfinitelyWide

296parseConsoleWidth "infinite" = return InfinitelyWide

285parseConsoleWidth s =

297parseConsoleWidth s =

src/Idris/Core/CaseTree.hs+5−5

@@ -549,19 +549,19 @@ caseGroups (v:vs) gs err = do g <- altGroups gs

549

550 altGroup n i args

551 = do inacc <- inaccessibleArgs n

552− (newVars, accVars, inaccVars, nextCs) <- argsToAlt inacc args

552+ ~(newVars, accVars, inaccVars, nextCs) <- argsToAlt inacc args

553 matchCs <- match (accVars ++ vs ++ inaccVars) nextCs err

554 return $ ConCase n i newVars matchCs

555

556− altFnGroup n args = do (newVars, _, [], nextCs) <- argsToAlt [] args

556+ altFnGroup n args = do ~(newVars, _, [], nextCs) <- argsToAlt [] args

557 matchCs <- match (newVars ++ vs) nextCs err

558 return $ FnCase n newVars matchCs

559

560− altSucGroup args = do ([newVar], _, [], nextCs) <- argsToAlt [] args

560+ altSucGroup args = do ~([newVar], _, [], nextCs) <- argsToAlt [] args

561 matchCs <- match (newVar:vs) nextCs err

562 return $ SucCase newVar matchCs

563

564− altConstGroup n args = do (_, _, [], nextCs) <- argsToAlt [] args

564+ altConstGroup n args = do ~(_, _, [], nextCs) <- argsToAlt [] args

565 matchCs <- match vs nextCs err

566 return $ ConstCase n matchCs

567

@@ -627,7 +627,7 @@ groupCons cs = gc [] cs

627 PConst cval -> return $ addConG cval (ps, res) acc

628 PSuc n -> return $ addg False CSuc [n] (ps, res) acc

629 PReflected fn args -> return $ addg False (CFn fn) args (ps, res) acc

630− pat -> fail $ show pat ++ " is not a constructor or constant (can't happen)"

630+ pat -> error $ show pat ++ " is not a constructor or constant (can't happen)"

631

632 addg uniq c conargs res []

633 = [ConGroup uniq c [(conargs, res)]]

src/Idris/Core/Evaluate.hs+7

@@ -24,6 +24,7 @@ module Idris.Core.Evaluate(normalise, normaliseTrace, normaliseC,

24 lookupNames, lookupTyName, lookupTyNameExact, lookupTy, lookupTyExact,

25 lookupP, lookupP_all, lookupDef, lookupNameDef, lookupDefExact, lookupDefAcc, lookupDefAccExact, lookupVal,

26 mapDefCtxt, tcReducible,

27+ lookupTotalAccessibility,

27 lookupTotal, lookupTotalExact, lookupInjectiveExact,

28 lookupTotal, lookupTotalExact, lookupInjectiveExact,

28 lookupRigCount, lookupRigCountExact,

29 lookupRigCount, lookupRigCountExact,

29 lookupNameTotal, lookupMetaInformation, lookupTyEnv, isTCDict,

30 lookupNameTotal, lookupMetaInformation, lookupTyEnv, isTCDict,

@@ -1167,6 +1168,12 @@ lookupDefAcc n mkpublic ctxt

1167 where mkp (d, _, inj, a, _, _) = if mkpublic && (not (n == sUN "io_bind" || n == sUN "io_pure"))

1168 where mkp (d, _, inj, a, _, _) = if mkpublic && (not (n == sUN "io_bind" || n == sUN "io_pure"))

1168 then (d, Public) else (d, a)

1169 then (d, Public) else (d, a)

1169

1170

1171+lookupTotalAccessibility :: Name -> Context -> [(Totality,Accessibility)]

1172+lookupTotalAccessibility n ctxt = fmap unpack $ lookupCtxt n (definitions ctxt)

1173+

1174+ where

1175+ unpack ((_,_,_,a,t,_)) = (t,a)

1176+

1170lookupDefAccExact :: Name -> Bool -> Context ->

1177lookupDefAccExact :: Name -> Bool -> Context ->

1171 Maybe (Def, Accessibility)

1178 Maybe (Def, Accessibility)

1172lookupDefAccExact n mkpublic ctxt

1179lookupDefAccExact n mkpublic ctxt

src/Idris/Core/Execute.hs+13−1

@@ -30,6 +30,7 @@ import Data.Maybe

30import Data.Time.Clock.POSIX (getPOSIXTime)

31import Data.Traversable (forM)

32import Debug.Trace

33+import System.Directory

33import System.IO

34import System.IO

34import System.IO.Error

35import System.IO.Error

35import System.IO.Unsafe

36import System.IO.Unsafe

@@ -345,7 +346,7 @@ execForeign env ctxt arity ty fn xs onfail

345 = case (fileStr, modeStr) of

346 = case (fileStr, modeStr) of

346 (EConstant (Str f), EConstant (Str mode)) ->

347 (EConstant (Str f), EConstant (Str mode)) ->

347 do f <- execIO $

348 do f <- execIO $

348− catch (do let m = case mode of

349+ catch (do let m = case filter (/= 'b') mode of

349 "r" -> Right ReadMode

350 "r" -> Right ReadMode

350 "w" -> Right WriteMode

351 "w" -> Right WriteMode

351 "a" -> Right AppendMode

352 "a" -> Right AppendMode

@@ -387,6 +388,17 @@ execForeign env ctxt arity ty fn xs onfail

387 "The argument to fileError should be a file handle, but it was " ++

388 "The argument to fileError should be a file handle, but it was " ++

388 show handle ++

389 show handle ++

389 ". Are all cases covered?"

390 ". Are all cases covered?"

391+ | Just (FFun "fileRemove" [(_,fileStr)] _) <- foreignFromTT arity ty fn xs

392+ = case fileStr of

393+ EConstant (Str f) -> do res <- execIO $ catch (do removeFile f

394+ return $ ioWrap $ EConstant $ I 0)

395+ (\e -> do writeIORef fileError $ mapError e

396+ return $ ioWrap $ EConstant $ I (-1))

397+ execApp env ctxt res (drop arity xs)

398+ _ -> execFail . Msg $

399+ "The argument to fileRemove should be a constant string, but it was " ++

400+ show fileStr ++

401+ ". Are all cases covered?"

390 | Just (FFun "fileClose" [(_,handle)] _) <- foreignFromTT arity ty fn xs

402 | Just (FFun "fileClose" [(_,handle)] _) <- foreignFromTT arity ty fn xs

391 = case handle of

403 = case handle of

392 EHandle h -> do execIO $ hClose h

404 EHandle h -> do execIO $ hClose h

src/Idris/Core/TT.hs+6

@@ -70,6 +70,7 @@ import qualified Prelude as S (Semigroup(..))

70import Control.Applicative (Alternative, Applicative(..))

71import qualified Control.Applicative as A (Alternative(..))

72import Control.DeepSeq (($!!))

73+import qualified Control.Monad.Fail as Fail

73import Control.Monad.State.Strict

74import Control.Monad.State.Strict

74import Data.Binary hiding (get, put)

75import Data.Binary hiding (get, put)

75import Data.Char

76import Data.Char

@@ -324,6 +325,11 @@ bindTC x k = case x of

324instance Monad TC where

325instance Monad TC where

325 return x = OK x

326 return x = OK x

326 x >>= k = bindTC x k

327 x >>= k = bindTC x k

328+#if !(MIN_VERSION_base(4,13,0))

329+ fail = Fail.fail

330+#endif

331+

332+instance Fail.MonadFail TC where

327 fail e = Error (InternalMsg e)

333 fail e = Error (InternalMsg e)

328

334

329instance MonadPlus TC where

335instance MonadPlus TC where

src/Idris/Docs.hs+11−6

@@ -94,11 +94,9 @@ pprintFD ist totalityFlag nsFlag (FD n doc args ty f) =

94 (if not (null argshow)

95 then nest 4 $ text "Arguments:" <$> vsep argshow

96 else empty)

97− -- show totality status

97+ -- show totality and visibility status

98− <> let totality = getTotality in

98+ <> showTotalVisibility

99− (if totalityFlag && not (null totality)

99+ )

100− then line <> (vsep . map (\t -> text "The function is" <+> t) $ totality)

101− else empty))

102

100

103 where

101 where

104 ppo = ppOptionIst ist

102 ppo = ppOptionIst ist

@@ -135,7 +133,14 @@ pprintFD ist totalityFlag nsFlag (FD n doc args ty f) =

135 showArgs args ((n, True):bnd)

133 showArgs args ((n, True):bnd)

136 showArgs [] _ = [] -- end of arguments

134 showArgs [] _ = [] -- end of arguments

137

135

138− getTotality = map (text . show) $ lookupTotal n (tt_ctxt ist)

136+ showTotalVisibility =

137+ case lookupTotalAccessibility n (tt_ctxt ist) of

138+ [] -> empty

139+ xs -> line <> vsep (map (doShowTotalVisibility) xs)

140+

141+ doShowTotalVisibility (t,v) = if totalityFlag

142+ then text "The function is:" <+> ((text . show) t) <+> (text "&") <+> ((text . show) v)

143+ else text "The function is:" <+> ((text . show) v)

139

144

140pprintFDWithTotality :: IState -> Bool -> FunDoc -> Doc OutputAnnotation

145pprintFDWithTotality :: IState -> Bool -> FunDoc -> Doc OutputAnnotation

141pprintFDWithTotality ist = pprintFD ist True

146pprintFDWithTotality ist = pprintFD ist True

src/Idris/Elab/Clause.hs+6−7

@@ -660,11 +660,13 @@ elabClause info opts (cnum, PClause fc fname lhs_in_as withs rhs_in_as wherebloc

660 i <- getIState

661 inf <- isTyInferred fname

662

663− -- Check if we have "with" patterns outside of "with" block

663+ -- Check if we have extra "with" patterns

664− when (isOutsideWith lhs_in && (not $ null withs)) $

664+ when (not $ null withs) $

665 ierror (At (fromMaybe NoFC $ highestFC lhs_in_as)

666 (Elaborating "left hand side of " fname Nothing

667+ (Msg $ if isOutsideWith lhs_in

667− (Msg "unexpected patterns outside of \"with\" block")))

668+ then "unexpected patterns outside of \"with\" block"

669+ else "unexpected extra \"with\" patterns")))

668

670

669 -- get the parameters first, to pass through to any where block

671 -- get the parameters first, to pass through to any where block

670 let fn_ty = case lookupTy fname ctxt of

672 let fn_ty = case lookupTy fname ctxt of

@@ -720,12 +722,9 @@ elabClause info opts (cnum, PClause fc fname lhs_in_as withs rhs_in_as wherebloc

720 [] (constraintNS info) fc id [] lhs_tm

722 [] (constraintNS info) fc id [] lhs_tm

721 else return (lhs_tm, lhs_ty)

723 else return (lhs_tm, lhs_ty)

722 let clhs = normalise ctxt [] clhs_c

724 let clhs = normalise ctxt [] clhs_c

723− let borrowed = borrowedNames [] clhs

724−

725 -- These are the names we're not allowed to use on the RHS, because

726 -- they're UniqueTypes and borrowed from another function.

727− when (not (null borrowed)) $

727+ let borrowed = borrowedNames [] clhs

728− logElab 5 ("Borrowed names on LHS: " ++ show borrowed)

729

728

730 logElab 3 ("Normalised LHS: " ++ showTmImpls (delabMV i clhs))

729 logElab 3 ("Normalised LHS: " ++ showTmImpls (delabMV i clhs))

731

730

src/Idris/Elab/Term.hs+4−4

@@ -448,7 +448,7 @@ elab ist info emode opts fn tm

448 -- the full set.

449 uns <- get_usedns

450 let as' = map (mkUniqueNames (uns ++ map snd ms) ms) as_pruned

451− (h : hs) <- get_holes

451+ ~(h : hs) <- get_holes

452 ty <- goal

453 case as' of

454 [] -> do hds <- mapM showHd as

@@ -984,7 +984,7 @@ elab ist info emode opts fn tm

984 (elab' ina fc Placeholder)

985 (show f)

986 elab' ina fc Placeholder

987− = do (h : hs) <- get_holes

987+ = do ~(h : hs) <- get_holes

988 movelast h

989 elab' ina fc (PMetavar nfc n) =

990 do ptm <- get_term

@@ -1251,7 +1251,7 @@ elab ist info emode opts fn tm

1251 elab' ina fc (PHidden t)

1252 | reflection = elab' ina fc t

1253 | otherwise

1254− = do (h : hs) <- get_holes

1254+ = do ~(h : hs) <- get_holes

1255 -- Dotting a hole means that either the hole or any outer

1256 -- hole (a hole outside any occurrence of it)

1257 -- must be solvable by unification as well as being filled

@@ -1259,7 +1259,7 @@ elab ist info emode opts fn tm

1259 -- Delay dotted things to the end, then when we elaborate them

1260 -- we can check the result against what was inferred

1261 movelast h

1262− (h' : hs) <- get_holes

1262+ ~(h' : hs) <- get_holes

1263 -- If we're at the end anyway, do it now

1264 if h == h' then elabHidden h

1265 else delayElab 10 $ elabHidden h

src/Idris/IBC.hs+86−6

@@ -12,7 +12,8 @@ Maintainer : The Idris Community.

12

13module Idris.IBC (loadIBC, loadPkgIndex,

14 writeIBC, writePkgIndex,

15− hasValidIBCVersion, IBCPhase(..)) where

15+ hasValidIBCVersion, IBCPhase(..),

16+ getIBCHash, getImportHashes) where

16

17

17import Idris.AbsSyntax

18import Idris.AbsSyntax

18import Idris.Core.CaseTree

19import Idris.Core.CaseTree

@@ -40,7 +41,7 @@ import System.Directory

40import System.FilePath

41import System.FilePath

41

42

42ibcVersion :: Word16

43ibcVersion :: Word16

43−ibcVersion = 165

44+ibcVersion = 166

44

45

45-- | When IBC is being loaded - we'll load different things (and omit

46-- | When IBC is being loaded - we'll load different things (and omit

46-- different structures/definitions) depending on which phase we're in.

47-- different structures/definitions) depending on which phase we're in.

@@ -50,6 +51,7 @@ data IBCPhase = IBC_Building -- ^ when building the module tree

50

51

51data IBCFile = IBCFile {

52data IBCFile = IBCFile {

52 ver :: Word16

53 ver :: Word16

54+ , iface_hash :: Int

53 , sourcefile :: FilePath

55 , sourcefile :: FilePath

54 , ibc_imports :: ![(Bool, FilePath)]

56 , ibc_imports :: ![(Bool, FilePath)]

55 , ibc_importdirs :: ![FilePath]

57 , ibc_importdirs :: ![FilePath]

@@ -101,6 +103,7 @@ data IBCFile = IBCFile {

101 , ibc_fragile :: ![(Name, String)]

103 , ibc_fragile :: ![(Name, String)]

102 , ibc_constraints :: ![(FC, UConstraint)]

104 , ibc_constraints :: ![(FC, UConstraint)]

103 , ibc_langexts :: ![LanguageExt]

105 , ibc_langexts :: ![LanguageExt]

106+ , ibc_importhashes :: ![(FilePath, Int)]

104 }

107 }

105 deriving Show

108 deriving Show

106{-!

109{-!

@@ -108,7 +111,7 @@ deriving instance Binary IBCFile

108!-}

111!-}

109

112

110initIBC :: IBCFile

113initIBC :: IBCFile

111−initIBC = IBCFile ibcVersion "" [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] Nothing [] [] [] [] [] [] [] [] [] [] []

114+initIBC = IBCFile ibcVersion 0 "" [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] Nothing [] [] [] [] [] [] [] [] [] [] [] []

112

115

113hasValidIBCVersion :: FilePath -> Idris Bool

116hasValidIBCVersion :: FilePath -> Idris Bool

114hasValidIBCVersion fp = do

117hasValidIBCVersion fp = do

@@ -143,6 +146,21 @@ loadIBC reexport phase fp

143 else unhide phase fp archive

146 else unhide phase fp archive

144 addImported reexport fp

147 addImported reexport fp

145

148

149+getIBCHash :: FilePath -> Idris Int

150+getIBCHash fp

151+ = do archiveFile <- runIO $ B.readFile fp

152+ case toArchiveOrFail archiveFile of

153+ Left _ -> return 0

154+ Right archive -> getEntry 0 "iface_hash" archive

155+

156+

157+getImportHashes :: FilePath -> Idris [(FilePath, Int)]

158+getImportHashes fp

159+ = do archiveFile <- runIO $ B.readFile fp

160+ case toArchiveOrFail archiveFile of

161+ Left _ -> return []

162+ Right archive -> getEntry [] "ibc_importhashes" archive

163+

146-- | Load an entire package from its index file

164-- | Load an entire package from its index file

147loadPkgIndex :: PkgName -> Idris ()

165loadPkgIndex :: PkgName -> Idris ()

148loadPkgIndex pkg = do ddir <- runIO getIdrisLibDir

166loadPkgIndex pkg = do ddir <- runIO getIdrisLibDir

@@ -159,6 +177,7 @@ makeEntry name val = if L.null val

159

177

160entries :: IBCFile -> [Entry]

178entries :: IBCFile -> [Entry]

161entries i = catMaybes [Just $ toEntry "ver" 0 (encode $ ver i),

179entries i = catMaybes [Just $ toEntry "ver" 0 (encode $ ver i),

180+ Just $ toEntry "iface_hash" 0 (encode $ iface_hash i),

162 makeEntry "sourcefile" (sourcefile i),

181 makeEntry "sourcefile" (sourcefile i),

163 makeEntry "ibc_imports" (ibc_imports i),

182 makeEntry "ibc_imports" (ibc_imports i),

164 makeEntry "ibc_importdirs" (ibc_importdirs i),

183 makeEntry "ibc_importdirs" (ibc_importdirs i),

@@ -208,7 +227,8 @@ entries i = catMaybes [Just $ toEntry "ver" 0 (encode $ ver i),

208 makeEntry "ibc_injective" (ibc_injective i),

227 makeEntry "ibc_injective" (ibc_injective i),

209 makeEntry "ibc_access" (ibc_access i),

228 makeEntry "ibc_access" (ibc_access i),

210 makeEntry "ibc_fragile" (ibc_fragile i),

229 makeEntry "ibc_fragile" (ibc_fragile i),

211− makeEntry "ibc_langexts" (ibc_langexts i)]

230+ makeEntry "ibc_langexts" (ibc_langexts i),

231+ makeEntry "ibc_importhashes" (ibc_importhashes i)]

212-- TODO: Put this back in shortly after minimising/pruning constraints

232-- TODO: Put this back in shortly after minimising/pruning constraints

213-- makeEntry "ibc_constraints" (ibc_constraints i)]

233-- makeEntry "ibc_constraints" (ibc_constraints i)]

214

234

@@ -223,14 +243,73 @@ writeIBC src f

223 iReport 2 $ "Writing IBC for: " ++ show f

243 iReport 2 $ "Writing IBC for: " ++ show f

224 i <- getIState

244 i <- getIState

225 resetNameIdx

245 resetNameIdx

226− ibcf <- mkIBC (ibc_write i) (initIBC { sourcefile = src,

246+ ibc_data <- mkIBC (ibc_write i) (initIBC { sourcefile = src,

227− ibc_langexts = idris_language_extensions i })

247+ ibc_langexts = idris_language_extensions i })

248+ let ibcf = ibc_data { iface_hash = calculateHash i ibc_data }

249+ logIBC 5 $ "Hash for " ++ show f ++ " = " ++ show (iface_hash ibcf)

228 idrisCatch (do runIO $ createDirectoryIfMissing True (dropFileName f)

250 idrisCatch (do runIO $ createDirectoryIfMissing True (dropFileName f)

229 writeArchive f ibcf

251 writeArchive f ibcf

230 logIBC 2 "Written")

252 logIBC 2 "Written")

231 (\c -> do logIBC 2 $ "Failed " ++ pshow i c)

253 (\c -> do logIBC 2 $ "Failed " ++ pshow i c)

232 return ()

254 return ()

233

255

256+qhash :: Int -> String -> Int

257+qhash hash [] = abs hash `mod` 0xffffffff

258+qhash hash (x:xs) = qhash (hash * 33 + fromIntegral (fromEnum x)) xs

259+

260+hashTerm :: Int -> Term -> Int

261+hashTerm i t = qhash (i * 5381) (show t)

262+

263+hashName :: Int -> Name -> Int

264+hashName i n = qhash (i * 5381) (show n)

265+

266+calculateHash :: IState -> IBCFile -> Int

267+calculateHash ist f

268+ = let acc = L.filter exported (ibc_access f)

269+ inl = L.filter (inlinable (map fst acc)) (ibc_flags f) in

270+ mkHashFrom (map fst acc) (getDefs acc ++ L.concatMap getFullDef inl)

271+ where

272+ mkHashFrom :: [Name] -> [Term] -> Int

273+ mkHashFrom ns tms = sum (L.zipWith hashName [1..] ns) +

274+ sum (L.zipWith hashTerm [1..] tms)

275+

276+ exported (_, Public) = True

277+ exported (_, Frozen) = True

278+ exported _ = False

279+

280+ inlinable acc (n, opts)

281+ = n `elem` acc &&

282+ (Inlinable `elem` opts || PEGenerated `elem` opts)

283+

284+ findTms :: [(a, Term, Term)] -> [Term]

285+ findTms = L.concatMap (\ (_, x, y) -> [x, y])

286+

287+ patDef :: Name -> [Term]

288+ patDef n

289+ = case lookupCtxtExact n (idris_patdefs ist) of

290+ Nothing -> []

291+ Just (tms, _) -> findTms tms

292+

293+ getDefs :: [(Name, Accessibility)] -> [Term]

294+ getDefs [] = []

295+ getDefs ((n, Public) : ns)

296+ = let ts = getDefs ns in

297+ case lookupTyExact n (tt_ctxt ist) of

298+ Nothing -> ts

299+ Just ty -> ty : patDef n ++ ts

300+ getDefs ((n, Frozen) : ns)

301+ = let ts = getDefs ns in

302+ case lookupTyExact n (tt_ctxt ist) of

303+ Nothing -> ts

304+ Just ty -> ty : ts

305+ getDefs (_ : ns) = getDefs ns

306+

307+ getFullDef :: (Name, [FnOpt]) -> [Term]

308+ getFullDef (n, _)

309+ = case lookupTyExact n (tt_ctxt ist) of

310+ Nothing -> []

311+ Just ty -> ty : patDef n

312+

234-- | Write a package index containing all the imports in the current

313-- | Write a package index containing all the imports in the current

235-- IState Used for ':search' of an entire package, to ensure

314-- IState Used for ':search' of an entire package, to ensure

236-- everything is loaded.

315-- everything is loaded.

@@ -347,6 +426,7 @@ ibc i (IBCAutoHint n h) f = return f { ibc_autohints = (n, h) : ibc_autohints f

347ibc i (IBCDeprecate n r) f = return f { ibc_deprecated = (n, r) : ibc_deprecated f }

426ibc i (IBCDeprecate n r) f = return f { ibc_deprecated = (n, r) : ibc_deprecated f }

348ibc i (IBCFragile n r) f = return f { ibc_fragile = (n,r) : ibc_fragile f }

427ibc i (IBCFragile n r) f = return f { ibc_fragile = (n,r) : ibc_fragile f }

349ibc i (IBCConstraint fc u) f = return f { ibc_constraints = (fc, u) : ibc_constraints f }

428ibc i (IBCConstraint fc u) f = return f { ibc_constraints = (fc, u) : ibc_constraints f }

429+ibc i (IBCImportHash fn h) f = return f { ibc_importhashes = (fn, h) : ibc_importhashes f }

350

430

351getEntry :: (Binary b, NFData b) => b -> FilePath -> Archive -> Idris b

431getEntry :: (Binary b, NFData b) => b -> FilePath -> Archive -> Idris b

352getEntry alt f a = case findEntryByPath f a of

432getEntry alt f a = case findEntryByPath f a of

src/Idris/ModeCommon.hs+1−1

@@ -167,7 +167,7 @@ loadInputs inputs toline -- furthest line to read in input source files

167banner = " ____ __ _ \n" ++

168 " / _/___/ /____(_)____ \n" ++

169 " / // __ / ___/ / ___/ Version " ++ getIdrisVersion ++ "\n" ++

170− " _/ // /_/ / / / (__ ) http://www.idris-lang.org/ \n" ++

170+ " _/ // /_/ / / / (__ ) https://www.idris-lang.org/ \n" ++

171 " /___/\\__,_/_/ /_/____/ Type :? for help \n" ++

172 "\n" ++

173 "Idris is free software with ABSOLUTELY NO WARRANTY. \n" ++

src/Idris/Options.hs+1−1

@@ -125,7 +125,7 @@ data HowMuchDocs = FullDocs | OverviewDocs

125

126data OutputFmt = HTMLOutput | LaTeXOutput

127

128−data Optimisation = PETransform -- ^ partial eval and associated transforms

128+data Optimisation = PETransform | GeneralisedNatHack -- ^ partial eval and associated transforms

129 deriving (Show, Eq, Generic)

130

131-- | Recognised logging categories for the Idris compiler.

src/Idris/Output.hs+4−3

@@ -75,9 +75,10 @@ instance Message SimpleWarning where

75formatMessage :: Message w => w -> Idris OutputDoc

76formatMessage w = do

77 i <- getIState

78− maybeSource <- case messageSource w of

78+ rs <- readSource fc

79+ let maybeSource = case rs of

79− Just src -> pure (Just src)

80+ Just src -> Just src

80− Nothing -> readSource fc

81+ Nothing -> messageSource w

81 let maybeFormattedSource = maybeSource >>= layoutSource fc (regions (idris_highlightedRegions i))

82 let maybeFormattedSource = maybeSource >>= layoutSource fc (regions (idris_highlightedRegions i))

82 return $ layoutMessage (layoutFC fc) maybeFormattedSource (messageText w)

83 return $ layoutMessage (layoutFC fc) maybeFormattedSource (messageText w)

83 where

84 where

src/Idris/Package/Parser.hs+11−7

@@ -13,9 +13,10 @@ import Idris.Imports

13import Idris.Options (Opt)

14import Idris.Package.Common

15import Idris.Parser (moduleName)

16−import Idris.Parser.Helpers (Parser, Parsing, eol, iName, identifier, isEol,

16+import Idris.Parser.Helpers (Parser, Parsing, eol, iName, identifier,

17+ identifierWithExtraChars, isEol, lchar,

17− lchar, packageName, parseErrorDoc, reserved,

18+ packageName, parseErrorDoc, reserved, runparser,

18− runparser, someSpace, stringLiteral)

19+ someSpace, stringLiteral)

19

20

20import Control.Applicative

21import Control.Applicative

21import Control.Monad.State.Strict

22import Control.Monad.State.Strict

@@ -26,14 +27,13 @@ import System.Exit

26import System.FilePath (isValid, takeExtension, takeFileName)

27import System.FilePath (isValid, takeExtension, takeFileName)

27import Text.Megaparsec ((<?>))

28import Text.Megaparsec ((<?>))

28import qualified Text.Megaparsec as P

29import qualified Text.Megaparsec as P

29−import qualified Text.Megaparsec.Char as P

30import qualified Text.PrettyPrint.ANSI.Leijen as PP

31

32type PParser = Parser PkgDesc

33

34parseDesc :: FilePath -> IO PkgDesc

35parseDesc fp = do

36− when (not $ takeExtension fp == ".ipkg") $ do

36+ unless (takeExtension fp == ".ipkg") $ do

37 putStrLn $ unwords ["The presented iPKG file does not have a '.ipkg' extension:", show fp]

38 exitWith (ExitFailure 1)

39 res <- doesFileExist fp

@@ -119,17 +119,20 @@ pOptions = do

119 Opts.Failure e -> fail $ fst $ Opts.renderFailure e ""

120 _ -> fail "Unexpected error"

121

122+libIdentifier :: Parsing m => m String

123+libIdentifier = identifierWithExtraChars "_'-."

124+

122pClause :: PParser ()

125pClause :: PParser ()

123pClause = clause "executable" filename (\st v -> st { execout = Just v })

126pClause = clause "executable" filename (\st v -> st { execout = Just v })

124 <|> clause "main" (iName []) (\st v -> st { idris_main = Just v })

127 <|> clause "main" (iName []) (\st v -> st { idris_main = Just v })

125− <|> clause "sourcedir" identifier (\st v -> st { sourcedir = v })

128+ <|> clause "sourcedir" (identifier <|> stringLiteral) (\st v -> st { sourcedir = v })

126 <|> clause "opts" pOptions (\st v -> st { idris_opts = v ++ idris_opts st })

129 <|> clause "opts" pOptions (\st v -> st { idris_opts = v ++ idris_opts st })

127 <|> clause "pkgs" (commaSep (pPkgName <* someSpace)) (\st ps ->

130 <|> clause "pkgs" (commaSep (pPkgName <* someSpace)) (\st ps ->

128 let pkgs = pureArgParser $ concatMap (\x -> ["-p", show x]) ps

131 let pkgs = pureArgParser $ concatMap (\x -> ["-p", show x]) ps

129 in st { pkgdeps = ps `union` pkgdeps st

132 in st { pkgdeps = ps `union` pkgdeps st

130 , idris_opts = pkgs ++ idris_opts st })

133 , idris_opts = pkgs ++ idris_opts st })

131 <|> clause "modules" (commaSep moduleName) (\st v -> st { modules = modules st ++ v })

134 <|> clause "modules" (commaSep moduleName) (\st v -> st { modules = modules st ++ v })

132− <|> clause "libs" (commaSep identifier) (\st v -> st { libdeps = libdeps st ++ v })

135+ <|> clause "libs" (commaSep libIdentifier) (\st v -> st { libdeps = libdeps st ++ v })

133 <|> clause "objs" (commaSep identifier) (\st v -> st { objs = objs st ++ v })

136 <|> clause "objs" (commaSep identifier) (\st v -> st { objs = objs st ++ v })

134 <|> clause "makefile" (iName []) (\st v -> st { makefile = Just (show v) })

137 <|> clause "makefile" (iName []) (\st v -> st { makefile = Just (show v) })

135 <|> clause "tests" (commaSep (iName [])) (\st v -> st { idris_tests = idris_tests st ++ v })

138 <|> clause "tests" (commaSep (iName [])) (\st v -> st { idris_tests = idris_tests st ++ v })

@@ -142,3 +145,4 @@ pClause = clause "executable" filename (\st v -> st { execout = Just v })

142 <|> clause "brief" stringLiteral (\st v -> st { pkgbrief = Just v })

145 <|> clause "brief" stringLiteral (\st v -> st { pkgbrief = Just v })

143 <|> clause "author" textUntilEol (\st v -> st { pkgauthor = Just v })

146 <|> clause "author" textUntilEol (\st v -> st { pkgauthor = Just v })

144 <|> clause "maintainer" textUntilEol (\st v -> st { pkgmaintainer = Just v })

147 <|> clause "maintainer" textUntilEol (\st v -> st { pkgmaintainer = Just v })

148+

src/Idris/Parser.hs+189−155

@@ -55,11 +55,11 @@ import Data.Maybe

55import Data.Ord

56import qualified Data.Set as S

57import qualified Data.Text as T

58−import qualified System.Directory as Dir (makeAbsolute)

58+import qualified System.Directory as Dir (doesFileExist, getModificationTime,

59+ makeAbsolute)

59import System.FilePath

60import System.FilePath

60import Text.Megaparsec ((<?>))

61import Text.Megaparsec ((<?>))

61import qualified Text.Megaparsec as P

62import qualified Text.Megaparsec as P

62−import qualified Text.Megaparsec.Char as P

63import qualified Text.PrettyPrint.ANSI.Leijen as PP

64

65{-

@@ -1640,162 +1640,196 @@ loadSource' lidr r maxline

1640{-| Load Idris source code-}

1641loadSource :: Bool -> FilePath -> Maybe Int -> Idris ()

1642loadSource lidr f toline

1643− = do logParser 1 ("Reading " ++ f)

1643+ = do logParser 1 ("Reading " ++ f)

1644− iReport 2 ("Reading " ++ f)

1644+ iReport 2 ("Reading " ++ f)

1645− i <- getIState

1645+ i <- getIState

1646− let def_total = default_total i

1646+ let def_total = default_total i

1647− file_in <- runIO $ readSource f

1647+ file_in <- runIO $ readSource f

1648− file <- if lidr then tclift $ unlit f file_in else return file_in

1648+ file <- if lidr then tclift $ unlit f file_in else return file_in

1649− (mdocs, mname, imports_in, pos) <- parseImports f file

1649+ (mdocs, mname, imports_in, pos) <- parseImports f file

1650− ai <- getAutoImports

1650+ ai <- getAutoImports

1651− let imports = map (\n -> ImportInfo True n Nothing [] NoFC NoFC) ai ++ imports_in

1651+ let imports = map (\n -> ImportInfo True n Nothing [] NoFC NoFC) ai ++ imports_in

1652− ids <- rankedImportDirs f

1652+ ids <- rankedImportDirs f

1653− ibcsd <- valIBCSubDir i

1653+ ibcsd <- valIBCSubDir i

1654+ let ibc = ibcPathNoFallback ibcsd f

1655+ impHashes <- idrisCatch (getImportHashes ibc)

1656+ (\err -> return [])

1657+ newHashes <- mapM (\ (_, f, _, _) ->

1658+ do fp <- findImport ids ibcsd f

1659+ case fp of

1660+ IBC fn src ->

1661+ idrisCatch (do hash <- getIBCHash fn

1662+ return (Just (fn, hash)))

1663+ (\err -> return Nothing)

1664+ _ -> return Nothing)

1665+ [(re, fn, ns, nfc) | ImportInfo re fn _ ns _ nfc <- imports]

1666+

1667+ fmod <- liftIO $ Dir.getModificationTime f

1668+ ibcexists <- liftIO $ Dir.doesFileExist ibc

1669+ ibcmod <- if ibcexists

1670+ then liftIO $ Dir.getModificationTime ibc

1671+ else return fmod

1672+

1673+ logParser 10 $ ibc ++ " " ++ show ibcmod

1674+ logParser 10 $ f ++ " " ++ show fmod

1675+ logParser 10 $ show impHashes ++ "\n" ++ show newHashes

1676+

1677+ -- If the ibc is newer than the source, and the old import

1678+ -- hashes are the same as the ones we've just read,

1679+ -- quit and just load the IBC

1680+

1681+ let needLoad = (ibcmod <= fmod) ||

1682+ (sort impHashes /= sort (mapMaybe id newHashes))

1683+

1684+ if not needLoad

1685+ then pure ()

1686+ else do

1687+ iReport 1 $ "Type checking " ++ f

1654− mapM_ (\(re, f, ns, nfc) ->

1688+ mapM_ (\ (re, f, ns, nfc) ->

1655− do fp <- findImport ids ibcsd f

1689+ do fp <- findImport ids ibcsd f

1656− case fp of

1690+ case fp of

1657− LIDR fn -> ifail $ "No ibc for " ++ f

1691+ LIDR fn -> ifail $ "No ibc for " ++ f

1658− IDR fn -> ifail $ "No ibc for " ++ f

1692+ IDR fn -> ifail $ "No ibc for " ++ f

1659− IBC fn src ->

1693+ IBC fn src ->

1660− do loadIBC True IBC_Building fn

1694+ do loadIBC True IBC_Building fn

1661− let srcFn = case src of

1695+ let srcFn = case src of

1662− IDR fn -> Just fn

1696+ IDR fn -> Just fn

1663− LIDR fn -> Just fn

1697+ LIDR fn -> Just fn

1664− _ -> Nothing

1698+ _ -> Nothing

1665− srcFnAbs <- case srcFn of

1699+ srcFnAbs <- case srcFn of

1666− Just fn -> fmap Just (runIO $ Dir.makeAbsolute fn)

1700+ Just fn -> fmap Just (runIO $ Dir.makeAbsolute fn)

1667− Nothing -> return Nothing

1701+ Nothing -> return Nothing

1668− sendHighlighting $ S.fromList [(FC' nfc, AnnNamespace ns srcFnAbs)])

1702+ sendHighlighting $ S.fromList [(FC' nfc, AnnNamespace ns srcFnAbs)])

1669− [(re, fn, ns, nfc) | ImportInfo re fn _ ns _ nfc <- imports]

1703+ [(re, fn, ns, nfc) | ImportInfo re fn _ ns _ nfc <- imports]

1670− reportParserWarnings

1704+ reportParserWarnings

1671− sendParserHighlighting

1705+ sendParserHighlighting

1672−

1706+

1673− -- process and check module aliases

1707+ -- process and check module aliases

1674− let modAliases = M.fromList

1708+ let modAliases = M.fromList

1675− [ (prep alias, prep realName)

1709+ [ (prep alias, prep realName)

1676− | ImportInfo { import_reexport = reexport

1677− , import_path = realName

1678− , import_rename = Just (alias, _)

1679− , import_location = fc } <- imports

1680− ]

1681− prep = map T.pack . reverse . Spl.splitOn [pathSeparator]

1682− aliasNames = [ (alias, fc)

1683− | ImportInfo { import_rename = Just (alias, fc)

1684− } <- imports

1685− ]

1686− histogram = groupBy ((==) `on` fst) . sortBy (comparing fst) $ aliasNames

1687− case map head . filter ((/= 1) . length) $ histogram of

1688− [] -> logParser 3 $ "Module aliases: " ++ show (M.toList modAliases)

1689− (n,fc):_ -> throwError . At fc . Msg $ "import alias not unique: " ++ show n

1690−

1691− i <- getIState

1692− putIState (i { default_access = Private, module_aliases = modAliases })

1693− clearIBC -- start a new .ibc file

1694− -- record package info in .ibc

1695− imps <- allImportDirs

1696− mapM_ addIBC (map IBCImportDir imps)

1697− mapM_ (addIBC . IBCImport)

1698− [ (reexport, realName)

1699 | ImportInfo { import_reexport = reexport

1710 | ImportInfo { import_reexport = reexport

1700 , import_path = realName

1711 , import_path = realName

1712+ , import_rename = Just (alias, _)

1701− } <- imports

1713+ , import_location = fc } <- imports

1702 ]

1714 ]

1715+ prep = map T.pack . reverse . Spl.splitOn [pathSeparator]

1716+ aliasNames = [ (alias, fc)

1717+ | ImportInfo { import_rename = Just (alias, fc)

1718+ } <- imports

1719+ ]

1720+ histogram = groupBy ((==) `on` fst) . sortBy (comparing fst) $ aliasNames

1721+ case map head . filter ((/= 1) . length) $ histogram of

1722+ [] -> logParser 3 $ "Module aliases: " ++ show (M.toList modAliases)

1723+ (n,fc):_ -> throwError . At fc . Msg $ "import alias not unique: " ++ show n

1724+

1725+ i <- getIState

1726+ putIState (i { default_access = Private, module_aliases = modAliases })

1727+ clearIBC -- start a new .ibc file

1728+ mapM_ addIBC (map (\ (f, h) -> IBCImportHash f h)

1729+ (mapMaybe id newHashes))

1730+ -- record package info in .ibc

1731+ imps <- allImportDirs

1732+ mapM_ addIBC (map IBCImportDir imps)

1733+ mapM_ (addIBC . IBCImport)

1734+ [ (reexport, realName)

1735+ | ImportInfo { import_reexport = reexport

1736+ , import_path = realName

1737+ } <- imports

1738+ ]

1703− let syntax = defaultSyntax{ syn_namespace = reverse mname,

1739+ let syntax = defaultSyntax{ syn_namespace = reverse mname,

1704− maxline = toline }

1740+ maxline = toline }

1705− ist <- getIState

1741+ ist <- getIState

1706− -- Save the span from parsing the module header, because

1742+ -- Save the span from parsing the module header, because

1707− -- an empty program parse might obliterate it.

1743+ -- an empty program parse might obliterate it.

1708− let oldSpan = idris_parsedSpan ist

1744+ let oldSpan = idris_parsedSpan ist

1709− ds' <- parseProg syntax f file pos

1745+ ds' <- parseProg syntax f file pos

1710−

1746+

1711− case (ds', oldSpan) of

1747+ case (ds', oldSpan) of

1712− ([], Just fc) ->

1748+ ([], Just fc) ->

1713− -- If no program elements were parsed, we dind't

1749+ -- If no program elements were parsed, we dind't

1714− -- get a loaded region in the IBC file. That

1750+ -- get a loaded region in the IBC file. That

1715− -- means we need to add it back.

1751+ -- means we need to add it back.

1716− do ist <- getIState

1752+ do ist <- getIState

1717− putIState ist { idris_parsedSpan = oldSpan

1753+ putIState ist { idris_parsedSpan = oldSpan

1718− , ibc_write = IBCParsedRegion fc :

1754+ , ibc_write = IBCParsedRegion fc :

1719− ibc_write ist

1755+ ibc_write ist

1720− }

1756+ }

1721− _ -> return ()

1757+ _ -> return ()

1722− sendParserHighlighting

1758+ sendParserHighlighting

1723−

1759+

1724− -- Parsing done, now process declarations

1760+ -- Parsing done, now process declarations

1725−

1761+

1726− let ds = namespaces mname ds'

1762+ let ds = namespaces mname ds'

1727− logParser 3 (show $ showDecls verbosePPOption ds)

1763+ logParser 3 (show $ showDecls verbosePPOption ds)

1728− i <- getIState

1764+ i <- getIState

1729− logLvl 10 (show (toAlist (idris_implicits i)))

1765+ logLvl 10 (show (toAlist (idris_implicits i)))

1730− logLvl 3 (show (idris_infixes i))

1766+ logLvl 3 (show (idris_infixes i))

1731− -- Now add all the declarations to the context

1767+ -- Now add all the declarations to the context

1732− iReport 1 $ "Type checking " ++ f

1733− -- we totality check after every Mutual block, so if

1768+ -- we totality check after every Mutual block, so if

1734− -- anything is a single definition, wrap it in a

1769+ -- anything is a single definition, wrap it in a

1735− -- mutual block on its own

1770+ -- mutual block on its own

1736− elabDecls (toplevelWith f) (map toMutual ds)

1771+ elabDecls (toplevelWith f) (map toMutual ds)

1737− i <- getIState

1772+ i <- getIState

1738− -- simplify every definition do give the totality checker

1773+ -- simplify every definition do give the totality checker

1739− -- a better chance

1774+ -- a better chance

1740− mapM_ (\n -> do logLvl 5 $ "Simplifying " ++ show n

1775+ mapM_ (\n -> do logLvl 5 $ "Simplifying " ++ show n

1741− ctxt' <-

1776+ ctxt' <-

1742− do ctxt <- getContext

1777+ do ctxt <- getContext

1743− tclift $ simplifyCasedef n [] [] (getErasureInfo i) ctxt

1778+ tclift $ simplifyCasedef n [] [] (getErasureInfo i) ctxt

1744− setContext ctxt')

1779+ setContext ctxt')

1745− (map snd (idris_totcheck i))

1780+ (map snd (idris_totcheck i))

1746− -- build size change graph from simplified definitions

1781+ -- build size change graph from simplified definitions

1747− iReport 3 $ "Totality checking " ++ f

1782+ iReport 3 $ "Totality checking " ++ f

1748− logLvl 1 $ "Totality checking " ++ f

1783+ logLvl 1 $ "Totality checking " ++ f

1749− i <- getIState

1784+ i <- getIState

1750− mapM_ buildSCG (idris_totcheck i)

1785+ mapM_ buildSCG (idris_totcheck i)

1751− mapM_ checkDeclTotality (idris_totcheck i)

1786+ mapM_ checkDeclTotality (idris_totcheck i)

1752− mapM_ verifyTotality (idris_totcheck i)

1787+ mapM_ verifyTotality (idris_totcheck i)

1753−

1788+

1754− -- Redo totality check for deferred names

1789+ -- Redo totality check for deferred names

1755− let deftots = idris_defertotcheck i

1790+ let deftots = idris_defertotcheck i

1756− logLvl 2 $ "Totality checking " ++ show deftots

1791+ logLvl 2 $ "Totality checking " ++ show deftots

1757− mapM_ (\x -> do tot <- getTotality x

1792+ mapM_ (\x -> do tot <- getTotality x

1758− case tot of

1793+ case tot of

1759− Total _ ->

1794+ Total _ ->

1760− do let opts = case lookupCtxtExact x (idris_flags i) of

1795+ do let opts = case lookupCtxtExact x (idris_flags i) of

1761− Just os -> os

1796+ Just os -> os

1762− Nothing -> []

1797+ Nothing -> []

1763− when (AssertTotal `notElem` opts) $

1798+ when (AssertTotal `notElem` opts) $

1764− setTotality x Unchecked

1799+ setTotality x Unchecked

1765− _ -> return ()) (map snd deftots)

1800+ _ -> return ()) (map snd deftots)

1766− mapM_ buildSCG deftots

1801+ mapM_ buildSCG deftots

1767− mapM_ checkDeclTotality deftots

1802+ mapM_ checkDeclTotality deftots

1768−

1803+

1769− logLvl 1 ("Finished " ++ f)

1804+ logLvl 1 ("Finished " ++ f)

1770− ibcsd <- valIBCSubDir i

1805+ ibcsd <- valIBCSubDir i

1771− logLvl 1 $ "Universe checking " ++ f

1806+ logLvl 1 $ "Universe checking " ++ f

1772− iReport 3 $ "Universe checking " ++ f

1807+ iReport 3 $ "Universe checking " ++ f

1773− iucheck

1808+ iucheck

1774− let ibc = ibcPathNoFallback ibcsd f

1775− i <- getIState

1809+ i <- getIState

1776− addHides (hide_list i)

1810+ addHides (hide_list i)

1777−

1811+

1778− -- Save module documentation if applicable

1812+ -- Save module documentation if applicable

1779− i <- getIState

1813+ i <- getIState

1780− case mdocs of

1814+ case mdocs of

1781− Nothing -> return ()

1815+ Nothing -> return ()

1782− Just docs -> addModDoc syntax mname docs

1816+ Just docs -> addModDoc syntax mname docs

1783−

1817+

1784−

1818+

1785− -- Finally, write an ibc and highlights if checking was successful

1819+ -- Finally, write an ibc and highlights if checking was successful

1786− ok <- noErrors

1820+ ok <- noErrors

1787− when ok $

1821+ when ok $

1788− do idrisCatch (do writeIBC f ibc; clearIBC)

1822+ do idrisCatch (do writeIBC f ibc; clearIBC)

1789− (\c -> return ()) -- failure is harmless

1823+ (\c -> return ()) -- failure is harmless

1790− hl <- getDumpHighlighting

1824+ hl <- getDumpHighlighting

1791− when hl $

1825+ when hl $

1792− idrisCatch (writeHighlights f)

1826+ idrisCatch (writeHighlights f)

1793− (const $ return ()) -- failure is harmless

1827+ (const $ return ()) -- failure is harmless

1794− clearHighlights

1828+ clearHighlights

1795− i <- getIState

1829+ i <- getIState

1796− putIState (i { default_total = def_total,

1830+ putIState (i { default_total = def_total,

1797− hide_list = emptyContext })

1831+ hide_list = emptyContext })

1798− return ()

1832+ return ()

1799 where

1833 where

1800 namespaces :: [String] -> [PDecl] -> [PDecl]

1834 namespaces :: [String] -> [PDecl] -> [PDecl]

1801 namespaces [] ds = ds

1835 namespaces [] ds = ds

src/Idris/Parser/Expr.hs+2−2

@@ -20,6 +20,7 @@ import Prelude hiding (pi)

20import Control.Applicative

21import Control.Arrow (left)

22import Control.Monad

23+import qualified Control.Monad.Combinators.Expr as P

23import Control.Monad.State.Strict

24import Control.Monad.State.Strict

24import Data.Function (on)

25import Data.Function (on)

25import Data.List

26import Data.List

@@ -27,7 +28,6 @@ import Data.Maybe

27import Text.Megaparsec ((<?>))

28import Text.Megaparsec ((<?>))

28import qualified Text.Megaparsec as P

29import qualified Text.Megaparsec as P

29import qualified Text.Megaparsec.Char as P

30import qualified Text.Megaparsec.Char as P

30−import qualified Text.Megaparsec.Expr as P

31

32-- | Allow implicit type declarations

33allowImp :: SyntaxInfo -> SyntaxInfo

@@ -1406,7 +1406,7 @@ VerbatimString_t ::=

1406 -}

1407verbatimStringLiteral :: Parsing m => m String

1408verbatimStringLiteral = token $ do P.try $ string "\"\"\""

1409− str <- P.manyTill P.anyChar $ P.try (string "\"\"\"")

1409+ str <- P.manyTill P.anySingle $ P.try (string "\"\"\"")

1410 moreQuotes <- P.many $ P.char '"'

1411 return $ str ++ moreQuotes

1412

src/Idris/Parser/Helpers.hs+15−9

@@ -36,6 +36,7 @@ module Idris.Parser.Helpers

36 , iName

37 , name

38 , identifier

39+ , identifierWithExtraChars

39 , packageName

40 , packageName

40 -- * Access

41 -- * Access

41 , accessibility

42 , accessibility

@@ -199,8 +200,10 @@ multiLineComment = P.hidden $ P.try (string "{-" *> string "-}" *> pure ())

199{-| Parses a documentation comment

200{-| Parses a documentation comment

200

201

201@

202@

203+ DocComment_t ::= DocCommentLine (ArgCommentLine DocCommentLine*)* ;

204+

202− DocComment_t ::= '|||' ~EOL_t* EOL_t

205+ DocCommentLine ::= '|||' ~EOL_t* EOL_t ;

203− ;

206+ ArgCommentLine ::= '|||' '@' ~EOL_t* EOL_t ;

204@

207@

205 -}

208 -}

206docComment :: IdrisParser (Docstring (), [(Name, Docstring ())])

209docComment :: IdrisParser (Docstring (), [(Name, Docstring ())])

@@ -269,10 +272,10 @@ reservedIdentifiers = HS.fromList

269 , "rewrite", "syntax", "then", "total", "using", "where", "with"

272 , "rewrite", "syntax", "then", "total", "using", "where", "with"

270 ]

273 ]

271

274

272−identifierOrReserved :: Parsing m => m String

275+identifierOrReservedWithExtraChars :: Parsing m => String -> m String

273−identifierOrReserved = token $ P.try $ do

276+identifierOrReservedWithExtraChars extraChars = token $ P.try $ do

274 c <- P.satisfy isAlpha <|> P.oneOf "_"

277 c <- P.satisfy isAlpha <|> P.oneOf "_"

275− cs <- P.many (P.satisfy isAlphaNum <|> P.oneOf "_'.")

278+ cs <- P.many (P.satisfy isAlphaNum <|> P.oneOf extraChars)

276 return $ c : cs

279 return $ c : cs

277

280

278char :: Parsing m => Char -> m Char

281char :: Parsing m => Char -> m Char

@@ -295,13 +298,16 @@ reserved name = token $ P.try $ do

295 P.notFollowedBy (P.satisfy isAlphaNum <|> P.oneOf "_'.") <?> "end of " ++ name

298 P.notFollowedBy (P.satisfy isAlphaNum <|> P.oneOf "_'.") <?> "end of " ++ name

296

299

297-- | Parses an identifier as a token

300-- | Parses an identifier as a token

298−identifier :: Parsing m => m String

301+identifierWithExtraChars :: Parsing m => String -> m String

299−identifier = P.try $ do

302+identifierWithExtraChars extraChars = P.try $ do

300− ident <- identifierOrReserved

303+ ident <- identifierOrReservedWithExtraChars extraChars

301 when (ident `HS.member` reservedIdentifiers) $ P.unexpected . P.Label . NonEmpty.fromList $ "reserved " ++ ident

304 when (ident `HS.member` reservedIdentifiers) $ P.unexpected . P.Label . NonEmpty.fromList $ "reserved " ++ ident

302 when (ident == "_") $ P.unexpected . P.Label . NonEmpty.fromList $ "wildcard"

305 when (ident == "_") $ P.unexpected . P.Label . NonEmpty.fromList $ "wildcard"

303 return ident

306 return ident

304

307

308+identifier :: Parsing m => m String

309+identifier = identifierWithExtraChars "_'."

310+

305-- | Parses an identifier with possible namespace as a name

311-- | Parses an identifier with possible namespace as a name

306iName :: Parsing m => [String] -> m Name

312iName :: Parsing m => [String] -> m Name

307iName bad = maybeWithNS identifier bad <?> "name"

313iName bad = maybeWithNS identifier bad <?> "name"

@@ -393,7 +399,7 @@ popIndent = do ist <- get

393

399

394-- | Gets current indentation

400-- | Gets current indentation

395indent :: Parsing m => m Int

401indent :: Parsing m => m Int

396−indent = P.unPos . P.sourceColumn <$> P.getPosition

402+indent = P.unPos . P.sourceColumn <$> P.getSourcePos

397

403

398-- | Gets last indentation

404-- | Gets last indentation

399lastIndent :: (MonadState IState m) => m Int

405lastIndent :: (MonadState IState m) => m Int

src/Idris/Parser/Ops.hs+1−2

@@ -17,14 +17,13 @@ import Prelude hiding (pi)

17

18import Control.Applicative

19import Control.Monad

20+import qualified Control.Monad.Combinators.Expr as P

20import Control.Monad.State.Strict

21import Control.Monad.State.Strict

21import Data.Char (isAlpha)

22import Data.Char (isAlpha)

22import Data.List

23import Data.List

23import Data.List.NonEmpty (fromList)

24import Data.List.NonEmpty (fromList)

24import Text.Megaparsec ((<?>))

25import Text.Megaparsec ((<?>))

25import qualified Text.Megaparsec as P

26import qualified Text.Megaparsec as P

26−import qualified Text.Megaparsec.Char as P

27−import qualified Text.Megaparsec.Expr as P

28

27

29-- | Creates table for fixity declarations to build expression parser

28-- | Creates table for fixity declarations to build expression parser

30-- using pre-build and user-defined operator/fixity declarations

29-- using pre-build and user-defined operator/fixity declarations

src/Idris/Parser/Stack.hs+38−13

@@ -5,7 +5,7 @@ Description : Idris parser stack and its primitives.

5License : BSD3

6Maintainer : The Idris Community.

7-}

8−{-# LANGUAGE ConstraintKinds, FlexibleContexts, MultiParamTypeClasses #-}

8+{-# LANGUAGE CPP, ConstraintKinds, FlexibleContexts, MultiParamTypeClasses #-}

9module Idris.Parser.Stack

10 ( -- * Parsing

11 Parser(..)

@@ -36,6 +36,7 @@ import Idris.Core.TT (FC(..))

36import Idris.Output (Message(..))

37

38import Control.Arrow (app)

39+import qualified Control.Monad.Fail as Fail

39import Control.Monad.State.Strict (StateT(..), evalStateT)

40import Control.Monad.State.Strict (StateT(..), evalStateT)

40import Control.Monad.Writer.Strict (MonadWriter(..), WriterT(..), listen,

41import Control.Monad.Writer.Strict (MonadWriter(..), WriterT(..), listen,

41 runWriterT, tell)

42 runWriterT, tell)

@@ -51,33 +52,57 @@ import qualified Util.Pretty as PP

51type Parser s = StateT s (WriterT FC (P.Parsec Void String))

52type Parser s = StateT s (WriterT FC (P.Parsec Void String))

52

53

53-- | A constraint for parsing without state

54-- | A constraint for parsing without state

54−type Parsing m = (P.MonadParsec Void String m, MonadWriter FC m)

55+type Parsing m = (Fail.MonadFail m, P.MonadParsec Void String m, MonadWriter FC m)

55

56

56-- | Run the Idris parser stack

57-- | Run the Idris parser stack

57runparser :: Parser st res -> st -> String -> String -> Either ParseError res

58runparser :: Parser st res -> st -> String -> String -> Either ParseError res

58runparser p i inputname s =

59runparser p i inputname s =

59 case P.parse (runWriterT (evalStateT p i)) inputname s of

60 case P.parse (runWriterT (evalStateT p i)) inputname s of

60− Left err -> Left $ ParseError s err

61+ Left err -> Left $ ParseError err

61 Right v -> Right $ fst v

62 Right v -> Right $ fst v

62

63

63{- * Parse errors -}

64{- * Parse errors -}

64

65

66+newtype ParseError = ParseError { unParseError :: P.ParseErrorBundle String Void }

67+

65−data ParseError = ParseError String (P.ParseError (P.Token String) Void)

68+parseError :: ParseError -> P.ParseError String Void

69+parseError = NonEmpty.head . P.bundleErrors . unParseError

70+

71+parseErrorPosState :: ParseError -> P.PosState String

72+parseErrorPosState = P.bundlePosState . unParseError

73+

74+parseErrorOffset :: ParseError -> Int

75+parseErrorOffset = P.errorOffset . parseError

66

76

67instance Message ParseError where

77instance Message ParseError where

68− messageExtent (ParseError _ err) = sourcePositionFC pos

78+ messageExtent err = sourcePositionFC pos

79+ where

80+#if MIN_VERSION_megaparsec(8,0,0)

81+ P.PosState {P.pstateSourcePos = pos} =

82+ P.reachOffsetNoLine (parseErrorOffset err) (parseErrorPosState err)

83+#else

84+ (pos, _) = P.reachOffsetNoLine (parseErrorOffset err) (parseErrorPosState err)

85+#endif

86+ messageText = PP.text . init . P.parseErrorTextPretty . parseError

87+ messageSource err = Just sline

69 where

88 where

70− (pos NonEmpty.:| _) = P.errorPos err

89+#if MIN_VERSION_megaparsec(8,0,0)

71− messageText (ParseError _ err) = PP.text . init . P.parseErrorTextPretty $ err

90+ (sline, _) = P.reachOffset (parseErrorOffset err) (parseErrorPosState err)

72− messageSource (ParseError src _) = Just src

91+#else

92+ (_, sline, _) = P.reachOffset (parseErrorOffset err) (parseErrorPosState err)

93+#endif

73

94

74-- | A fully formatted parse error, with caret and bar, etc.

95-- | A fully formatted parse error, with caret and bar, etc.

75−prettyError :: ParseError -> String

96+prettyError :: ParseError -> String

76−prettyError (ParseError s err) = P.parseErrorPretty' s err

97+prettyError = P.errorBundlePretty . unParseError

77

98

78{- * Mark and restore -}

99{- * Mark and restore -}

79

100

101+#if MIN_VERSION_megaparsec(8,0,0)

102+type Mark = P.State String Void

103+#else

80type Mark = P.State String

104type Mark = P.State String

105+#endif

81

106

82-- | Retrieve the parser state so we can restart from this point later.

107-- | Retrieve the parser state so we can restart from this point later.

83mark :: Parsing m => m Mark

108mark :: Parsing m => m Mark

@@ -104,7 +129,7 @@ sourcePositionFC (P.SourcePos name line column) =

104-- This is useful when the position is needed in a way unrelated to the

129-- This is useful when the position is needed in a way unrelated to the

105-- heirarchy of parsers. Prefer using @withExtent@ and friends.

130-- heirarchy of parsers. Prefer using @withExtent@ and friends.

106getFC :: Parsing m => m FC

131getFC :: Parsing m => m FC

107−getFC = sourcePositionFC <$> P.getPosition

132+getFC = sourcePositionFC <$> P.getSourcePos

108

133

109-- | Add an extent (widen) our current parsing context.

134-- | Add an extent (widen) our current parsing context.

110addExtent :: MonadWriter FC m => FC -> m ()

135addExtent :: MonadWriter FC m => FC -> m ()

@@ -117,9 +142,9 @@ addExtent = tell

117-- extent is taking trailing whitespace, it's likely there's a double-wrapped

142-- extent is taking trailing whitespace, it's likely there's a double-wrapped

118-- parser (usually via @Idris.Parser.Helpers.token@).

143-- parser (usually via @Idris.Parser.Helpers.token@).

119trackExtent :: Parsing m => m a -> m a

144trackExtent :: Parsing m => m a -> m a

120−trackExtent p = do (FC f (sr, sc) _) <- getFC

145+trackExtent p = do ~(FC f (sr, sc) _) <- getFC

121 result <- p

146 result <- p

122− (FC f _ (er, ec)) <- getFC

147+ ~(FC f _ (er, ec)) <- getFC

123 addExtent (FC f (sr, sc) (er, max 1 (ec - 1)))

148 addExtent (FC f (sr, sc) (er, max 1 (ec - 1)))

124 return result

149 return result

125

150

src/Idris/REPL/Parser.hs+5−6

@@ -33,7 +33,6 @@ import Data.List.Split (splitOn)

33import System.Console.ANSI (Color(..))

34import System.FilePath ((</>))

35import qualified Text.Megaparsec as P

36−import qualified Text.Megaparsec.Char as P

37

36

38parseCmd :: IState -> String -> String -> Either IP.ParseError (Either String Command)

37parseCmd :: IState -> String -> String -> Either IP.ParseError (Either String Command)

39parseCmd i inputname = IP.runparser pCmd i inputname . trim

38parseCmd i inputname = IP.runparser pCmd i inputname . trim

@@ -68,7 +67,7 @@ parserCommandsForHelp =

68 , nameArgCmd ["miss", "missing"] Missing "Show missing clauses"

67 , nameArgCmd ["miss", "missing"] Missing "Show missing clauses"

69 , (["doc"], NameArg, "Show internal documentation", cmd_doc)

68 , (["doc"], NameArg, "Show internal documentation", cmd_doc)

70 , (["mkdoc"], NamespaceArg, "Generate IdrisDoc for namespace(s) and dependencies"

69 , (["mkdoc"], NamespaceArg, "Generate IdrisDoc for namespace(s) and dependencies"

71− , genArg "namespace" (P.many P.anyChar) MakeDoc)

70+ , genArg "namespace" (P.many P.anySingle) MakeDoc)

72 , (["apropos"], SeqArgs (OptionalArg PkgArgs) NameArg, " Search names, types, and documentation"

71 , (["apropos"], SeqArgs (OptionalArg PkgArgs) NameArg, " Search names, types, and documentation"

73 , cmd_apropos)

72 , cmd_apropos)

74 , (["s", "search"], SeqArgs (OptionalArg PkgArgs) ExprArg

73 , (["s", "search"], SeqArgs (OptionalArg PkgArgs) ExprArg

@@ -198,7 +197,7 @@ pCmd = P.choice [ do c <- cmd names; parser c

198 where nop = do P.eof; return (Right NOP)

197 where nop = do P.eof; return (Right NOP)

199 unrecognized = do

198 unrecognized = do

200 IP.lchar ':'

199 IP.lchar ':'

201− cmd <- P.many P.anyChar

200+ cmd <- P.many P.anySingle

202 let cmd' = takeWhile (/=' ') cmd

201 let cmd' = takeWhile (/=' ') cmd

203 return (Left $ "Unrecognized command: " ++ cmd')

202 return (Left $ "Unrecognized command: " ++ cmd')

204

203

@@ -260,7 +259,7 @@ nameArg = genArg "name" IP.name

260fnNameArg = genArg "functionname" IP.fnName

259fnNameArg = genArg "functionname" IP.fnName

261

260

262strArg :: (String -> Command) -> String -> IP.IdrisParser (Either String Command)

261strArg :: (String -> Command) -> String -> IP.IdrisParser (Either String Command)

263−strArg = genArg "string" (P.many P.anyChar)

262+strArg = genArg "string" (P.many P.anySingle)

264

263

265moduleArg :: (FilePath -> Command) -> String -> IP.IdrisParser (Either String Command)

264moduleArg :: (FilePath -> Command) -> String -> IP.IdrisParser (Either String Command)

266moduleArg = genArg "module" (fmap toPath IP.identifier)

265moduleArg = genArg "module" (fmap toPath IP.identifier)

@@ -342,7 +341,7 @@ cmd_execute name = do

342

341

343cmd_dynamic :: String -> IP.IdrisParser (Either String Command)

342cmd_dynamic :: String -> IP.IdrisParser (Either String Command)

344cmd_dynamic name = do

343cmd_dynamic name = do

345− let optArg = do l <- P.many P.anyChar

344+ let optArg = do l <- P.many P.anySingle

346 if (l /= "")

345 if (l /= "")

347 then return $ Right (DynamicLink l)

346 then return $ Right (DynamicLink l)

348 else return $ Right ListDynamic

347 else return $ Right ListDynamic

@@ -440,7 +439,7 @@ cmd_unlet name = Right . Undefine <$> P.many IP.name

440cmd_loadto :: String -> IP.IdrisParser (Either String Command)

439cmd_loadto :: String -> IP.IdrisParser (Either String Command)

441cmd_loadto name = do

440cmd_loadto name = do

442 toline <- fromInteger <$> IP.natural

441 toline <- fromInteger <$> IP.natural

443− f <- P.many P.anyChar

442+ f <- P.many P.anySingle

444 return (Right (Load f (Just toline)))

443 return (Right (Load f (Just toline)))

445

444

446cmd_colour :: String -> IP.IdrisParser (Either String Command)

445cmd_colour :: String -> IP.IdrisParser (Either String Command)

src/Idris/Reflection.hs+1−1

@@ -1105,7 +1105,7 @@ unApplyRaw tm = ua [] tm

1105 ua args t = (t, args)

1106

1107-- | Build the reflected function definition(s) that correspond(s) to

1108−-- a provided unqualifed name

1108+-- a provided unqualified name

1109buildFunDefns :: IState -> Name -> [RFunDefn Term]

1110buildFunDefns ist n =

1111 [ mkFunDefn name clauses

stack-11.22.yamlnew file+21

@@ -0,0 +1,21 @@

1+#recheck extra-deps next on resolver or cabal file change

2+resolver: lts-11.22

3+

4+extra-deps:

5+- cheapskate-0.1.1.2

6+- megaparsec-7.0.5

7+- Cabal-2.4.1.0

8+- network-3.1.1.1

9+- parser-combinators-1.0.0

10+

11+flags:

12+ idris:

13+ FFI: true

14+ GMP: true

15+

16+ghc-options:

17+ idris: -fwarn-unused-imports -fwarn-unused-binds

18+

19+nix:

20+ enable: false

21+ shell-file: stack-shell.nix

stack-12.26.yamlnew file+20

@@ -0,0 +1,20 @@

1+#recheck extra-deps next on resolver or cabal file change

2+resolver: lts-12.26

3+

4+extra-deps:

5+- cheapskate-0.1.1.2

6+- megaparsec-7.0.5

7+- Cabal-2.4.1.0

8+- network-3.1.1.1

9+

10+flags:

11+ idris:

12+ FFI: true

13+ GMP: true

14+

15+ghc-options:

16+ idris: -fwarn-unused-imports -fwarn-unused-binds

17+

18+nix:

19+ enable: false

20+ shell-file: stack-shell.nix

stack-15.3.yamlnew file+17

@@ -0,0 +1,17 @@

1+#recheck extra-deps next on resolver or cabal file change

2+resolver: lts-15.3

3+

4+extra-deps:

5+- cheapskate-0.1.1.2

6+

7+flags:

8+ idris:

9+ FFI: true

10+ GMP: true

11+

12+ghc-options:

13+ idris: -fwarn-unused-imports -fwarn-unused-binds

14+

15+nix:

16+ enable: false

17+ shell-file: stack-shell.nix

stack-15.4.yamlnew file+17

@@ -0,0 +1,17 @@

1+#recheck extra-deps next on resolver or cabal file change

2+resolver: lts-15.4

3+

4+extra-deps:

5+- cheapskate-0.1.1.2

6+

7+flags:

8+ idris:

9+ FFI: true

10+ GMP: true

11+

12+ghc-options:

13+ idris: -fwarn-unused-imports -fwarn-unused-binds

14+

15+nix:

16+ enable: false

17+ shell-file: stack-shell.nix

stack.yamlmode 100644 → 120000+1−19

@@ -1,19 +0,0 @@

1−#recheck extra-deps next on resolver or cabal file change

2−resolver: lts-11.14

3−

4−packages:

5− - location: .

6−

7−extra-deps: []

8−

9−flags:

10− idris:

11− FFI: true

12− GMP: true

13−

14−ghc-options:

15− idris: -fwarn-unused-imports -fwarn-unused-binds

16−

17−nix:

18− enable: false

19− shell-file: stack-shell.nix

@@ -0,0 +1 @@

1+stack-15.4.yaml

test/README.md+5−5

@@ -113,18 +113,18 @@ and somewhat self-explanatory.

113

1141. Choose the family your test shall belong to and remember its identifier.

1152. Pick the next available integer in the test family. It will be the index.

116−3. Say the family's identifier is `foo` and the index is `42`. You should call `./mktest.pl foo042` ; this will create the directory and a simple `run` script.

116+3. Say the family's identifier is `foo` and the index is `42`. You should call `./mktest.pl foo042` ; this will create the directory and a simple `run.sh` script.

1174. Modify the `run` script to your liking. If you want to call the idris executable, write `${IDRIS:-idris} $@`.

1185. Add any file you may need in the directory. If they don't end in `.idr`, you should remember them for the next step.

1196. Add your test in `TestData.hs`. Each family has a list of `(Index, CompatCodegen)`. See the next section for the available values in `CompatCodegen`. In most cases, you should write `( 42, ANY)`.

120−7. Generate the `expected` file by doing:

120+7. Generate the `expected.out` file by doing:

121 ```

122 # Using cabal

123 cabal test --test-options="--pattern foo042 --accept"

124 # Using stack

125 stack test --test-arguments="--pattern foo042 --accept"

126 ```

127−8. Check the content of `expected`. Maybe the test didn't do what you thought it would. Fix and go back to 7 until it's ok.

127+8. Check the content of `expected.out`. Maybe the test didn't do what you thought it would. Fix and go back to 7 until it's ok.

128

129### Specifying compatible backends

130

@@ -146,7 +146,7 @@ Currently, `NONE` has the same effect as `ANY`, but this will change.

146

147### Updating golden files

148

149−To update the `expected` file for every test, do one of the following:

149+To update the `expected.out` file for every test, do one of the following:

150

151```

152# Using make

@@ -157,4 +157,4 @@ cabal test --test-options="--accept"

157stack test --test-arguments="--accept"

158```

159

160−"Accepted" tests are the ones that update the golden file. A test can still fail if the `run` script itself crashes.

160+"Accepted" tests are the ones that update the golden file. A test can still fail if the `run.sh` script itself crashes.

test/TestData.hs+5−1

@@ -140,6 +140,8 @@ testFamiliesData = [

140 , ( 9, C_CG )

141 , ( 10, NODE_CG )

142 , ( 11, NODE_CG )

143+ , ( 12, NODE_CG )

144+ , ( 13, C_CG )

143 ]),

145 ]),

144 ("folding", "Folding",

146 ("folding", "Folding",

145 [ ( 1, ANY )]),

147 [ ( 1, ANY )]),

@@ -182,7 +184,9 @@ testFamiliesData = [

182-- ( 5, ANY ),

184-- ( 5, ANY ),

183 ( 6, ANY ),

185 ( 6, ANY ),

184 ( 7, ANY ),

186 ( 7, ANY ),

185− ( 8, ANY )]),

187+ ( 8, ANY ),

188+-- ( 9, ANY ),

189+ ( 10, ANY )]),

186 ("interpret", "Interpret",

190 ("interpret", "Interpret",

187 [ ( 1, ANY ),

191 [ ( 1, ANY ),

188 ( 2, ANY ),

192 ( 2, ANY ),

test/TestRun.hs+22−16

This diff is too big to show here.

test/base001/expected → test/base001/expected.outrenamed

The content is the same.

test/base001/run → test/base001/run.shrenamed+1−1

This diff is too big to show here.

test/basic001/expected → test/basic001/expected.outrenamed

The content is the same.

test/basic001/run → test/basic001/run.shrenamed

Only the mode changed.

test/basic002/expected → test/basic002/expected.outrenamed

The content is the same.

test/basic002/run → test/basic002/run.shrenamed

Only the mode changed.

test/basic003/expected → test/basic003/expected.outrenamed

The content is the same.

test/basic003/run → test/basic003/run.shrenamed

Only the mode changed.

test/basic004/expected → test/basic004/expected.outrenamed

The content is the same.

test/basic004/run → test/basic004/run.shrenamed

Only the mode changed.

test/basic005/expected → test/basic005/expected.outrenamed

The content is the same.

test/basic005/run → test/basic005/run.shrenamed

Only the mode changed.

test/basic006/expected → test/basic006/expected.outrenamed

The content is the same.

test/basic006/run → test/basic006/run.shrenamed

Only the mode changed.

test/basic007/expected → test/basic007/expected.outrenamed

The content is the same.

test/basic007/run → test/basic007/run.shrenamed

Only the mode changed.

test/basic008/expected → test/basic008/expected.outrenamed

The content is the same.

test/basic008/run → test/basic008/run.shrenamed

Only the mode changed.

test/basic009/expected → test/basic009/expected.outrenamed

The content is the same.

test/basic009/run → test/basic009/run.shrenamed

Only the mode changed.

test/basic010/expected → test/basic010/expected.outrenamed

The content is the same.

test/basic010/run → test/basic010/run.shrenamed

Only the mode changed.

test/basic011/expected → test/basic011/expected.outrenamed

The content is the same.

test/basic011/run → test/basic011/run.shrenamed

Only the mode changed.

test/basic012/expected → test/basic012/expected.outrenamed

The content is the same.

test/basic012/run → test/basic012/run.shrenamed

Only the mode changed.

test/basic013/expected → test/basic013/expected.outrenamed

The content is the same.

test/basic013/run → test/basic013/run.shrenamed

Only the mode changed.

test/basic014/expected → test/basic014/expected.outrenamed

The content is the same.

test/basic014/run → test/basic014/run.shrenamed

Only the mode changed.

test/basic015/expected → test/basic015/expected.outrenamed

The content is the same.

test/basic015/run → test/basic015/run.shrenamed

Only the mode changed.

test/basic016/expected → test/basic016/expected.outrenamed

The content is the same.

test/basic016/run → test/basic016/run.shrenamed

Only the mode changed.

test/basic017/expected → test/basic017/expected.outrenamed

The content is the same.

test/basic017/run → test/basic017/run.shrenamed

Only the mode changed.

test/basic018/expected → test/basic018/expected.outrenamed

The content is the same.

test/basic018/run → test/basic018/run.shrenamed

Only the mode changed.

test/basic019/expected → test/basic019/expected.outrenamed

The content is the same.

test/basic019/run → test/basic019/run.shrenamed

Only the mode changed.

test/basic020/expected → test/basic020/expected.outrenamed

The content is the same.

test/basic020/run → test/basic020/run.shrenamed

Only the mode changed.

test/basic021/expected → test/basic021/expected.outrenamed

The content is the same.

test/basic021/run → test/basic021/run.shrenamed

Only the mode changed.

test/basic022/expected → test/basic022/expected.outrenamed

The content is the same.

test/basic022/run → test/basic022/run.shrenamed

Only the mode changed.

test/basic023/expected → test/basic023/expected.outrenamed

The content is the same.

test/basic023/run → test/basic023/run.shrenamed

Only the mode changed.

test/basic024/expected → test/basic024/expected.outrenamed

The content is the same.

test/basic024/input → test/basic024/input.inrenamed

The content is the same.

test/basic024/run → test/basic024/run.shrenamed+1−1

This diff is too big to show here.

test/basic025/expected → test/basic025/expected.outrenamed

The content is the same.

test/basic025/input → test/basic025/input.inrenamed

The content is the same.

test/basic025/run → test/basic025/run.shrenamed+2−2

This diff is too big to show here.

test/basic026/expected → test/basic026/expected.outrenamed

The content is the same.

test/basic026/run → test/basic026/run.shrenamed

The content is the same.

test/bignum001/expected → test/bignum001/expected.outrenamed

The content is the same.

test/bignum001/run → test/bignum001/run.shrenamed

Only the mode changed.

test/bignum002/expected → test/bignum002/expected.outrenamed

The content is the same.

test/bignum002/run → test/bignum002/run.shrenamed

Only the mode changed.

test/bignum003/expected → test/bignum003/expected.outrenamed

The content is the same.

test/bignum003/run → test/bignum003/run.shrenamed

Only the mode changed.

test/bounded001/expected → test/bounded001/expected.outrenamed

The content is the same.

test/bounded001/run → test/bounded001/run.shrenamed

Only the mode changed.

test/buffer001/expected → test/buffer001/expected.outrenamed

The content is the same.

test/buffer001/run → test/buffer001/run.shrenamed

Only the mode changed.

test/buffer002/expected → test/buffer002/expected.outrenamed

The content is the same.

test/buffer002/run → test/buffer002/run.shrenamed

Only the mode changed.

test/contrib001/expected → test/contrib001/expected.outrenamed

The content is the same.

test/contrib001/run → test/contrib001/run.shrenamed

Only the mode changed.

test/corecords001/expected → test/corecords001/expected.outrenamed

The content is the same.

test/corecords001/run → test/corecords001/run.shrenamed

Only the mode changed.

test/corecords002/expected → test/corecords002/expected.outrenamed

The content is the same.

test/corecords002/run → test/corecords002/run.shrenamed

Only the mode changed.

test/delab001/expected → test/delab001/expected.outrenamed

The content is the same.

test/delab001/input → test/delab001/input.inrenamed

The content is the same.

test/delab001/run → test/delab001/run.shrenamed+1−1

This diff is too big to show here.

test/directives001/expected → test/directives001/expected.outrenamed

The content is the same.

test/directives001/run → test/directives001/run.shrenamed

Only the mode changed.

test/directives002/expected → test/directives002/expected.outrenamed

The content is the same.

test/directives002/run → test/directives002/run.shrenamed

The content is the same.

test/directives003/expected → test/directives003/expected.outrenamed

The content is the same.

test/directives003/run → test/directives003/run.shrenamed

Only the mode changed.

test/disambig002/expected → test/disambig002/expected.outrenamed

The content is the same.

test/disambig002/run → test/disambig002/run.shrenamed

Only the mode changed.

test/docs001/expected → test/docs001/expected.outrenamed+1−1

This diff is too big to show here.

test/docs001/input → test/docs001/input.inrenamed

The content is the same.

test/docs001/run → test/docs001/run.shrenamed+1−1

This diff is too big to show here.

test/docs002/expecteddeleted−12

This diff is too big to show here.

test/docs002/expected.outnew file+12

This diff is too big to show here.

test/docs002/input → test/docs002/input.inrenamed

The content is the same.

test/docs002/run → test/docs002/run.shrenamed+1−1

This diff is too big to show here.

test/docs003/expected → test/docs003/expected.outrenamed+3−1

This diff is too big to show here.

test/docs003/input → test/docs003/input.inrenamed

The content is the same.

test/docs003/run → test/docs003/run.shrenamed+1−1

This diff is too big to show here.

test/docs004/expected → test/docs004/expected.outrenamed+3−3

This diff is too big to show here.

test/docs004/input → test/docs004/input.inrenamed

The content is the same.

test/docs004/run → test/docs004/run.shrenamed+1−1

This diff is too big to show here.

test/docs005/expected → test/docs005/expected.outrenamed+3−1

This diff is too big to show here.

test/docs005/input → test/docs005/input.inrenamed

The content is the same.

test/docs005/run → test/docs005/run.shrenamed+1−1

This diff is too big to show here.

test/docs006/expected → test/docs006/expected.outrenamed+1−1

This diff is too big to show here.

test/docs006/input → test/docs006/input.inrenamed

The content is the same.

test/docs006/run → test/docs006/run.shrenamed+1−1

This diff is too big to show here.

test/dsl001/expected → test/dsl001/expected.outrenamed

The content is the same.

test/dsl001/input → test/dsl001/input.inrenamed

The content is the same.

test/dsl001/run → test/dsl001/run.shrenamed+1−1

This diff is too big to show here.

test/dsl002/expected → test/dsl002/expected.outrenamed

The content is the same.

test/dsl002/run → test/dsl002/run.shrenamed

Only the mode changed.

test/dsl002/test → test/dsl002/test.inrenamed

The content is the same.

test/dsl002/test014.idr+1−1

This diff is too big to show here.

test/dsl003/expected → test/dsl003/expected.outrenamed

The content is the same.

test/dsl003/run → test/dsl003/run.shrenamed

Only the mode changed.

test/dsl004/expected → test/dsl004/expected.outrenamed

The content is the same.

test/dsl004/run → test/dsl004/run.shrenamed

Only the mode changed.

test/effects001/expected → test/effects001/expected.outrenamed

The content is the same.

test/effects001/run → test/effects001/run.shrenamed

Only the mode changed.

test/effects001/test021.idr+1−1

This diff is too big to show here.

test/effects001/testFile → test/effects001/testFile.inrenamed

The content is the same.

test/effects002/expected → test/effects002/expected.outrenamed

The content is the same.

test/effects002/run → test/effects002/run.shrenamed

Only the mode changed.

test/effects003/expected → test/effects003/expected.outrenamed

The content is the same.

test/effects003/input → test/effects003/input.inrenamed

The content is the same.

test/effects003/run → test/effects003/run.shrenamed+1−1

This diff is too big to show here.

test/effects004/expected → test/effects004/expected.outrenamed

The content is the same.

test/effects004/input → test/effects004/input.inrenamed

The content is the same.

test/effects004/run → test/effects004/run.shrenamed+1−1

This diff is too big to show here.

test/effects005/expected → test/effects005/expected.outrenamed

The content is the same.

test/effects005/run → test/effects005/run.shrenamed

Only the mode changed.

test/error001/expected → test/error001/expected.outrenamed

The content is the same.

test/error001/run → test/error001/run.shrenamed

Only the mode changed.

test/error002/expected → test/error002/expected.outrenamed

The content is the same.

test/error002/run → test/error002/run.shrenamed

Only the mode changed.

test/error003/expected → test/error003/expected.outrenamed

The content is the same.

test/error003/run → test/error003/run.shrenamed

Only the mode changed.

test/error004/expected → test/error004/expected.outrenamed

The content is the same.

test/error004/run → test/error004/run.shrenamed

Only the mode changed.

test/error005/expected → test/error005/expected.outrenamed

The content is the same.

test/error005/run → test/error005/run.shrenamed

Only the mode changed.

test/error006/WithPatsNoWith.idr+11

This diff is too big to show here.

test/error006/expecteddeleted−7

This diff is too big to show here.

test/error006/expected.outnew file+21

This diff is too big to show here.

test/error006/run → test/error006/run.shrenamed

Only the mode changed.

test/error007/expected → test/error007/expected.outrenamed

The content is the same.

test/error007/run → test/error007/run.shrenamed

Only the mode changed.

test/error008/expected → test/error008/expected.outrenamed

The content is the same.

test/error008/run → test/error008/run.shrenamed

Only the mode changed.

test/error009/expected → test/error009/expected.outrenamed

The content is the same.

test/error009/run → test/error009/run.shrenamed

Only the mode changed.

test/ffi001/expected → test/ffi001/expected.outrenamed

The content is the same.

test/ffi001/run → test/ffi001/run.shrenamed

Only the mode changed.

test/ffi002/expected → test/ffi002/expected.outrenamed

The content is the same.

test/ffi002/run → test/ffi002/run.shrenamed

Only the mode changed.

test/ffi003/expected → test/ffi003/expected.outrenamed

The content is the same.

test/ffi003/input → test/ffi003/input.inrenamed

The content is the same.

test/ffi003/run → test/ffi003/run.shrenamed+1−1

This diff is too big to show here.

test/ffi004/expected → test/ffi004/expected.outrenamed

The content is the same.

test/ffi004/run → test/ffi004/run.shrenamed

Only the mode changed.

test/ffi005/expected → test/ffi005/expected.outrenamed

The content is the same.

test/ffi005/run → test/ffi005/run.shrenamed

Only the mode changed.

test/ffi006/expected → test/ffi006/expected.outrenamed

The content is the same.

test/ffi006/run → test/ffi006/run.shrenamed

Only the mode changed.

test/ffi007/expected → test/ffi007/expected.outrenamed

The content is the same.

test/ffi007/run → test/ffi007/run.shrenamed

The content is the same.

test/ffi008/expected → test/ffi008/expected.outrenamed

The content is the same.

test/ffi008/run → test/ffi008/run.shrenamed

The content is the same.

test/ffi009/expected → test/ffi009/expected.outrenamed

The content is the same.

test/ffi009/run → test/ffi009/run.shrenamed

Only the mode changed.

test/ffi010/expected → test/ffi010/expected.outrenamed

The content is the same.

test/ffi010/run → test/ffi010/run.shrenamed

Only the mode changed.

test/ffi011/expected → test/ffi011/expected.outrenamed

The content is the same.

test/ffi011/ffi011 → test/ffi011/ffi011.jsrenamed

The content is the same.

test/ffi011/run → test/ffi011/run.shrenamed+1−1

This diff is too big to show here.

test/ffi012/expected.outnew file+1

This diff is too big to show here.

test/ffi012/ffi012.idrnew file+14

This diff is too big to show here.

test/ffi012/ffi012.jsnew file+3

This diff is too big to show here.

test/ffi012/run.shnew file+4

This diff is too big to show here.

test/ffi013/expected.outnew file+4

This diff is too big to show here.

test/ffi013/ffi013.idrnew file+5

This diff is too big to show here.

test/ffi013/run.shnew file+17

This diff is too big to show here.

test/folding001/expected → test/folding001/expected.outrenamed

The content is the same.

test/folding001/run → test/folding001/run.shrenamed

Only the mode changed.

test/idrisdoc001/expected → test/idrisdoc001/expected.outrenamed

The content is the same.

test/idrisdoc001/run → test/idrisdoc001/run.shrenamed

Only the mode changed.

test/idrisdoc002/expected → test/idrisdoc002/expected.outrenamed

The content is the same.

test/idrisdoc002/run → test/idrisdoc002/run.shrenamed

Only the mode changed.

test/idrisdoc003/expected → test/idrisdoc003/expected.outrenamed

The content is the same.

test/idrisdoc003/run → test/idrisdoc003/run.shrenamed

Only the mode changed.

test/idrisdoc004/expected → test/idrisdoc004/expected.outrenamed

The content is the same.

test/idrisdoc004/run → test/idrisdoc004/run.shrenamed

Only the mode changed.

test/idrisdoc005/expected → test/idrisdoc005/expected.outrenamed

The content is the same.

test/idrisdoc005/run → test/idrisdoc005/run.shrenamed

Only the mode changed.

test/idrisdoc006/expected → test/idrisdoc006/expected.outrenamed

The content is the same.

test/idrisdoc006/run → test/idrisdoc006/run.shrenamed

Only the mode changed.

test/idrisdoc007/expected → test/idrisdoc007/expected.outrenamed

The content is the same.

test/idrisdoc007/run → test/idrisdoc007/run.shrenamed

Only the mode changed.

test/idrisdoc008/expected → test/idrisdoc008/expected.outrenamed

The content is the same.

test/idrisdoc008/run → test/idrisdoc008/run.shrenamed

Only the mode changed.

test/idrisdoc009/expected → test/idrisdoc009/expected.outrenamed+2

This diff is too big to show here.

test/idrisdoc009/input → test/idrisdoc009/input.inrenamed

The content is the same.

test/idrisdoc009/run → test/idrisdoc009/run.shrenamed+1−1

This diff is too big to show here.

test/interactive001/expected → test/interactive001/expected.outrenamed

The content is the same.

test/interactive001/input → test/interactive001/input.inrenamed

The content is the same.

test/interactive001/run → test/interactive001/run.shrenamed+1−1

This diff is too big to show here.

test/interactive002/expected → test/interactive002/expected.outrenamed

The content is the same.

test/interactive002/input → test/interactive002/input.inrenamed

The content is the same.

test/interactive002/run → test/interactive002/run.shrenamed+1−1

This diff is too big to show here.

test/interactive003/expected → test/interactive003/expected.outrenamed

The content is the same.

test/interactive003/input → test/interactive003/input.inrenamed

The content is the same.

test/interactive003/run → test/interactive003/run.shrenamed+1−1

This diff is too big to show here.

test/interactive004/expected → test/interactive004/expected.outrenamed

The content is the same.

test/interactive004/input → test/interactive004/input.inrenamed

The content is the same.

test/interactive004/run → test/interactive004/run.shrenamed+1−1

This diff is too big to show here.

test/interactive005/expected → test/interactive005/expected.outrenamed+3−3

This diff is too big to show here.

test/interactive005/input → test/interactive005/input.inrenamed

The content is the same.

test/interactive005/run → test/interactive005/run.shrenamed+1−1

This diff is too big to show here.

test/interactive006/expected → test/interactive006/expected.outrenamed

The content is the same.

test/interactive006/input → test/interactive006/input.inrenamed

The content is the same.

test/interactive006/run → test/interactive006/run.shrenamed+1−1

This diff is too big to show here.

test/interactive007/expected → test/interactive007/expected.outrenamed

The content is the same.

test/interactive007/input → test/interactive007/input.inrenamed

The content is the same.

test/interactive007/run → test/interactive007/run.shrenamed+1−1

This diff is too big to show here.

test/interactive008/expected → test/interactive008/expected.outrenamed

The content is the same.

test/interactive008/input → test/interactive008/input.inrenamed

The content is the same.

test/interactive008/rundeleted−2

This diff is too big to show here.

test/interactive008/run.shnew file+2

This diff is too big to show here.

test/interactive009/expected → test/interactive009/expected.outrenamed

The content is the same.

test/interactive009/input → test/interactive009/input.inrenamed

The content is the same.

test/interactive009/run → test/interactive009/run.shrenamed+1−1

This diff is too big to show here.

test/interactive010/expected → test/interactive010/expected.outrenamed

The content is the same.

test/interactive010/input → test/interactive010/input.inrenamed

The content is the same.

test/interactive010/run → test/interactive010/run.shrenamed+1−1

This diff is too big to show here.

test/interactive011/expected → test/interactive011/expected.outrenamed

The content is the same.

test/interactive011/input → test/interactive011/input.inrenamed

The content is the same.

test/interactive011/run → test/interactive011/run.shrenamed+1−1

This diff is too big to show here.

test/interactive012/expected → test/interactive012/expected.outrenamed

The content is the same.

test/interactive012/input → test/interactive012/input.inrenamed

The content is the same.

test/interactive012/run → test/interactive012/run.shrenamed+1−1

This diff is too big to show here.

test/interactive013/expected → test/interactive013/expected.outrenamed

The content is the same.

test/interactive013/input → test/interactive013/input.inrenamed

The content is the same.

test/interactive013/run → test/interactive013/run.shrenamed+1−1

This diff is too big to show here.

test/interactive014/expected → test/interactive014/expected.outrenamed

The content is the same.

test/interactive014/input → test/interactive014/input.inrenamed

The content is the same.

test/interactive014/run → test/interactive014/run.shrenamed+1−1

This diff is too big to show here.

test/interactive015/expected → test/interactive015/expected.outrenamed

The content is the same.

test/interactive015/input → test/interactive015/input.inrenamed

The content is the same.

test/interactive015/run → test/interactive015/run.shrenamed+1−1

This diff is too big to show here.

test/interactive016/expected → test/interactive016/expected.outrenamed

The content is the same.

test/interactive016/input → test/interactive016/input.inrenamed

The content is the same.

test/interactive016/run → test/interactive016/run.shrenamed+1−1

This diff is too big to show here.

test/interactive017/expected → test/interactive017/expected.outrenamed

The content is the same.

test/interactive017/run → test/interactive017/run.shrenamed

Only the mode changed.

test/interactive018/expected → test/interactive018/expected.outrenamed

The content is the same.

test/interactive018/input → test/interactive018/input.inrenamed

The content is the same.

test/interactive018/rundeleted−3

This diff is too big to show here.

test/interactive018/run.shnew file+3

This diff is too big to show here.

test/interfaces001/expected → test/interfaces001/expected.outrenamed+3−2

This diff is too big to show here.

test/interfaces001/input → test/interfaces001/input.inrenamed

The content is the same.

test/interfaces001/run → test/interfaces001/run.shrenamed+1−1

This diff is too big to show here.

test/interfaces002/expected → test/interfaces002/expected.outrenamed

The content is the same.

test/interfaces002/run → test/interfaces002/run.shrenamed

Only the mode changed.

test/interfaces003/expected → test/interfaces003/expected.outrenamed

The content is the same.

test/interfaces003/run → test/interfaces003/run.shrenamed

Only the mode changed.

test/interfaces004/expected → test/interfaces004/expected.outrenamed

The content is the same.

test/interfaces004/run → test/interfaces004/run.shrenamed

Only the mode changed.

test/interfaces005/expected → test/interfaces005/expected.outrenamed

The content is the same.

test/interfaces005/run → test/interfaces005/run.shrenamed

Only the mode changed.

test/interfaces006/expected → test/interfaces006/expected.outrenamed

The content is the same.

test/interfaces006/run → test/interfaces006/run.shrenamed

Only the mode changed.

test/interfaces007/expected → test/interfaces007/expected.outrenamed

The content is the same.

test/interfaces007/run → test/interfaces007/run.shrenamed

Only the mode changed.

test/interfaces008/expected → test/interfaces008/expected.outrenamed

The content is the same.

test/interfaces008/run → test/interfaces008/run.shrenamed

Only the mode changed.

test/interfaces009/expected → test/interfaces009/expected.outrenamed

The content is the same.

test/interfaces009/run → test/interfaces009/run.shrenamed

Only the mode changed.

test/meta001/expected → test/interfaces010/expected.outrenamed

The content is the same.

test/interfaces010/interfaces010.idrnew file+12

This diff is too big to show here.

test/interfaces010/run.shnew file+3

This diff is too big to show here.

test/interpret001/expected → test/interpret001/expected.outrenamed

The content is the same.

test/interpret001/input → test/interpret001/input.inrenamed

The content is the same.

test/interpret001/run → test/interpret001/run.shrenamed+1−1

This diff is too big to show here.

test/interpret002/expected → test/interpret002/expected.outrenamed

The content is the same.

test/interpret002/input → test/interpret002/input.inrenamed

The content is the same.

test/interpret002/run → test/interpret002/run.shrenamed+1−1

This diff is too big to show here.

test/interpret003/expected → test/interpret003/expected.outrenamed

The content is the same.

test/interpret003/input → test/interpret003/input.inrenamed

The content is the same.

test/interpret003/run → test/interpret003/run.shrenamed+1−1

This diff is too big to show here.

test/io001/expected → test/io001/expected.outrenamed

The content is the same.

test/io001/run → test/io001/run.shrenamed

Only the mode changed.

test/io002/expected → test/io002/expected.outrenamed

The content is the same.

test/io002/run → test/io002/run.shrenamed

Only the mode changed.

test/io003/expected → test/io003/expected.outrenamed

The content is the same.

test/io003/run → test/io003/run.shrenamed

Only the mode changed.

test/layout001/expected → test/layout001/expected.outrenamed

The content is the same.

test/layout001/run → test/layout001/run.shrenamed

Only the mode changed.

test/literate001/expected → test/literate001/expected.outrenamed

The content is the same.

test/literate001/run → test/literate001/run.shrenamed

Only the mode changed.

test/pkg002/expected → test/meta001/expected.outrenamed

The content is the same.

test/meta001/run → test/meta001/run.shrenamed

Only the mode changed.

test/meta002/expected → test/meta002/expected.outrenamed

The content is the same.

test/meta002/run → test/meta002/run.shrenamed

Only the mode changed.

test/meta003/expected → test/meta003/expected.outrenamed

The content is the same.

test/meta003/run → test/meta003/run.shrenamed

Only the mode changed.

test/meta004/expected → test/meta004/expected.outrenamed

The content is the same.

test/meta004/run → test/meta004/run.shrenamed

Only the mode changed.

test/pkg001/expected → test/pkg001/expected.outrenamed

The content is the same.

test/pkg001/run → test/pkg001/run.shrenamed

Only the mode changed.

test/pkg001/test-pkg.ipkg+3−3

This diff is too big to show here.

test/pkg003/expected → test/pkg002/expected.outrenamed

The content is the same.

test/pkg002/run → test/pkg002/run.shrenamed

Only the mode changed.

test/proof004/expected → test/pkg003/expected.outrenamed

The content is the same.

test/pkg003/run → test/pkg003/run.shrenamed

Only the mode changed.

test/pkg004/expected → test/pkg004/expected.outrenamed

The content is the same.

test/pkg004/run → test/pkg004/run.shrenamed

Only the mode changed.

test/pkg005/expected → test/pkg005/expected.outrenamed

The content is the same.

test/pkg005/run → test/pkg005/run.shrenamed

Only the mode changed.

test/pkg006/expected → test/pkg006/expected.outrenamed

The content is the same.

test/pkg006/run → test/pkg006/run.shrenamed

Only the mode changed.

test/pkg007/expected → test/pkg007/expected.outrenamed

The content is the same.

test/pkg007/input → test/pkg007/input.inrenamed

The content is the same.

test/pkg007/run → test/pkg007/run.shrenamed+1−1

This diff is too big to show here.

test/pkg008/expected → test/pkg008/expected.outrenamed+1−3

This diff is too big to show here.

test/pkg008/maths.ipkg+1

This diff is too big to show here.

test/pkg008/run → test/pkg008/run.shrenamed

Only the mode changed.

test/pkg009/expected → test/pkg009/expected.outrenamed

The content is the same.

test/pkg009/run → test/pkg009/run.shrenamed

Only the mode changed.

test/pkg010/expecteddeleted−28

This diff is too big to show here.

test/pkg010/expected.outnew file+29

This diff is too big to show here.

test/pkg010/run → test/pkg010/run.shrenamed

Only the mode changed.

test/prelude001/expected → test/prelude001/expected.outrenamed

The content is the same.

test/prelude001/run → test/prelude001/run.shrenamed

Only the mode changed.

test/primitives001/expected → test/primitives001/expected.outrenamed

The content is the same.

test/primitives001/input → test/primitives001/input.inrenamed

The content is the same.

test/primitives001/run → test/primitives001/run.shrenamed+1−1

This diff is too big to show here.

test/primitives002/expected → test/primitives002/expected.outrenamed

The content is the same.

test/primitives002/run → test/primitives002/run.shrenamed

Only the mode changed.

test/primitives003/expected → test/primitives003/expected.outrenamed

The content is the same.

test/primitives003/run → test/primitives003/run.shrenamed

Only the mode changed.

test/primitives004-disabled/expected → test/primitives004-disabled/expected.outrenamed

The content is the same.

test/primitives004-disabled/run → test/primitives004-disabled/run.shrenamed

Only the mode changed.

test/primitives005/expected → test/primitives005/expected.outrenamed

The content is the same.

test/primitives005/run → test/primitives005/run.shrenamed

The content is the same.

test/primitives006/expected → test/primitives006/expected.outrenamed

The content is the same.

test/primitives006/run → test/primitives006/run.shrenamed

Only the mode changed.

test/proof001/expected → test/proof001/expected.outrenamed

The content is the same.

test/proof001/run → test/proof001/run.shrenamed

Only the mode changed.

test/proof002/expected → test/proof002/expected.outrenamed

The content is the same.

test/proof002/run → test/proof002/run.shrenamed

Only the mode changed.

test/proof003/expected → test/proof003/expected.outrenamed

The content is the same.

test/proof003/run → test/proof003/run.shrenamed

Only the mode changed.

test/proof005/expected → test/proof004/expected.outrenamed

The content is the same.

test/proof004/run → test/proof004/run.shrenamed

Only the mode changed.

test/proof006/expected → test/proof005/expected.outrenamed

The content is the same.

test/proof005/run → test/proof005/run.shrenamed

Only the mode changed.

test/proofsearch001/expected → test/proof006/expected.outrenamed

The content is the same.

test/proof006/run → test/proof006/run.shrenamed

Only the mode changed.

test/proof007/expected → test/proof007/expected.outrenamed

The content is the same.

test/proof007/run → test/proof007/run.shrenamed

Only the mode changed.

test/proof008/expected → test/proof008/expected.outrenamed

The content is the same.

test/proof008/run → test/proof008/run.shrenamed

Only the mode changed.

test/proof009/expected → test/proof009/expected.outrenamed

The content is the same.

test/proof009/input → test/proof009/input.inrenamed

The content is the same.

test/proof009/run → test/proof009/run.shrenamed+1−1

This diff is too big to show here.

test/proof010/expected → test/proof010/expected.outrenamed

The content is the same.

test/proof010/run → test/proof010/run.shrenamed

Only the mode changed.

test/proof011/expected → test/proof011/expected.outrenamed

The content is the same.

test/proof011/run → test/proof011/run.shrenamed

Only the mode changed.

test/proofsearch002/expected → test/proofsearch001/expected.outrenamed

The content is the same.

test/proofsearch001/run → test/proofsearch001/run.shrenamed

Only the mode changed.

test/proofsearch003/expected → test/proofsearch002/expected.outrenamed

The content is the same.

test/proofsearch002/run → test/proofsearch002/run.shrenamed

Only the mode changed.

test/pruviloj001/expected → test/proofsearch003/expected.outrenamed

The content is the same.

test/proofsearch003/run → test/proofsearch003/run.shrenamed

Only the mode changed.

test/quasiquote005/expected → test/pruviloj001/expected.outrenamed

The content is the same.

test/pruviloj001/run → test/pruviloj001/run.shrenamed

Only the mode changed.

test/quasiquote001/expected → test/quasiquote001/expected.outrenamed

The content is the same.

test/quasiquote001/run → test/quasiquote001/run.shrenamed

Only the mode changed.

test/quasiquote002/expected → test/quasiquote002/expected.outrenamed

The content is the same.

test/quasiquote002/run → test/quasiquote002/run.shrenamed

Only the mode changed.

test/quasiquote003/expected → test/quasiquote003/expected.outrenamed

The content is the same.

test/quasiquote003/run → test/quasiquote003/run.shrenamed

Only the mode changed.

test/quasiquote004/expected → test/quasiquote004/expected.outrenamed

The content is the same.

test/quasiquote004/run → test/quasiquote004/run.shrenamed

Only the mode changed.

test/reg048/expected → test/quasiquote005/expected.outrenamed

The content is the same.

test/quasiquote005/run → test/quasiquote005/run.shrenamed

Only the mode changed.

test/quasiquote006/expected → test/quasiquote006/expected.outrenamed

The content is the same.

test/quasiquote006/run → test/quasiquote006/run.shrenamed

Only the mode changed.

test/records001/expected → test/records001/expected.outrenamed

The content is the same.

test/records001/run → test/records001/run.shrenamed

Only the mode changed.

test/records002/expected → test/records002/expected.outrenamed

The content is the same.

test/records002/run → test/records002/run.shrenamed

Only the mode changed.

test/records003/expected → test/records003/expected.outrenamed

The content is the same.

test/records003/run → test/records003/run.shrenamed

Only the mode changed.

test/records004/expected → test/records004/expected.outrenamed

The content is the same.

test/records004/run → test/records004/run.shrenamed

Only the mode changed.

test/records005/expected → test/records005/expected.outrenamed

The content is the same.

test/records005/run → test/records005/run.shrenamed

Only the mode changed.

test/reg001/expected → test/reg001/expected.outrenamed

The content is the same.

test/reg001/run → test/reg001/run.shrenamed

Only the mode changed.

test/reg002/expected → test/reg002/expected.outrenamed

The content is the same.

test/reg002/run → test/reg002/run.shrenamed

Only the mode changed.

test/reg004/expected → test/reg004/expected.outrenamed

The content is the same.

test/reg004/run → test/reg004/run.shrenamed

Only the mode changed.

test/reg005/expected → test/reg005/expected.outrenamed

The content is the same.

test/reg005/run → test/reg005/run.shrenamed

Only the mode changed.

test/reg007/expected → test/reg007/expected.outrenamed

The content is the same.

test/reg007/run → test/reg007/run.shrenamed

Only the mode changed.

test/reg013/expected → test/reg013/expected.outrenamed

The content is the same.

test/reg013/run → test/reg013/run.shrenamed

Only the mode changed.

test/reg016/expected → test/reg016/expected.outrenamed

The content is the same.

test/reg016/run → test/reg016/run.shrenamed

Only the mode changed.

test/reg017/expected → test/reg017/expected.outrenamed

The content is the same.

test/reg017/run → test/reg017/run.shrenamed

Only the mode changed.

test/reg020/expected → test/reg020/expected.outrenamed

The content is the same.

test/reg020/run → test/reg020/run.shrenamed

Only the mode changed.

test/reg024/expected → test/reg024/expected.outrenamed

The content is the same.

test/reg024/run → test/reg024/run.shrenamed

Only the mode changed.

test/reg025/expected → test/reg025/expected.outrenamed

The content is the same.

test/reg025/run → test/reg025/run.shrenamed

Only the mode changed.

test/reg027/expected → test/reg027/expected.outrenamed

The content is the same.

test/reg027/run → test/reg027/run.shrenamed

Only the mode changed.

test/reg029/expected → test/reg029/expected.outrenamed

The content is the same.

test/reg029/run → test/reg029/run.shrenamed

Only the mode changed.

test/reg031/expected → test/reg031/expected.outrenamed

The content is the same.

test/reg031/run → test/reg031/run.shrenamed

Only the mode changed.

test/reg032/expected → test/reg032/expected.outrenamed

The content is the same.

test/reg032/run → test/reg032/run.shrenamed

Only the mode changed.

test/reg039/expected → test/reg039/expected.outrenamed

The content is the same.

test/reg039/run → test/reg039/run.shrenamed

Only the mode changed.

test/reg040/expected → test/reg040/expected.outrenamed

The content is the same.

test/reg040/run → test/reg040/run.shrenamed

Only the mode changed.

test/reg041/expected → test/reg041/expected.outrenamed

The content is the same.

test/reg041/run → test/reg041/run.shrenamed

Only the mode changed.

test/reg042/expected → test/reg042/expected.outrenamed

The content is the same.

test/reg042/run → test/reg042/run.shrenamed

Only the mode changed.

test/reg045/expected → test/reg045/expected.outrenamed

The content is the same.

test/reg045/run → test/reg045/run.shrenamed

Only the mode changed.

test/reg051-disabled/expected → test/reg048/expected.outrenamed

The content is the same.

test/reg048/run → test/reg048/run.shrenamed

Only the mode changed.

test/reg076/input → test/reg051-disabled/expected.outrenamed

The content is the same.

test/reg051-disabled/run → test/reg051-disabled/run.shrenamed

Only the mode changed.

test/reg052/expected → test/reg052/expected.outrenamed

The content is the same.

test/reg052/run → test/reg052/run.shrenamed

Only the mode changed.

test/reg067/expected → test/reg067/expected.outrenamed

The content is the same.

test/reg067/run → test/reg067/run.shrenamed

Only the mode changed.

test/reg075/expected → test/reg075/expected.outrenamed

The content is the same.

test/reg075/input → test/reg075/input.inrenamed

The content is the same.

test/reg075/rundeleted−3

This diff is too big to show here.

test/reg075/run.shnew file+3

This diff is too big to show here.

test/reg076/expected → test/reg076/expected.outrenamed

The content is the same.

test/reg077/expected → test/reg076/input.inrenamed

The content is the same.

test/reg076/run → test/reg076/run.shrenamed

Only the mode changed.

test/regression001/expected → test/reg077/expected.outrenamed

The content is the same.

test/reg077/run → test/reg077/run.shrenamed

Only the mode changed.

test/tactics001/expected → test/regression001/expected.outrenamed

The content is the same.

test/regression001/run → test/regression001/run.shrenamed

Only the mode changed.

test/regression002/expected → test/regression002/expected.outrenamed

The content is the same.

test/regression002/run → test/regression002/run.shrenamed

Only the mode changed.

test/regression003/expected → test/regression003/expected.outrenamed

The content is the same.

test/regression003/run → test/regression003/run.shrenamed

Only the mode changed.

test/sourceLocation001/expected → test/sourceLocation001/expected.outrenamed

The content is the same.

test/sourceLocation001/run → test/sourceLocation001/run.shrenamed

Only the mode changed.

test/st001/expected → test/st001/expected.outrenamed

The content is the same.

test/st001/run → test/st001/run.shrenamed

Only the mode changed.

test/st001/test001.idr+1−1

This diff is too big to show here.

test/st001/testFile → test/st001/testFile.inrenamed

The content is the same.

test/st002/expected → test/st002/expected.outrenamed

The content is the same.

test/st002/run → test/st002/run.shrenamed

Only the mode changed.

test/st002/test002.idr+1−1

This diff is too big to show here.

test/st002/testFile → test/st002/testFile.inrenamed

The content is the same.

test/st003/expected → test/st003/expected.outrenamed

The content is the same.

test/st003/run → test/st003/run.shrenamed

Only the mode changed.

test/st003/test003.idr+1−1

This diff is too big to show here.

test/st003/testFile → test/st003/testFile.inrenamed

The content is the same.

test/st004/expected → test/st004/expected.outrenamed

The content is the same.

test/st004/run → test/st004/run.shrenamed

Only the mode changed.

test/st005/expected → test/st005/expected.outrenamed

The content is the same.

test/st005/run → test/st005/run.shrenamed

Only the mode changed.

test/st006/expected → test/st006/expected.outrenamed

The content is the same.

test/st006/run → test/st006/run.shrenamed

Only the mode changed.

test/st007/expected → test/st007/expected.outrenamed

The content is the same.

test/st007/run → test/st007/run.shrenamed

Only the mode changed.

test/sugar001/expected → test/sugar001/expected.outrenamed

The content is the same.

test/sugar001/run → test/sugar001/run.shrenamed

Only the mode changed.

test/sugar002/expected → test/sugar002/expected.outrenamed

The content is the same.

test/sugar002/run → test/sugar002/run.shrenamed

Only the mode changed.

test/sugar003/expected → test/sugar003/expected.outrenamed

The content is the same.

test/sugar003/run → test/sugar003/run.shrenamed

Only the mode changed.

test/sugar004/expected → test/sugar004/expected.outrenamed

The content is the same.

test/sugar004/run → test/sugar004/run.shrenamed

Only the mode changed.

test/sugar005/expected → test/sugar005/expected.outrenamed

The content is the same.

test/sugar005/run → test/sugar005/run.shrenamed

Only the mode changed.

test/syntax001/expected → test/syntax001/expected.outrenamed

The content is the same.

test/syntax001/run → test/syntax001/run.shrenamed

Only the mode changed.

test/syntax002/expected → test/syntax002/expected.outrenamed

The content is the same.

test/syntax002/run → test/syntax002/run.shrenamed

Only the mode changed.

test/tutorial001/expected → test/tactics001/expected.outrenamed

The content is the same.

test/tactics001/run → test/tactics001/run.shrenamed

Only the mode changed.

test/totality001/expected → test/totality001/expected.outrenamed

The content is the same.

test/totality001/run → test/totality001/run.shrenamed

Only the mode changed.

test/totality002/expected → test/totality002/expected.outrenamed

The content is the same.

test/totality002/run → test/totality002/run.shrenamed

Only the mode changed.

test/totality003/expected → test/totality003/expected.outrenamed

The content is the same.

test/totality003/run → test/totality003/run.shrenamed

Only the mode changed.

test/totality004/expected → test/totality004/expected.outrenamed

The content is the same.

test/totality004/run → test/totality004/run.shrenamed

Only the mode changed.

test/totality005/expected → test/totality005/expected.outrenamed

The content is the same.

test/totality005/run → test/totality005/run.shrenamed

Only the mode changed.

test/totality006/expected → test/totality006/expected.outrenamed

The content is the same.

test/totality006/run → test/totality006/run.shrenamed

Only the mode changed.

test/totality007/expected → test/totality007/expected.outrenamed

The content is the same.

test/totality007/run → test/totality007/run.shrenamed

Only the mode changed.

test/totality008/expected → test/totality008/expected.outrenamed

The content is the same.

test/totality008/run → test/totality008/run.shrenamed

Only the mode changed.

test/totality009/expected → test/totality009/expected.outrenamed

The content is the same.

test/totality009/run → test/totality009/run.shrenamed

Only the mode changed.

test/totality010/expected → test/totality010/expected.outrenamed

The content is the same.

test/totality010/run → test/totality010/run.shrenamed

Only the mode changed.

test/totality011/expected → test/totality011/expected.outrenamed

The content is the same.

test/totality011/run → test/totality011/run.shrenamed

Only the mode changed.

test/totality012/expected → test/totality012/expected.outrenamed

The content is the same.

test/totality012/run → test/totality012/run.shrenamed

Only the mode changed.

test/totality013/expected → test/totality013/expected.outrenamed

The content is the same.

test/totality013/run → test/totality013/run.shrenamed

Only the mode changed.

test/totality014/expected → test/totality014/expected.outrenamed

The content is the same.

test/totality014/run → test/totality014/run.shrenamed

Only the mode changed.

test/totality015/expected → test/totality015/expected.outrenamed

The content is the same.

test/totality015/run → test/totality015/run.shrenamed

Only the mode changed.

test/totality016/expected → test/totality016/expected.outrenamed

The content is the same.

test/totality016/run → test/totality016/run.shrenamed

Only the mode changed.

test/totality017/expected → test/totality017/expected.outrenamed

The content is the same.

test/totality017/run → test/totality017/run.shrenamed

Only the mode changed.

test/totality018/expected → test/totality018/expected.outrenamed

The content is the same.

test/totality018/run → test/totality018/run.shrenamed

Only the mode changed.

test/totality019/expected → test/totality019/expected.outrenamed

The content is the same.

test/totality019/run → test/totality019/run.shrenamed

Only the mode changed.

test/totality020/expected → test/totality020/expected.outrenamed

The content is the same.

test/totality020/run → test/totality020/run.shrenamed

Only the mode changed.

test/totality021/expected → test/totality021/expected.outrenamed

The content is the same.

test/totality021/run → test/totality021/run.shrenamed

Only the mode changed.

test/totality022/expected → test/totality022/expected.outrenamed

The content is the same.

test/totality022/run → test/totality022/run.shrenamed

Only the mode changed.

test/totality023/expected → test/totality023/expected.outrenamed

The content is the same.

test/totality023/run → test/totality023/run.shrenamed

Only the mode changed.

test/totality024/expected → test/totality024/expected.outrenamed

The content is the same.

test/totality024/run → test/totality024/run.shrenamed

Only the mode changed.

test/totality025/expected → test/totality025/expected.outrenamed

The content is the same.

test/totality025/run → test/totality025/run.shrenamed

Only the mode changed.

test/totality026/expected → test/totality026/expected.outrenamed

The content is the same.

test/totality026/run → test/totality026/run.shrenamed

Only the mode changed.

test/tutorial003/expected → test/tutorial001/expected.outrenamed

The content is the same.

test/tutorial001/run → test/tutorial001/run.shrenamed

Only the mode changed.

test/tutorial002/expected → test/tutorial002/expected.outrenamed

The content is the same.

test/tutorial002/run → test/tutorial002/run.shrenamed

Only the mode changed.

test/tutorial005/expected → test/tutorial003/expected.outrenamed

The content is the same.

test/tutorial003/run → test/tutorial003/run.shrenamed

Only the mode changed.

test/tutorial004/expected → test/tutorial004/expected.outrenamed

The content is the same.

test/tutorial004/run → test/tutorial004/run.shrenamed

Only the mode changed.

test/tutorial005/expected.outnew file

No changes to the content.

test/tutorial005/run → test/tutorial005/run.shrenamed

Only the mode changed.

test/tutorial006/expected → test/tutorial006/expected.outrenamed

The content is the same.

test/tutorial006/run → test/tutorial006/run.shrenamed

Only the mode changed.

test/tutorial007/expected → test/tutorial007/expected.outrenamed

The content is the same.

test/tutorial007/run → test/tutorial007/run.shrenamed

Only the mode changed.

test/unique001/expected → test/unique001/expected.outrenamed

The content is the same.

test/unique001/run → test/unique001/run.shrenamed

Only the mode changed.

test/unique004/expected → test/unique004/expected.outrenamed

The content is the same.

test/unique004/run → test/unique004/run.shrenamed

Only the mode changed.

test/universes001/expected → test/universes001/expected.outrenamed

The content is the same.

test/universes001/run → test/universes001/run.shrenamed

Only the mode changed.

test/universes002/expected → test/universes002/expected.outrenamed

The content is the same.

test/universes002/run → test/universes002/run.shrenamed

Only the mode changed.

test/views001/expected → test/views001/expected.outrenamed

The content is the same.

test/views001/run → test/views001/run.shrenamed

Only the mode changed.

test/views002/expected → test/views002/expected.outrenamed

The content is the same.

test/views002/run → test/views002/run.shrenamed

Only the mode changed.

test/views003/expected → test/views003/expected.outrenamed

The content is the same.

test/views003/run → test/views003/run.shrenamed

Only the mode changed.