Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Antiquotations broken badly #3192

Open
mtzguido opened this issue Jan 18, 2024 · 0 comments
Open

Antiquotations broken badly #3192

mtzguido opened this issue Jan 18, 2024 · 0 comments
Assignees

Comments

@mtzguido
Copy link
Member

module VerifiedTransform

open FStar.Tactics.V2
open FStar.Reflection.Typing

let t_unit = `()

let mk_eq2 (ty t1 t2 : term) : Tot term =
  (`squash (eq2 #(`#ty) (`#t1) (`#t2)))

let valid (g:env) (phi:term) : prop =
  squash (typing g t_unit (E_Total, mk_squash phi))

let test (g t0 t1 t2 ty : _) =
  assume (valid g (mk_eq2 ty t0 t1));
  assert (valid g (mk_eq2 ty t0 t2));
  ()

The last test should not succeed. My guess is that somehow the SMT thinks that these two terms (mk_eq2 ty t0 t1 and mk_eq2 ty t0 t2) are equal, but clearly they are not.

@mtzguido mtzguido self-assigned this Jan 18, 2024
mtzguido added a commit to mtzguido/FStar that referenced this issue Jan 23, 2024
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant