diff --git a/glang/coq.go b/glang/coq.go index 4e72fee..f7f6161 100644 --- a/glang/coq.go +++ b/glang/coq.go @@ -544,6 +544,8 @@ const ( OpLessEqZ OpGreaterEqZ + OpGallinaAppend + OpAppend OpMul OpQuot @@ -565,18 +567,19 @@ type BinaryExpr struct { func (be BinaryExpr) Coq(needs_paren bool) string { coqBinOp := map[BinOp]string{ - OpPlus: "+", - OpMinus: "-", - OpEquals: "=", - OpNotEquals: "≠", - OpAppend: "+", - OpMul: "*", - OpQuot: "`quot`", - OpRem: "`rem`", - OpLessThan: "<", - OpGreaterThan: ">", - OpLessEq: "≤", - OpGreaterEq: "≥", + OpPlus: "+", + OpMinus: "-", + OpEquals: "=", + OpNotEquals: "≠", + OpGallinaAppend: "++", + OpAppend: "+", + OpMul: "*", + OpQuot: "`quot`", + OpRem: "`rem`", + OpLessThan: "<", + OpGreaterThan: ">", + OpLessEq: "≤", + OpGreaterEq: "≥", OpEqualsZ: "=?", OpLessThanZ: "