diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-02-28 17:52:32 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-02-28 17:52:32 +0000 |
| commit | 648ed9be93f948cc61295a045c7e777fc9aabaca (patch) | |
| tree | e4b52584a920cd68abe72ed2287471e61a65d355 /theories/Program | |
| parent | a13eac935515be8be32b8080aab858c46a6b202a (diff) | |
Add a flag to hide obligations in Program-generated terms under an
application of a dummy "obligation" constant.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13863 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Program')
| -rw-r--r-- | theories/Program/Tactics.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/theories/Program/Tactics.v b/theories/Program/Tactics.v index 3eec32620..9c34fa916 100644 --- a/theories/Program/Tactics.v +++ b/theories/Program/Tactics.v @@ -319,3 +319,5 @@ Create HintDb program discriminated. Ltac program_simpl := program_simplify ; try typeclasses eauto with program ; try program_solve_wf. Obligation Tactic := program_simpl. + +Definition obligation (A : Type) {a : A} := a.
\ No newline at end of file |