https://github.com/EasyCrypt/easycrypt
Revision 64c24ed6d2c0b485818e0ae76c4be0ebde0e628a authored by Benjamin Gregoire on 26 April 2018, 18:31:53 UTC, committed by Benjamin Gregoire on 26 April 2018, 18:31:53 UTC
The following is now possible:
type t, t', u, u', v, v'.
module type OT = {
proc f(_: t): t'
proc g1(_: t): t'
}.
module type MT (O : OT) = {
include OT
proc g(_: u): u'
}.
module type MT1 (O : OT) = {
include OT [f]
proc g(_: u): u'
}.
module type MT2 (O : OT) = {
include OT [f] {O.f}
proc g(_: u): u'
}.
module type MT3 (O : OT) = {
include OT [f] {O.g1}
proc g(_: u): u'
}.
module ((M : MT1):MT2) (O : OT) = {
proc f = O.f
proc g(x: u): u' = {
return witness;
}
}.
module M1 = {
proc f () : unit = { }
proc g () : unit = { }
}.
module M2 = {
include M1
}.
module M3 = {
include M1 [f]
}.
module M4 = {
include M1 [+f]
}.
module M5 = {
include M1 [-f]
}.
module F (O:OT) = {
proc f1 () = {}
}.
module G (O:OT) = {
include O
include F(O)
}.
module G1 (O:OT) = {
include O [-f]
include F(O)
}.
1 parent 7f33e2a
Tip revision: 64c24ed6d2c0b485818e0ae76c4be0ebde0e628a authored by Benjamin Gregoire on 26 April 2018, 18:31:53 UTC
improve "include" in module type and module.
improve "include" in module type and module.
Tip revision: 64c24ed
| File | Mode | Size |
|---|---|---|
| config | ||
| examples | ||
| lint | ||
| scripts | ||
| src | ||
| system | ||
| theories | ||
| .dir-locals.el | -rw-r--r-- | 285 bytes |
| .gitignore | -rw-r--r-- | 504 bytes |
| .merlin | -rw-r--r-- | 230 bytes |
| .travis.yml | -rw-r--r-- | 2.0 KB |
| COPYRIGHT | -rw-r--r-- | 581 bytes |
| COPYRIGHT.yaml | -rw-r--r-- | 596 bytes |
| MANIFEST | -rw-r--r-- | 690 bytes |
| Makefile | -rw-r--r-- | 5.0 KB |
| Makefile.system | -rw-r--r-- | 478 bytes |
| README.md | -rw-r--r-- | 6.1 KB |
| _tags | -rw-r--r-- | 791 bytes |
| myocamlbuild.ml | -rw-r--r-- | 2.3 KB |
Computing file changes ...
