Merge branch 'minimum-excludant-other-versions' into 'master'
[why3.git] / examples / split_string / split_string.drv
blob3b60c7937eda1856976b9a493feab331301e84ab
1 module split_string.SplitStringOCaml
2   syntax type char "char"
3   syntax val (=) "%1 = %2"   prec 11 11 10
4   syntax type string_ "string"
5   syntax val length "String.length %1" prec 4 3
6   syntax val ([]) "%1.[%2]" prec 2 1 18
7   syntax val sub "String.sub %1 %2 (%3 - %2)" prec 4 3
8   syntax val sub "String.sub %1 %2 (%3 - %2)" prec 4 3
9 end