File: evar.v

package info (click to toggle)
coq 9.1.0%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 35,964 kB
  • sloc: ml: 239,908; sh: 4,355; python: 2,985; ansic: 2,644; makefile: 874; lisp: 171; javascript: 63; xml: 24; sed: 2
file content (17 lines) | stat: -rw-r--r-- 386 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Require Import Ltac2.Ltac2.

Goal exists (a: nat), a = 1.
Proof.
  match! goal with
  | [ |- ?g ] => Control.assert_false (Constr.has_evar g)
  end.
  eexists.
  match! goal with
  | [ |- ?g ] => Control.assert_true (Constr.has_evar g)
  end.
  match! goal with
  | [ |- ?x = ?y ] =>
    Control.assert_true (Constr.is_evar x);
    Control.assert_false (Constr.is_evar y)
  end.
Abort.