Skip to content

Commit

Permalink
Use the new function
Browse files Browse the repository at this point in the history
  • Loading branch information
huynhtrankhanh authored Nov 22, 2023
1 parent dfb460a commit 1444271
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions compiler/coqCodegen.ts
Original file line number Diff line number Diff line change
Expand Up @@ -46,7 +46,7 @@ export const coqCodegen = ({ environment, procedures }: CoqCPAST): string => {
const coqType = itemTypes
.map((x) => (x === 'bool' ? 'bool' : 'Z'))
.join(' * ')
return `if decide (name = "${name}") then ${coqType} else `
return `if decide (name = ${getCoqString(name)}) then ${coqType} else `
})
.join('') +
'False'
Expand All @@ -68,7 +68,7 @@ export const coqCodegen = ({ environment, procedures }: CoqCPAST): string => {
.join(', ') +
')'
const list = 'repeat ' + value + ' ' + rawLength
return `destruct (decide (name = "${name}")) as [h |]; [(rewrite h; simpl; exact (repeat ${value} ${rawLength})) |]; `
return `destruct (decide (name = ${getCoqString(name)})) as [h |]; [(rewrite h; simpl; exact (repeat ${value} ${rawLength})) |]; `
}
)
.join('') +
Expand Down

0 comments on commit 1444271

Please sign in to comment.