FStarLang/FStar

Ghost to Pure promotion doesn't seem to work with conditionals

Open

#610 创建于 2016年8月12日

在 GitHub 查看
 (3 评论) (0 反应) (1 负责人)F* (258 fork)auto 404
good first issuekind/bug

仓库指标

Star
 (3,068 star)
PR 合并指标
 (PR 指标待抓取)

描述

module Test

assume val f : int -> GTot bool

let works (unit) : Tot int = 
  let _ = 
     let y = f 0 in 
     assert (y ==> 0=0);
     assert (not y ==> 1=1) in
  0

let fails (unit) : Tot int = 
  let _ = 
     let y = f 0 in 
     if y
     then assert (0=0)
     else assert (1=1) in
  0

贡献者指南