Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
why3
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
119
Issues
119
List
Boards
Labels
Service Desk
Milestones
Merge Requests
16
Merge Requests
16
Operations
Operations
Incidents
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Why3
why3
Commits
3e857fa1
Commit
3e857fa1
authored
Sep 17, 2010
by
MARCHE Claude
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
db
parent
f8e88c7e
Changes
4
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
1304 additions
and
2 deletions
+1304
-2
src/ide/db.ml
src/ide/db.ml
+1201
-0
src/ide/db.mli
src/ide/db.mli
+88
-0
src/ide/gmain.ml
src/ide/gmain.ml
+1
-1
tests/test-claude.why
tests/test-claude.why
+14
-1
No files found.
src/ide/db.ml
0 → 100644
View file @
3e857fa1
This diff is collapsed.
Click to expand it.
src/ide/db.mli
0 → 100644
View file @
3e857fa1
(**************************************************************************)
(* *)
(* Copyright (C) 2010- *)
(* Francois Bobot *)
(* Jean-Christophe Filliatre *)
(* Johannes Kanig *)
(* Andrei Paskevich *)
(* *)
(* This software is free software; you can redistribute it and/or *)
(* modify it under the terms of the GNU Library General Public *)
(* License version 2.1, with the special exception on linking *)
(* described in file LICENSE. *)
(* *)
(* This software is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *)
(* *)
(**************************************************************************)
(** Proof database *)
(** {1 data types} *)
(** prover info *)
type
prover
val
prover_from_id
:
string
->
prover
(** status of an external proof attempt *)
type
proof_status
=
|
Success
(** external proof attempt succeeded *)
|
Timeout
(** external proof attempt was interrupted *)
|
Unknown
(** external prover answered ``don't know'' or equivalent *)
|
Failure
(** external prover call failed *)
type
proof_attempt
type
goal
type
transf
type
theory
type
file
type
goal_parent
=
|
Theory
of
theory
|
Transf
of
transf
(** proof_attempt accessors *)
val
prover
:
proof_attempt
->
prover
val
proof_goal
:
proof_attempt
->
goal
val
status
:
proof_attempt
->
proof_status
val
proof_obsolete
:
proof_attempt
->
bool
val
time
:
proof_attempt
->
float
val
edited_as
:
proof_attempt
->
string
(** goal accessors *)
val
parent
:
goal
->
goal_parent
val
task
:
goal
->
string
(* checksum *)
val
proved
:
goal
->
bool
val
external_proofs
:
(
string
,
proof_attempt
)
Hashtbl
.
t
val
transformations
:
(
string
,
transf
)
Hashtbl
.
t
(** transf accessors *)
val
parent_goal
:
transf
->
goal
val
transf_name
:
transf
->
string
val
subgoals
:
transf
->
goal
list
(** theory accessors *)
val
theory_name
:
theory
->
string
val
goals
:
theory
->
goal
list
val
verified
:
theory
->
bool
(** file accessors *)
val
file_name
:
file
->
string
val
theories
:
file
->
theory
list
(** {1 The persistent database} *)
val
init_base
:
string
->
unit
(** opens or creates the current database, from given file name *)
val
files
:
unit
->
file
list
(** returns the current set of files *)
(** {1 Updates} *)
src/ide/gmain.ml
View file @
3e857fa1
...
...
@@ -991,7 +991,7 @@ let (_ : GtkSignal.id) =
match
goals_view
#
selection
#
get_selected_rows
with
|
[
p
]
->
select_row
p
|
[]
->
()
|
_
->
assert
false
(* multi-selection is disabled *)
|
_
->
()
end
let
()
=
w
#
add_accel_group
accel_group
...
...
tests/test-claude.why
View file @
3e857fa1
theory Test
theory Test
Int
use import int.Int
...
...
@@ -19,6 +19,11 @@ theory Test
goal Test6: 2+3 = 5 and forall x:int. x*x >= 0
end
theory TestDiv
use import int.Int
use int.EuclideanDivision
goal EDiv1: EuclideanDivision.div 1 2 = 0
...
...
@@ -31,6 +36,10 @@ theory Test
goal CDiv2: ComputerDivision.div (-1) 2 = 0
end
theory TestReal
use import real.Real
goal Real1: forall x:real. x <> 0.0 -> x*x <> 0.0
...
...
@@ -39,6 +48,10 @@ theory Test
goal RealAbs1: forall x:real. 100.0 >= abs x >= 1.0 -> x*x >= 1.0
end
theory TestFloat
use import floating_point.Rounding
use floating_point.Single
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment