@@ -23,7 +23,7 @@ syn match idrisType "\<\([A-Z][a-zA-Z0-9_]*\|_|_\)\>"
2323syn match idrisLineComment "---*\([^-!#$%&\*\+./<=>\?@\\^|~].*\)\?$"
2424syn match idrisMetaVar "?[a-z][A-Za-z0-9_]\+"
2525syn match idrisLink "%\(lib\|link\|include\)"
26−syn match idrisDirective "%\(access\|default\)"
26+syn match idrisDirective "%\(access\|default\|assert_total\)"
2727syn region idrisString start=+"+ skip=+\\\\\|\\"+ end=+"+
2828syn region idrisBlockComment start="{-" end="-}"
2929syn region idrisProofBlock start="\(default\s\+\)\?proof *{" end="}" contains=idrisTactic