From 11598d2b7dd81eb55f8b5cce2628d0d50ed91d43 Mon Sep 17 00:00:00 2001
From: Andrei Paskevich <andrei@lri.fr>
Date: Sat, 20 Oct 2012 15:43:52 +0200
Subject: [PATCH] simplify copyright headers
+ create AUTHORS file
+ fix the linking exception in LICENSE
+ update the "About" in IDE
+ remove the trailing whitespace
+ inflate my scores at Ohloh
---
AUTHORS | 20 +++++++
LICENSE | 25 ++++-----
Makefile.in | 43 ++++----------
configure.in | 29 ++++------
examples/bitvectors/double_of_int.why | 24 ++++----
examples/bts/12475.why | 2 +-
examples/bts/13854.why | 2 +-
examples/bts/fsetint.why | 2 +-
examples/einstein.why | 16 +++---
examples/genealogy.why | 10 ++--
examples/hoare_logic/blocking_semantics.mlw | 10 ++--
examples/hoare_logic/blocking_semantics2.mlw | 20 +++----
examples/hoare_logic/blocking_semantics3.mlw | 2 +-
examples/hoare_logic/blocking_semantics4.mlw | 24 ++++----
examples/hoare_logic/blocking_semantics5.mlw | 2 +-
examples/hoare_logic/imp.why | 2 +-
examples/hoare_logic/imp_n.why | 2 +-
examples/hoare_logic/wp2.mlw | 2 +-
examples/hoare_logic/wp3.mlw | 4 +-
examples/hoare_logic/wp4.mlw | 4 +-
examples/hoare_logic/wp_total.mlw | 2 +-
examples/lagrange_inequality.why | 2 +-
examples/set.why | 4 +-
examples/sorted_list.why | 12 ++--
examples/tests-provers/alt-ergo-models.why | 10 ++--
examples/triangle_inequality.why | 4 +-
examples/vacit_sort.why | 16 +++---
misc/fixnames.sed | 3 -
misc/headache_config.txt | 14 ++---
misc/header.txt | 19 ++-----
misc/header_gm.txt | 17 ------
misc/header_jk.txt | 17 ------
misc/header_sc.txt | 17 ------
plugins/parser/genequlin.ml | 29 ++++------
plugins/tptp/tptp_ast.ml | 29 ++++------
plugins/tptp/tptp_lexer.mli | 29 ++++------
plugins/tptp/tptp_lexer.mll | 31 ++++------
plugins/tptp/tptp_parser.mly | 29 ++++------
plugins/tptp/tptp_printer.ml | 29 ++++------
plugins/tptp/tptp_printer.mli | 29 ++++------
plugins/tptp/tptp_typing.ml | 29 ++++------
plugins/tptp/tptp_typing.mli | 29 ++++------
plugins/transform/hypothesis_selection.ml | 29 ++++------
src/coq-tactic/coqCompat.8.3.ml | 10 ++++
src/coq-tactic/coqCompat.8.4.ml | 10 ++++
src/coq-tactic/coqCompat.mli | 10 ++++
src/coq-tactic/g_why3tac.ml4 | 29 ++++------
src/coq-tactic/why3tac.ml | 31 ++++------
src/core/decl.ml | 29 ++++------
src/core/decl.mli | 29 ++++------
src/core/env.ml | 29 ++++------
src/core/env.mli | 29 ++++------
src/core/ident.ml | 29 ++++------
src/core/ident.mli | 29 ++++------
src/core/pattern.ml | 29 ++++------
src/core/pattern.mli | 29 ++++------
src/core/pretty.ml | 29 ++++------
src/core/pretty.mli | 29 ++++------
src/core/printer.ml | 29 ++++------
src/core/printer.mli | 29 ++++------
src/core/task.ml | 29 ++++------
src/core/task.mli | 29 ++++------
src/core/term.ml | 29 ++++------
src/core/term.mli | 29 ++++------
src/core/theory.ml | 29 ++++------
src/core/theory.mli | 29 ++++------
src/core/trans.ml | 29 ++++------
src/core/trans.mli | 29 ++++------
src/core/ty.ml | 29 ++++------
src/core/ty.mli | 29 ++++------
src/driver/autodetection.ml | 29 ++++------
src/driver/autodetection.mli | 29 ++++------
src/driver/call_provers.ml | 29 ++++------
src/driver/call_provers.mli | 29 ++++------
src/driver/driver.ml | 31 ++++------
src/driver/driver.mli | 29 ++++------
src/driver/driver_ast.ml | 29 ++++------
src/driver/driver_lexer.mli | 29 ++++------
src/driver/driver_lexer.mll | 29 ++++------
src/driver/driver_parser.mly | 29 ++++------
src/driver/whyconf.ml | 37 +++++-------
src/driver/whyconf.mli | 29 ++++------
src/ide/gconfig.ml | 56 ++++++++++---------
src/ide/gconfig.mli | 29 ++++------
src/ide/gmain.ml | 39 +++++--------
src/ide/replay.ml | 35 +++++-------
src/main.ml | 29 ++++------
src/parser/denv.ml | 29 ++++------
src/parser/denv.mli | 29 ++++------
src/parser/glob.ml | 29 ++++------
src/parser/glob.mli | 29 ++++------
src/parser/lexer.mli | 29 ++++------
src/parser/lexer.mll | 29 ++++------
src/parser/parser.mly | 29 ++++------
src/parser/ptree.ml | 29 ++++------
src/parser/typing.ml | 29 ++++------
src/parser/typing.mli | 29 ++++------
src/printer/alt_ergo.ml | 29 ++++------
src/printer/alt_ergo.mli | 29 ++++------
src/printer/coq.ml | 31 ++++------
src/printer/coq.mli | 29 ++++------
src/printer/cvc3.ml | 29 ++++------
src/printer/cvc3.mli | 29 ++++------
src/printer/gappa.ml | 29 ++++------
src/printer/gappa.mli | 29 ++++------
src/printer/print_number.ml | 29 ++++------
src/printer/print_number.mli | 29 ++++------
src/printer/pvs.ml | 29 ++++------
src/printer/simplify.ml | 29 ++++------
src/printer/simplify.mli | 29 ++++------
src/printer/smtv1.ml | 29 ++++------
src/printer/smtv1.mli | 29 ++++------
src/printer/smtv2.ml | 29 ++++------
src/printer/smtv2.mli | 29 ++++------
src/printer/why3printer.ml | 29 ++++------
src/printer/why3printer.mli | 29 ++++------
src/printer/yices.ml | 29 ++++------
src/programs/pgm_fastwp.ml | 29 ++++------
src/programs/pgm_main.ml | 29 ++++------
src/programs/pgm_module.ml | 29 ++++------
src/programs/pgm_module.mli | 29 ++++------
src/programs/pgm_pretty.ml | 29 ++++------
src/programs/pgm_pretty.mli | 29 ++++------
src/programs/pgm_ttree.ml | 29 ++++------
src/programs/pgm_types.ml | 29 ++++------
src/programs/pgm_types.mli | 29 ++++------
src/programs/pgm_typing.ml | 29 ++++------
src/programs/pgm_typing.mli | 29 ++++------
src/programs/pgm_wp.ml | 29 ++++------
src/programs/pgm_wp.mli | 29 ++++------
src/session/session.ml | 29 ++++------
src/session/session.mli | 29 ++++------
src/session/session_scheduler.ml | 49 +++++++---------
src/session/session_scheduler.mli | 29 ++++------
src/session/session_tools.ml | 29 ++++------
src/session/session_tools.mli | 29 ++++------
src/session/termcode.ml | 29 ++++------
src/session/termcode.mli | 29 ++++------
src/session/xml.mli | 29 ++++------
src/session/xml.mll | 29 ++++------
src/tools/cpulimit.c | 29 ++++------
src/transform/abstraction.ml | 29 ++++------
src/transform/abstraction.mli | 29 ++++------
src/transform/close_epsilon.ml | 29 ++++------
src/transform/close_epsilon.mli | 29 ++++------
src/transform/discriminate.ml | 29 ++++------
src/transform/discriminate.mli | 29 ++++------
src/transform/eliminate_algebraic.ml | 29 ++++------
src/transform/eliminate_algebraic.mli | 29 ++++------
src/transform/eliminate_definition.ml | 29 ++++------
src/transform/eliminate_definition.mli | 29 ++++------
src/transform/eliminate_if.ml | 29 ++++------
src/transform/eliminate_if.mli | 29 ++++------
src/transform/eliminate_inductive.ml | 29 ++++------
src/transform/eliminate_inductive.mli | 29 ++++------
src/transform/eliminate_let.ml | 29 ++++------
src/transform/eliminate_let.mli | 29 ++++------
src/transform/encoding.ml | 29 ++++------
src/transform/encoding.mli | 29 ++++------
src/transform/encoding_decoexp.ml | 29 ++++------
src/transform/encoding_decoexp.mli | 29 ++++------
src/transform/encoding_decorate.ml | 29 ++++------
src/transform/encoding_decorate.mli | 29 ++++------
src/transform/encoding_explicit.ml | 33 ++++-------
src/transform/encoding_explicit.mli | 29 ++++------
src/transform/encoding_guard.ml | 29 ++++------
src/transform/encoding_instantiate.ml | 29 ++++------
src/transform/encoding_instantiate.mli | 29 ++++------
src/transform/encoding_select.ml | 29 ++++------
src/transform/encoding_select.mli | 29 ++++------
src/transform/encoding_sort.ml | 29 ++++------
src/transform/encoding_twin.ml | 29 ++++------
src/transform/encoding_twin.mli | 29 ++++------
src/transform/eval_match.ml | 29 ++++------
src/transform/eval_match.mli | 29 ++++------
src/transform/filter_trigger.ml | 29 ++++------
src/transform/induction.ml | 35 +++++-------
src/transform/inlining.ml | 29 ++++------
src/transform/inlining.mli | 29 ++++------
src/transform/instantiate_predicate.ml | 29 ++++------
src/transform/introduction.ml | 29 ++++------
src/transform/introduction.mli | 29 ++++------
src/transform/libencoding.ml | 29 ++++------
src/transform/libencoding.mli | 29 ++++------
src/transform/lift_epsilon.ml | 29 ++++------
src/transform/lift_epsilon.mli | 29 ++++------
src/transform/protect_finite.ml | 29 ++++------
src/transform/protect_finite.mli | 29 ++++------
src/transform/simplify_array.ml | 29 ++++------
src/transform/simplify_formula.ml | 29 ++++------
src/transform/simplify_formula.mli | 29 ++++------
.../simplify_recursive_definition.ml | 29 ++++------
.../simplify_recursive_definition.mli | 29 ++++------
src/transform/smoke_detector.ml | 31 ++++------
src/transform/smoke_detector.mli | 29 ++++------
src/transform/split_goal.ml | 29 ++++------
src/transform/split_goal.mli | 29 ++++------
src/util/cmdline.ml | 29 ++++------
src/util/cmdline.mli | 29 ++++------
src/util/debug.ml | 29 ++++------
src/util/debug.mli | 29 ++++------
src/util/exn_printer.ml | 29 ++++------
src/util/exn_printer.mli | 29 ++++------
src/util/hashcons.ml | 29 ++++------
src/util/hashcons.mli | 29 ++++------
src/util/hashweak.ml | 29 ++++------
src/util/hashweak.mli | 29 ++++------
src/util/loc.ml | 29 ++++------
src/util/loc.mli | 29 ++++------
src/util/plugin.ml | 29 ++++------
src/util/plugin.mli | 29 ++++------
src/util/pp.ml | 29 ++++------
src/util/pp.mli | 29 ++++------
src/util/print_tree.ml | 29 ++++------
src/util/print_tree.mli | 29 ++++------
src/util/rc.mli | 29 ++++------
src/util/rc.mll | 29 ++++------
src/util/sysutil.ml | 29 ++++------
src/util/sysutil.mli | 29 ++++------
src/util/util.ml | 29 ++++------
src/util/util.mli | 29 ++++------
src/util/warning.ml | 29 ++++------
src/util/warning.mli | 29 ++++------
src/why3bench/bench.ml | 29 ++++------
src/why3bench/bench.mli | 29 ++++------
src/why3bench/benchdb.ml | 29 ++++------
src/why3bench/benchdb.mli | 29 ++++------
src/why3bench/benchrc.ml | 29 ++++------
src/why3bench/benchrc.mli | 29 ++++------
src/why3bench/db.ml | 29 ++++------
src/why3bench/db.mli | 29 ++++------
src/why3bench/why3bench.ml | 29 ++++------
src/why3bench/worker.ml | 29 ++++------
src/why3config/why3config.ml | 29 ++++------
src/why3doc/doc_def.ml | 29 ++++------
src/why3doc/doc_def.mli | 29 ++++------
src/why3doc/doc_html.ml | 29 ++++------
src/why3doc/doc_html.mli | 29 ++++------
src/why3doc/doc_lexer.mll | 31 ++++------
src/why3doc/doc_main.ml | 29 ++++------
src/why3session/why3session.ml | 33 ++++-------
src/why3session/why3session_copy.ml | 29 ++++------
src/why3session/why3session_html.ml | 29 ++++------
src/why3session/why3session_info.ml | 33 ++++-------
src/why3session/why3session_latex.ml | 31 ++++------
src/why3session/why3session_lib.ml | 31 ++++------
src/why3session/why3session_lib.mli | 31 ++++------
src/why3session/why3session_rm.ml | 29 ++++------
src/whyml/mlw_decl.ml | 29 ++++------
src/whyml/mlw_decl.mli | 29 ++++------
src/whyml/mlw_driver.ml | 29 ++++------
src/whyml/mlw_driver.mli | 29 ++++------
src/whyml/mlw_dtree.ml | 29 ++++------
src/whyml/mlw_dty.ml | 29 ++++------
src/whyml/mlw_dty.mli | 29 ++++------
src/whyml/mlw_expr.ml | 29 ++++------
src/whyml/mlw_expr.mli | 29 ++++------
src/whyml/mlw_main.ml | 29 ++++------
src/whyml/mlw_main.mli | 29 ++++------
src/whyml/mlw_module.ml | 29 ++++------
src/whyml/mlw_module.mli | 29 ++++------
src/whyml/mlw_ocaml.ml | 29 ++++------
src/whyml/mlw_ocaml.mli | 29 ++++------
src/whyml/mlw_pretty.ml | 29 ++++------
src/whyml/mlw_pretty.mli | 29 ++++------
src/whyml/mlw_ty.ml | 29 ++++------
src/whyml/mlw_ty.mli | 29 ++++------
src/whyml/mlw_typing.ml | 29 ++++------
src/whyml/mlw_typing.mli | 29 ++++------
src/whyml/mlw_wp.ml | 29 ++++------
src/whyml/mlw_wp.mli | 29 ++++------
theories/floating_point.why | 6 +-
theories/map.why | 2 +-
theories/real.why | 2 +-
theories/set.why | 2 +-
theories/settheory.why | 12 ++--
276 files changed, 2605 insertions(+), 4753 deletions(-)
create mode 100644 AUTHORS
delete mode 100644 misc/fixnames.sed
delete mode 100644 misc/header_gm.txt
delete mode 100644 misc/header_jk.txt
delete mode 100644 misc/header_sc.txt
diff --git a/AUTHORS b/AUTHORS
new file mode 100644
index 000000000..690706f10
--- /dev/null
+++ b/AUTHORS
@@ -0,0 +1,20 @@
+The Why3 Verification Platform is developed by
+
+ François Bobot
+ Jean-Christophe Filliâtre
+ Claude Marché
+ Guillaume Melquiond
+ Andrei Paskevich
+
+with contributions of
+
+ Sylvie Boldo
+ Simon Cruanes
+ Leon Gondelman
+ Johannes Kanig
+ David Mentré
+ Benjamin Monate
+ Thi-Minh-Tuyen Nguyen
+ Simão Melo de Sousa
+ Asma Tafat-Bouzid
+
diff --git a/LICENSE b/LICENSE
index fd5990a07..c6d03e911 100644
--- a/LICENSE
+++ b/LICENSE
@@ -1,19 +1,18 @@
-The Library is distributed under the terms of the GNU Library General
-Public License version 2.1 (included below).
+The Library is distributed under the terms of the GNU Lesser General
+Public License version 2.1 (included below).
-As a special exception to the GNU Library General Public License, you
+As a special exception to the GNU Lesser General Public License, you
may link, statically or dynamically, a "work that uses the Library"
with a publicly distributed version of the Library to produce an
-executable file containing portions of the Library, and distribute
-that executable file under terms of your choice, without any of the
-additional requirements listed in clause 6 of the GNU Library General
-Public License. By "a publicly distributed version of the Library", we
-mean either the unmodified Library as distributed, or a
-modified version of the Library that is distributed under the
-conditions defined in clause 3 of the GNU Library General Public
-License. This exception does not however invalidate any other reasons
-why the executable file might be covered by the GNU Library General
-Public License.
+executable file containing portions of the Library, and distribute that
+executable file under terms of your choice, without any of the additional
+requirements listed in clause 6 of the GNU Lesser General Public License.
+By "a publicly distributed version of the Library", we mean either the
+unmodified Library as distributed by the authors, or a modified version
+of the Library that is distributed under the conditions defined in clause
+3 of the GNU Lesser General Public License. This exception does not
+however invalidate any other reasons why the executable file might be
+covered by the GNU Lesser General Public License.
======================================================================
diff --git a/Makefile.in b/Makefile.in
index c38921db9..f93a38397 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -1,22 +1,13 @@
-##########################################################################
-# #
-# Copyright (C) 2010-2012 #
-# François Bobot #
-# Jean-Christophe Filliâtre #
-# Claude Marché #
-# Guillaume Melquiond #
-# 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. #
-# #
-##########################################################################
+####################################################################
+# #
+# The Why3 Verification Platform / The Why3 Development Team #
+# Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University #
+# #
+# This software is distributed under the terms of the GNU Lesser #
+# General Public License version 2.1, with the special exception #
+# on linking described in file LICENSE. #
+# #
+####################################################################
include Version
@@ -1525,20 +1516,6 @@ headers:
headache -c misc/headache_config.txt -h misc/header.txt \
Makefile.in configure.in src/*.ml* src/*/*.ml* \
plugins/*/*.ml* src/tools/cpulimit.c
- headache -c misc/headache_config.txt -h misc/header_gm.txt \
- src/transform/abstraction.ml* \
- src/transform/instantiate_predicate.ml* \
- src/transform/simplify_formula.ml* \
- src/printer/print_number.ml* \
- src/printer/gappa.ml*
- headache -c misc/headache_config.txt -h misc/header_jk.txt \
- src/transform/close_epsilon.ml* \
- src/transform/lift_epsilon.ml*
- headache -c misc/headache_config.txt -h misc/header_sc.txt \
- plugins/transform/hypothesis_selection.ml*
- sed -i -f misc/fixnames.sed -- \
- Makefile.in configure.in src/*.ml* src/*/*.ml* \
- plugins/*/*.ml* src/tools/cpulimit.c
#########
# myself
diff --git a/configure.in b/configure.in
index a3f3fd00a..a7327fef7 100644
--- a/configure.in
+++ b/configure.in
@@ -1,22 +1,13 @@
-##########################################################################
-# #
-# Copyright (C) 2010-2012 #
-# François Bobot #
-# Jean-Christophe Filliâtre #
-# Claude Marché #
-# Guillaume Melquiond #
-# 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. #
-# #
-##########################################################################
+####################################################################
+# #
+# The Why3 Verification Platform / The Why3 Development Team #
+# Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University #
+# #
+# This software is distributed under the terms of the GNU Lesser #
+# General Public License version 2.1, with the special exception #
+# on linking described in file LICENSE. #
+# #
+####################################################################
#
# autoconf input for Objective Caml programs
diff --git a/examples/bitvectors/double_of_int.why b/examples/bitvectors/double_of_int.why
index 7aef41e34..1048d0d60 100644
--- a/examples/bitvectors/double_of_int.why
+++ b/examples/bitvectors/double_of_int.why
@@ -114,24 +114,24 @@ theory DoubleOfInt
lemma jpxorx_pos: forall x:int. x>=0 -> BV32.nth (BV32.bw_xor j' (BV32.from_int2c x)) 31 = True
lemma from_int2c_to_nat_sub_pos:
- forall i:int. 0 <= i <= 31 ->
- forall x:int. 0 <= x < Pow2int.pow2 i ->
+ forall i:int. 0 <= i <= 31 ->
+ forall x:int. 0 <= x < Pow2int.pow2 i ->
BV32.to_nat_sub (BV32.from_int2c x) (i-1) 0 = x
- lemma lemma1_pos : forall x:int. is_int32 x /\ x >= 0 ->
+ lemma lemma1_pos : forall x:int. is_int32 x /\ x >= 0 ->
BV32.to_nat_sub (jpxor x) 31 0 = Pow2int.pow2 31 + x
(* case x < 0 *)
- lemma jpxorx_neg: forall x:int. x<0 ->
+ lemma jpxorx_neg: forall x:int. x<0 ->
BV32.nth (BV32.bw_xor j' (BV32.from_int2c x)) 31 = False
lemma from_int2c_to_nat_sub_neg:
- forall i:int. 0 <= i <= 31 ->
- forall x:int. -Pow2int.pow2 i <= x < 0 ->
+ forall i:int. 0 <= i <= 31 ->
+ forall x:int. -Pow2int.pow2 i <= x < 0 ->
BV32.to_nat_sub (BV32.from_int2c x) (i-1) 0 = Pow2int.pow2 i + x
-
- lemma lemma1_neg : forall x:int. is_int32 x /\ x < 0 ->
+
+ lemma lemma1_neg : forall x:int. is_int32 x /\ x < 0 ->
BV32.to_nat_sub (jpxor x) 31 0 = Pow2int.pow2 31 + x
(**** old
@@ -146,8 +146,8 @@ theory DoubleOfInt
*)
lemma from_int2c_to_nat_sub_gen:
- forall i:int. 0 <= i <= 30 ->
- forall x:int. 0 <= x < Pow2int.pow2 i ->
+ forall i:int. 0 <= i <= 30 ->
+ forall x:int. 0 <= x < Pow2int.pow2 i ->
BV32.to_nat_sub (BV32.from_int2c x) (i-1) 0 = x
lemma from_int2c_to_nat_sub:
@@ -181,14 +181,14 @@ theory DoubleOfInt
BV64.nth (var x) i = BV32.nth (jpxor x) i
lemma to_nat_bv32_bv64_aux: forall b1:BV32.bv. forall b2:BV32.bv. forall j:int. 0<=j<32-> BV64.to_nat_sub (BV32_64.concat b1 b2) j 0 = BV32.to_nat_sub b2 j 0
lemma to_nat_bv32_bv64: forall b1:BV32.bv. forall b2:BV32.bv. BV64.to_nat_sub (BV32_64.concat b1 b2) 31 0 = BV32.to_nat_sub b2 31 0
-
+
lemma to_nat_var_0_31: forall x:int. is_int32(x) ->
BV64.to_nat_sub (var x) 31 0 = BV32.to_nat_sub (jpxor x) 31 0
lemma nth_var32to63:
forall x k:int. 32 <= k <= 63 -> BV64.nth (var x) k = BV32.nth j (k - 32)
lemma nth_var3: forall x:int. forall i:int. 32 <= i <= 51 -> BV64.nth (var x) i = False
-
+
lemma lemma2 : forall x:int. is_int32 x -> mantissa(var(x)) = Pow2int.pow2 31 + x
(*********************************************************************)
diff --git a/examples/bts/12475.why b/examples/bts/12475.why
index 884fcf69c..38d349e05 100644
--- a/examples/bts/12475.why
+++ b/examples/bts/12475.why
@@ -1,5 +1,5 @@
theory Stmt "some_statement"
-
+
use import real.Real
use import floating_point.Rounding
use import floating_point.Single
diff --git a/examples/bts/13854.why b/examples/bts/13854.why
index ef5f817d6..fd9bf85c7 100644
--- a/examples/bts/13854.why
+++ b/examples/bts/13854.why
@@ -1,7 +1,7 @@
theory T
type t 'a = A 'a | B
- function f () : ()
+ function f () : ()
goal g : () = f ()
diff --git a/examples/bts/fsetint.why b/examples/bts/fsetint.why
index d1c3c41d5..45f9769fe 100644
--- a/examples/bts/fsetint.why
+++ b/examples/bts/fsetint.why
@@ -14,7 +14,7 @@ theory Th2
goal foo : false
-end
+end
theory Th3
diff --git a/examples/einstein.why b/examples/einstein.why
index b9348fd5e..f3e7907d3 100644
--- a/examples/einstein.why
+++ b/examples/einstein.why
@@ -23,7 +23,7 @@ theory Einstein "Einstein's problem"
type drink = Beer | Coffee | Milk | Tea | Water
type cigar = Blend | BlueMaster | Dunhill | PallMall | Prince
type pet = Birds | Cats | Dogs | Fish | Horse
-
+
(* Each house is associated bijectively to a color and a person *)
clone Bijection as Color with type t = house, type u = color
clone Bijection as Owner with type t = house, type u = person
@@ -36,9 +36,9 @@ theory Einstein "Einstein's problem"
(* Relative positions of the houses *)
predicate leftof (h1 h2 : house) =
match h1, h2 with
- | H1, H2
- | H2, H3
- | H3, H4
+ | H1, H2
+ | H2, H3
+ | H3, H4
| H4, H5 -> true
| _ -> false
end
@@ -79,7 +79,7 @@ theory EinsteinClues "Clues"
axiom Clue9: Owner.of H1 = Norwegian
(* The man who smokes Blends lives next to the one who has cats *)
- axiom Clue10: neighbour
+ axiom Clue10: neighbour
(Owner.to_ (Cigar.to_ Blend)) (Owner.to_ (Pet.to_ Cats))
(* The man who owns a horse lives next to the one who smokes Dunhills *)
@@ -123,13 +123,13 @@ theory Goals "Goals about Einstein's problem"
lemma Yellow_H1 : Color.of H1 = Yellow
*)
goal G1: Pet.to_ Fish = German
- goal Wrong: Pet.to_ Cats = Swede
+ goal Wrong: Pet.to_ Cats = Swede
goal G2: Pet.to_ Cats = Norwegian
end
(*
-Local Variables:
+Local Variables:
compile-command: "make -C .. examples/einstein.gui"
-End:
+End:
*)
diff --git a/examples/genealogy.why b/examples/genealogy.why
index 954025aec..04f8f4d13 100644
--- a/examples/genealogy.why
+++ b/examples/genealogy.why
@@ -4,7 +4,7 @@ theory Genealogy
type person
type gender = Male | Female
-
+
function gender person : gender
function father person : person
@@ -20,7 +20,7 @@ theory Genealogy
predicate child (c : person) (p : person) = parent p c
- goal Child_is_son_or_daughter:
+ goal Child_is_son_or_daughter:
forall c p : person. child c p <-> son c p \/ daughter c p
predicate sibling (p1 : person) (p2 : person) =
@@ -45,14 +45,14 @@ theory Genealogy
goal Grandparent_is_grandfather_or_grandmother:
forall g p : person. grandparent g p <-> grandfather g p \/ grandmother g p
- goal Grandfather_male:
+ goal Grandfather_male:
forall g p : person. grandfather g p -> gender g = Male
- goal Grandmother_female:
+ goal Grandmother_female:
forall g p : person. grandmother g p -> gender g = Female
goal Only_two_grandfathers:
forall g1 g2 g3 p : person.
- grandfather g1 p ->
+ grandfather g1 p ->
grandfather g2 p ->
grandfather g3 p ->
(g1 = g2 \/ g2 = g3 \/ g1 = g3)
diff --git a/examples/hoare_logic/blocking_semantics.mlw b/examples/hoare_logic/blocking_semantics.mlw
index 0ae6be3ac..35d343601 100644
--- a/examples/hoare_logic/blocking_semantics.mlw
+++ b/examples/hoare_logic/blocking_semantics.mlw
@@ -18,9 +18,9 @@ type value = Vvoid | Vint int | Vbool bool
type operator = Oplus | Ominus | Omult | Ole
(** ident for imutable variable*)
-type ident
+type ident
-constant result : ident
+constant result : ident
type term =
| Tvalue value
@@ -86,13 +86,13 @@ predicate eval_fmla (sigma:env) (pi:stack) (f:fmla) =
| Fand f1 f2 -> eval_fmla sigma pi f1 /\ eval_fmla sigma pi f2
| Fnot f -> not (eval_fmla sigma pi f)
| Fimplies f1 f2 -> eval_fmla sigma pi f1 -> eval_fmla sigma pi f2
- | Flet x t f ->
+ | Flet x t f ->
eval_fmla sigma (Cons (x,eval_term sigma pi t) pi) f
- | Fforall x TYint f ->
+ | Fforall x TYint f ->
forall n:int. eval_fmla sigma (Cons (x,Vint n) pi) f
| Fforall x TYbool f ->
forall b:bool. eval_fmla sigma (Cons (x,Vbool b) pi) f
- | Fforall x TYunit f -> eval_fmla sigma (Cons (x,Vvoid) pi) f
+ | Fforall x TYunit f -> eval_fmla sigma (Cons (x,Vvoid) pi) f
end
(** substitution of a reference [r] by a logic variable [v]
diff --git a/examples/hoare_logic/blocking_semantics2.mlw b/examples/hoare_logic/blocking_semantics2.mlw
index 9a884fa3e..e1718c9c4 100644
--- a/examples/hoare_logic/blocking_semantics2.mlw
+++ b/examples/hoare_logic/blocking_semantics2.mlw
@@ -171,7 +171,7 @@ inductive type_expr type_env type_stack expr datatype =
type_expr sigma pi e1 TYbool ->
type_expr sigma pi e2 ty ->
type_expr sigma pi e3 ty ->
- type_expr sigma pi (Eif e1 e2 e3) ty
+ type_expr sigma pi (Eif e1 e2 e3) ty
| Type_eassert :
forall sigma: type_env, pi:type_stack, p:fmla.
type_fmla sigma pi p ->
@@ -372,7 +372,7 @@ lemma let_implies :
forall id:ident, t:term, p q:fmla.
valid_fmla (Fimplies p q) ->
valid_fmla (Fimplies (Flet id t p) (Flet id t q))
-
+
predicate fresh_in_expr (id:ident) (e:expr) =
match e with
| Evalue _ -> true
@@ -652,12 +652,12 @@ end
theory Simpl_tautology
- predicate p
+ predicate p
predicate q
-
- lemma simpl_tautology :
+
+ lemma simpl_tautology :
(p -> q) <-> (p /\ q <-> p)
-
+
end
(** {2 WP calculus} *)
@@ -792,17 +792,17 @@ predicate expr_writes (e:expr) (w:Set.set mident) =
forall e:expr. not (is_value e) \/ exists v:value. e = Evalue v
lemma bool_value:
- forall v:value, sigmat: type_env, pit:type_stack.
+ forall v:value, sigmat: type_env, pit:type_stack.
type_expr sigmat pit (Evalue v) TYbool ->
(v = Vbool False) \/ (v = Vbool True)
lemma unit_value:
- forall v:value, sigmat: type_env, pit:type_stack.
- type_expr sigmat pit (Evalue v) TYunit -> v = Vvoid
+ forall v:value, sigmat: type_env, pit:type_stack.
+ type_expr sigmat pit (Evalue v) TYunit -> v = Vvoid
lemma progress:
forall e:expr, sigma:env, pi:stack, sigmat: type_env, pit: type_stack, ty: datatype, q:fmla.
- type_expr sigmat pit e ty ->
+ type_expr sigmat pit e ty ->
type_fmla sigmat (Cons(result, ty) pit) q ->
eval_fmla sigma pi (wp e q) -> not is_value e ->
exists sigma':env, pi':stack, e':expr.
diff --git a/examples/hoare_logic/blocking_semantics3.mlw b/examples/hoare_logic/blocking_semantics3.mlw
index 2941fd434..bcaa02456 100644
--- a/examples/hoare_logic/blocking_semantics3.mlw
+++ b/examples/hoare_logic/blocking_semantics3.mlw
@@ -806,7 +806,7 @@ predicate stmt_writes (s:stmt) (w:Set.set mident) =
sigma,pi |= (wp s p) -> (wp s q)
meme contre-exemple: sigma(x) = 42 alors true -> x=42
- mais
+ mais
wp (x := 7) true = true
wp (x := 7) x=42 = 7=42
*)
diff --git a/examples/hoare_logic/blocking_semantics4.mlw b/examples/hoare_logic/blocking_semantics4.mlw
index 26922c7b4..5dcc68f2a 100644
--- a/examples/hoare_logic/blocking_semantics4.mlw
+++ b/examples/hoare_logic/blocking_semantics4.mlw
@@ -30,7 +30,7 @@ axiom mident_decide :
(** ident for immutable variables *)
type ident = { ident_index : int }
-
+
constant result : ident
axiom ident_decide :
@@ -134,7 +134,7 @@ function get_vartype (i:ident) (pi:type_stack) : datatype =
| Cons (x,ty) r -> if x=i then ty else get_vartype i r
end
-
+
type type_env = IdMap.map mident datatype (* map global mutable variables to their type *)
function get_reftype (i:mident) (e:type_env) : datatype = IdMap.get e i
@@ -335,7 +335,7 @@ function msubst_term (t:term) (r:mident) (v:ident) : term =
| Tvalue _ | Tvar _ -> t
| Tderef x -> if r = x then mk_tvar v else t
| Tbin t1 op t2 ->
- mk_tbin (msubst_term t1 r v) op (msubst_term t2 r v)
+ mk_tbin (msubst_term t1 r v) op (msubst_term t2 r v)
end
function subst_term (t:term) (r:ident) (v:ident) : term =
@@ -359,7 +359,7 @@ lemma fresh_in_binop:
forall t t':term, op:operator, v:ident.
fresh_in_term v (mk_tbin t op t') ->
fresh_in_term v t /\ fresh_in_term v t'
-
+
(* lemma eval_subst_term: *)
(* forall sigma:env, pi:stack, e:term, x:ident, v:ident. *)
(* fresh_in_term v e -> *)
@@ -506,10 +506,10 @@ predicate fresh_in_expr (id:ident) (e:expr) =
match e with
| Evalue _ -> true
| Ebin e1 op e2 -> fresh_in_expr id e1 /\ fresh_in_expr id e2
- | Evar v -> id <> v
+ | Evar v -> id <> v
| Ederef _ -> true
| Eassign x e -> fresh_in_expr id e
- | Eseq e1 e2 -> fresh_in_expr id e1 /\ fresh_in_expr id e2
+ | Eseq e1 e2 -> fresh_in_expr id e1 /\ fresh_in_expr id e2
| Elet v e1 e2 -> id <> v /\ fresh_in_expr id e1 /\ fresh_in_expr id e2
| Eif e1 e2 e3 -> fresh_in_expr id e1 /\ fresh_in_expr id e2 /\ fresh_in_expr id e3
| Eassert f -> fresh_in_fmla id f
@@ -889,7 +889,7 @@ predicate expr_writes (s:expr) (w:Set.set mident) =
forall s:expr, sigma:env, pi:stack, p q:fmla.
(eval_fmla sigma pi (wp s p)) /\
(eval_fmla sigma pi (wp s q)) ->
- eval_fmla sigma pi (wp s (Fand p q))
+ eval_fmla sigma pi (wp s (Fand p q))
lemma wp_reduction:
forall sigma sigma':env, pi pi':stack, s s':expr.
@@ -908,20 +908,20 @@ predicate expr_writes (s:expr) (w:Set.set mident) =
forall e:expr. not (is_value e) \/ exists v:value. e = Evalue v
lemma bool_value:
- forall v:value, sigmat: type_env, pit:type_stack.
+ forall v:value, sigmat: type_env, pit:type_stack.
type_expr sigmat pit (Evalue v) TYbool ->
(v = Vbool False) \/ (v = Vbool True)
lemma unit_value:
- forall v:value, sigmat: type_env, pit:type_stack.
- type_expr sigmat pit (Evalue v) TYunit -> v = Vvoid
+ forall v:value, sigmat: type_env, pit:type_stack.
+ type_expr sigmat pit (Evalue v) TYunit -> v = Vvoid
lemma progress:
forall e:expr, sigma:env, pi:stack, sigmat: type_env, pit: type_stack, ty: datatype, q:fmla.
- type_expr sigmat pit e ty ->
+ type_expr sigmat pit e ty ->
type_fmla sigmat (Cons(result, ty) pit) q ->
not is_value e ->
- eval_fmla sigma pi (wp e q) ->
+ eval_fmla sigma pi (wp e q) ->
exists sigma':env, pi':stack, e':expr.
one_step sigma pi e sigma' pi' e'
diff --git a/examples/hoare_logic/blocking_semantics5.mlw b/examples/hoare_logic/blocking_semantics5.mlw
index ba5a3980d..3d434abcf 100644
--- a/examples/hoare_logic/blocking_semantics5.mlw
+++ b/examples/hoare_logic/blocking_semantics5.mlw
@@ -181,7 +181,7 @@ inductive one_step env stack stmt env stack stmt =
(** many steps of execution *)
inductive many_steps env stack stmt env stack stmt int =
- | many_steps_refl: forall sigma:env, pi:stack, s:stmt.
+ | many_steps_refl: forall sigma:env, pi:stack, s:stmt.
many_steps sigma pi s sigma pi s 0
| many_steps_trans: forall sigma1 sigma2 sigma3:env, pi1 pi2 pi3:stack, s1 s2 s3:stmt, n:int.
one_step sigma1 pi1 s1 sigma2 pi2 s2 ->
diff --git a/examples/hoare_logic/imp.why b/examples/hoare_logic/imp.why
index 335309288..9676e2f48 100644
--- a/examples/hoare_logic/imp.why
+++ b/examples/hoare_logic/imp.why
@@ -173,7 +173,7 @@ predicate eval_fmla (s:state) (f:fmla) =
| Fnot f -> not (eval_fmla s f)
end
-(* substitution *)
+(* substitution *)
function subst_expr (e:expr) (x:ident) (t:expr) : expr =
match e with
diff --git a/examples/hoare_logic/imp_n.why b/examples/hoare_logic/imp_n.why
index 948c29c83..8dc016ed5 100644
--- a/examples/hoare_logic/imp_n.why
+++ b/examples/hoare_logic/imp_n.why
@@ -174,7 +174,7 @@ predicate eval_fmla (s:state) (f:fmla) =
| Fimplies f1 f2 -> eval_fmla s f1 -> eval_fmla s f2
end
-(* substitution *)
+(* substitution *)
function subst_expr (e:expr) (x:ident) (t:expr) : expr =
match e with
diff --git a/examples/hoare_logic/wp2.mlw b/examples/hoare_logic/wp2.mlw
index 597dde9d6..ffc1ac03e 100644
--- a/examples/hoare_logic/wp2.mlw
+++ b/examples/hoare_logic/wp2.mlw
@@ -443,7 +443,7 @@ predicate stmt_writes (i:stmt) (w:Set.set ident) =
(abstract_effects i
(Fand
(Fimplies (Fand (Fterm e) inv) (wp i inv))
- (Fimplies (Fand (Fnot (Fterm e)) inv) q)))
+ (Fimplies (Fand (Fnot (Fterm e)) inv) q)))
end
diff --git a/examples/hoare_logic/wp3.mlw b/examples/hoare_logic/wp3.mlw
index 053a2f89e..c923404ba 100644
--- a/examples/hoare_logic/wp3.mlw
+++ b/examples/hoare_logic/wp3.mlw
@@ -221,7 +221,7 @@ inductive one_step env env expr env env expr =
| one_step_while:
forall sigma pi:env, e:expr, inv:fmla, e':expr.
- one_step sigma pi (Ewhile e inv e') sigma pi
+ one_step sigma pi (Ewhile e inv e') sigma pi
(Eif e (Eseq e' (Ewhile e inv e')) void)
(***
@@ -500,7 +500,7 @@ predicate expr_writes (i:expr) (w:Set.set ident) =
(abstract_effects i
(Fand
(Fimplies (Fand (Fterm e) inv) (wp i inv))
- (Fimplies (Fand (Fnot (Fterm e)) inv) q)))
+ (Fimplies (Fand (Fnot (Fterm e)) inv) q)))
end
{ valid_triple result i q }
diff --git a/examples/hoare_logic/wp4.mlw b/examples/hoare_logic/wp4.mlw
index 2e4118478..40e6d9a01 100644
--- a/examples/hoare_logic/wp4.mlw
+++ b/examples/hoare_logic/wp4.mlw
@@ -72,7 +72,7 @@ lemma get_stack_eq:
lemma get_stack_neq:
forall x i:ident, v:value, r:stack.
- x <> i -> get_stack i (Cons (x,v) r) = get_stack i r
+ x <> i -> get_stack i (Cons (x,v) r) = get_stack i r
function eval_term (sigma:env) (pi:stack) (t:term) : value =
match t with
@@ -407,7 +407,7 @@ lemma consequence_rule:
valid_triple p' e q'
lemma value_rule:
- forall q:fmla, v:value.
+ forall q:fmla, v:value.
valid_triple (vsubst q result (Tvalue v)) (Evalue v) q
lemma assign_rule:
diff --git a/examples/hoare_logic/wp_total.mlw b/examples/hoare_logic/wp_total.mlw
index 6e27a4355..570fc5f94 100644
--- a/examples/hoare_logic/wp_total.mlw
+++ b/examples/hoare_logic/wp_total.mlw
@@ -360,7 +360,7 @@ module WP
Fand inv
((*Fforall*) (Fand
(Fimplies (Fand (Fterm e) inv) (wp i inv))
- (Fimplies (Fand (Fnot (Fterm e)) inv) q)))
+ (Fimplies (Fand (Fnot (Fterm e)) inv) q)))
end
diff --git a/examples/lagrange_inequality.why b/examples/lagrange_inequality.why
index 9abf0d0b0..5f201deac 100644
--- a/examples/lagrange_inequality.why
+++ b/examples/lagrange_inequality.why
@@ -4,7 +4,7 @@ theory LagrangeInequality
(*
-sum_squares a \times sum_squares b = (scalar product a.b)^2 +
+sum_squares a \times sum_squares b = (scalar product a.b)^2 +
sum {1 <= i <j <=n} (a_i b_j - a_j b_i)^2
*)
diff --git a/examples/set.why b/examples/set.why
index ebbf5ef63..389c99b38 100644
--- a/examples/set.why
+++ b/examples/set.why
@@ -14,10 +14,10 @@ theory Bidule
goal Inter : forall s1 s2 : s. forall x : a.
mem x (inter s1 s2) -> (mem x s1 /\ mem x s2)
- goal Union_inter : forall s1 s2 s3 : s.
+ goal Union_inter : forall s1 s2 s3 : s.
equal (inter (union s1 s2) s3) (union (inter s1 s3) (inter s2 s3))
- lemma Union_assoc : forall s1 s2 s3 : s.
+ lemma Union_assoc : forall s1 s2 s3 : s.
equal (union (union s1 s2) s3) (union s1 (union s2 s3))
clone algebra.Assoc with type t = s, function op = union, goal Assoc
diff --git a/examples/sorted_list.why b/examples/sorted_list.why
index 0205c1208..0ed9f8dd6 100644
--- a/examples/sorted_list.why
+++ b/examples/sorted_list.why
@@ -30,13 +30,13 @@ theory SortedList
forall x y : t, l : list t.
x <= y -> sorted (Cons y l) -> sorted (Cons x (Cons y l))
- lemma sorted_inf:
- forall x y: t, l: list t. x <= y -> sorted (Cons y l) ->
- sorted (Cons x l)
-
+ lemma sorted_inf:
+ forall x y: t, l: list t. x <= y -> sorted (Cons y l) ->
+ sorted (Cons x l)
- lemma sorted_mem:
- forall x: t, l: list t. sorted (Cons x l) ->
+
+ lemma sorted_mem:
+ forall x: t, l: list t. sorted (Cons x l) ->
forall y: t. mem y l -> x <= y
(* by induction on l *)
diff --git a/examples/tests-provers/alt-ergo-models.why b/examples/tests-provers/alt-ergo-models.why
index d7077f04b..0c1ff5588 100644
--- a/examples/tests-provers/alt-ergo-models.why
+++ b/examples/tests-provers/alt-ergo-models.why
@@ -5,10 +5,10 @@ theory T
goal g_no_lab : forall x:int. x >= 42 -> x + 3 <= 50
- goal g_lab0 : forall x "model:0":int. ("model:cond" x >= 42) ->
+ goal g_lab0 : forall x "model:0":int. ("model:cond" x >= 42) ->
("model:concl" x + 3 <= 50)
- goal g_lab1 : forall x "model:1":int. ("model:cond" x >= 42) ->
+ goal g_lab1 : forall x "model:1":int. ("model:cond" x >= 42) ->
("model:concl" x + 3 <= 50)
constant g : int
@@ -46,11 +46,11 @@ goal test_overflow_int16:
goal test_overflow_int16_alt:
forall x "model:0" y "model:0" : int.
- -65536 <= x <= 65535 /\ -65536 <= y <= 65535 -> -65536 <= x+y <= 65535
+ -65536 <= x <= 65535 /\ -65536 <= y <= 65535 -> -65536 <= x+y <= 65535
goal test_overflow_int16_bis:
forall x "model:0" y "model:0" : int.
- is_int16 x /\ is_int16 y /\
+ is_int16 x /\ is_int16 y /\
("model:cond1" 0 <= x) /\ (x <= y) -> is_int16 (x + y)
predicate is_int32 (x:int) = -2147483648 <= x <= 2147483647
@@ -83,7 +83,7 @@ theory ModelArray
use import map.Map
-goal t1 : forall t "model:0" :map int int, i "model:0" : int.
+goal t1 : forall t "model:0" :map int int, i "model:0" : int.
get (set t 0 42) i = get t i
end
diff --git a/examples/triangle_inequality.why b/examples/triangle_inequality.why
index 96901d998..d71636fcc 100644
--- a/examples/triangle_inequality.why
+++ b/examples/triangle_inequality.why
@@ -1,9 +1,9 @@
-(** {1 The Triangle Inequality}
+(** {1 The Triangle Inequality}
by Claude Marché, using suggestions from Guillaume Melquiond
- We first prove the Cauchy-Schwarz inequality.
+ We first prove the Cauchy-Schwarz inequality.
See also on Wikipedia: {h <a
href="http://en.wikipedia.org/wiki/Cauchy–Schwarz_inequality">Cauchy-Schwarz
diff --git a/examples/vacit_sort.why b/examples/vacit_sort.why
index 3b59cfcf2..3f68daaee 100644
--- a/examples/vacit_sort.why
+++ b/examples/vacit_sort.why
@@ -2,7 +2,7 @@ theory Sorted
use import int.Int
use real.Real
use import map.Map
-
+
type array = map int real
type multi = map real int
@@ -23,16 +23,16 @@ theory Sorted
(*
function model_aux(m1 : array, i : int) : multi
- axiom Model_aux_def1 :
+ axiom Model_aux_def1 :
forall m1 : array. forall i : int. forall v : real.
- 1 <= i /\ i <= n ->
+ 1 <= i /\ i <= n ->
get(model_aux(m1,i),v) =
if get(m1,i)=v then get(model_aux(m1,i+1),v) + 1
else get(model_aux(m1,i+1),v)
- axiom Model_aux_def2 :
+ axiom Model_aux_def2 :
forall m1 : array. forall v : real. get(model_aux(m1,n+1),v) = 0
-
+
predicate model(m1 : array, m2 : multi) = model_aux(m1, 1) = m2
*)
@@ -41,7 +41,7 @@ theory Sorted
axiom TPTP2 : forall x,y : real. x < y -> x<>y*)
- goal G :
+ goal G :
forall m1 : array.
m1[1] = 42. ->
m1[2] = 13. ->
@@ -57,7 +57,7 @@ theory Sorted
m2[3] = 42. /\
m2[4] = 45.
-(* goal G_false :
+(* goal G_false :
forall m1 : array.
m1[1] = 42. ->
m1[2] = 13. ->
@@ -70,5 +70,5 @@ theory Sorted
m2[1] = 42. /\
m2[2] = 13. /\
m2[3] = 42.
-*)
+*)
end
diff --git a/misc/fixnames.sed b/misc/fixnames.sed
deleted file mode 100644
index 2b6bb84c3..000000000
--- a/misc/fixnames.sed
+++ /dev/null
@@ -1,3 +0,0 @@
-s/Francois Bobot/François Bobot/g;
-s/Jean-Christophe Filliatre/Jean-Christophe Filliâtre/g;
-s/Claude Marche/Claude Marché/g
diff --git a/misc/headache_config.txt b/misc/headache_config.txt
index 98d417089..0adc15346 100644
--- a/misc/headache_config.txt
+++ b/misc/headache_config.txt
@@ -2,12 +2,12 @@
| "META.in" -> no
| "stdlib.ml[i]?" -> no
# Objective Caml source
-| ".*\\.ml[il4]?" -> frame open:"(*" line:"*" close:"*)"
-| ".*\\.ml[il4]?\\.in" -> frame open:"(*" line:"*" close:"*)"
-| ".*\\.mly" -> frame open:"/*" line:"*" close:"*/"
+| ".*\\.ml[il4]?" -> frame width:62 open:"(*" line:"*" close:"*)"
+| ".*\\.ml[il4]?\\.in" -> frame width:62 open:"(*" line:"*" close:"*)"
+| ".*\\.mly" -> frame width:62 open:"/*" line:"*" close:"*/"
# C source
-| ".*\\.c" -> frame open:"/*" line:"*" close:"*/"
+| ".*\\.c" -> frame width:62 open:"/*" line:"*" close:"*/"
# Misc
-| "configure.in" -> frame open:"#" line:"#" close:"#"
-| "Makefile.in" -> frame open:"#" line:"#" close:"#"
-| "README" -> frame open:"#" line:"#" close:"#"
+| "configure.in" -> frame width:62 open:"#" line:"#" close:"#"
+| "Makefile.in" -> frame width:62 open:"#" line:"#" close:"#"
+| "README" -> frame width:62 open:"#" line:"#" close:"#"
diff --git a/misc/header.txt b/misc/header.txt
index 8af6648a0..d60d76bcc 100644
--- a/misc/header.txt
+++ b/misc/header.txt
@@ -1,17 +1,8 @@
-Copyright (C) 2010-2012
- Francois Bobot
- Jean-Christophe Filliatre
- Claude Marche
- Guillaume Melquiond
- Andrei Paskevich
+The Why3 Verification Platform / The Why3 Development Team
+Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University
-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.
+This software is distributed under the terms of the GNU Lesser
+General Public License version 2.1, with the special exception
+on linking described in file LICENSE.
diff --git a/misc/header_gm.txt b/misc/header_gm.txt
deleted file mode 100644
index 8af6648a0..000000000
--- a/misc/header_gm.txt
+++ /dev/null
@@ -1,17 +0,0 @@
-
-Copyright (C) 2010-2012
- Francois Bobot
- Jean-Christophe Filliatre
- Claude Marche
- Guillaume Melquiond
- 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.
-
diff --git a/misc/header_jk.txt b/misc/header_jk.txt
deleted file mode 100644
index 8f1778b2b..000000000
--- a/misc/header_jk.txt
+++ /dev/null
@@ -1,17 +0,0 @@
-
-Copyright (C) 2010-2012
- Francois Bobot
- Jean-Christophe Filliatre
- Johannes Kanig
- Claude Marche
- 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.
-
diff --git a/misc/header_sc.txt b/misc/header_sc.txt
deleted file mode 100644
index 57ceb79c2..000000000
--- a/misc/header_sc.txt
+++ /dev/null
@@ -1,17 +0,0 @@
-
-Copyright (C) 2010-2012
- Francois Bobot
- Simon Cruanes
- Jean-Christophe Filliatre
- Claude Marche
- 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.
-
diff --git a/plugins/parser/genequlin.ml b/plugins/parser/genequlin.ml
index 92ba4ad50..65a3c035b 100644
--- a/plugins/parser/genequlin.ml
+++ b/plugins/parser/genequlin.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(*
*)
diff --git a/plugins/tptp/tptp_ast.ml b/plugins/tptp/tptp_ast.ml
index 5898bc7de..285dee655 100644
--- a/plugins/tptp/tptp_ast.ml
+++ b/plugins/tptp/tptp_ast.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
type loc = Why3.Loc.position
diff --git a/plugins/tptp/tptp_lexer.mli b/plugins/tptp/tptp_lexer.mli
index 0f8d70dcd..08d3c493e 100644
--- a/plugins/tptp/tptp_lexer.mli
+++ b/plugins/tptp/tptp_lexer.mli
@@ -1,20 +1,11 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/plugins/tptp/tptp_lexer.mll b/plugins/tptp/tptp_lexer.mll
index 169d068fe..be4c7387f 100644
--- a/plugins/tptp/tptp_lexer.mll
+++ b/plugins/tptp/tptp_lexer.mll
@@ -1,29 +1,20 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
{
open Format
open Lexing
open Tptp_ast
open Tptp_parser
-
+
open Why3
(* lexical errors *)
diff --git a/plugins/tptp/tptp_parser.mly b/plugins/tptp/tptp_parser.mly
index a87b43685..6a235a330 100644
--- a/plugins/tptp/tptp_parser.mly
+++ b/plugins/tptp/tptp_parser.mly
@@ -1,22 +1,13 @@
-/**************************************************************************/
-/* */
-/* Copyright (C) 2010-2012 */
-/* François Bobot */
-/* Jean-Christophe Filliâtre */
-/* Claude Marché */
-/* Guillaume Melquiond */
-/* 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. */
-/* */
-/**************************************************************************/
+/********************************************************************/
+/* */
+/* The Why3 Verification Platform / The Why3 Development Team */
+/* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University */
+/* */
+/* This software is distributed under the terms of the GNU Lesser */
+/* General Public License version 2.1, with the special exception */
+/* on linking described in file LICENSE. */
+/* */
+/********************************************************************/
%{
diff --git a/plugins/tptp/tptp_printer.ml b/plugins/tptp/tptp_printer.ml
index 3cd4bb042..f743b8152 100644
--- a/plugins/tptp/tptp_printer.ml
+++ b/plugins/tptp/tptp_printer.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
diff --git a/plugins/tptp/tptp_printer.mli b/plugins/tptp/tptp_printer.mli
index 0f8d70dcd..08d3c493e 100644
--- a/plugins/tptp/tptp_printer.mli
+++ b/plugins/tptp/tptp_printer.mli
@@ -1,20 +1,11 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/plugins/tptp/tptp_typing.ml b/plugins/tptp/tptp_typing.ml
index 7887edf0f..4f3448836 100644
--- a/plugins/tptp/tptp_typing.ml
+++ b/plugins/tptp/tptp_typing.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Tptp_ast
diff --git a/plugins/tptp/tptp_typing.mli b/plugins/tptp/tptp_typing.mli
index e30d3ffd4..f45e0e5fc 100644
--- a/plugins/tptp/tptp_typing.mli
+++ b/plugins/tptp/tptp_typing.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
val typecheck : unit Why3.Env.library -> Why3.Env.pathname ->
Tptp_ast.tptp_file -> Why3.Theory.theory Why3.Util.Mstr.t
diff --git a/plugins/transform/hypothesis_selection.ml b/plugins/transform/hypothesis_selection.ml
index 917516d99..280536afa 100644
--- a/plugins/transform/hypothesis_selection.ml
+++ b/plugins/transform/hypothesis_selection.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Simon Cruanes *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(*s Transformation which removes most hypothesis, only keeping the one
a graph-based heuristic finds close enough to the goal *)
diff --git a/src/coq-tactic/coqCompat.8.3.ml b/src/coq-tactic/coqCompat.8.3.ml
index 4806b6580..62131beb2 100644
--- a/src/coq-tactic/coqCompat.8.3.ml
+++ b/src/coq-tactic/coqCompat.8.3.ml
@@ -1,3 +1,13 @@
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
let body_of_constant c = c.Declarations.const_body
diff --git a/src/coq-tactic/coqCompat.8.4.ml b/src/coq-tactic/coqCompat.8.4.ml
index 0e4ad33bc..e10a07326 100644
--- a/src/coq-tactic/coqCompat.8.4.ml
+++ b/src/coq-tactic/coqCompat.8.4.ml
@@ -1,3 +1,13 @@
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
let body_of_constant = Declarations.body_of_constant
diff --git a/src/coq-tactic/coqCompat.mli b/src/coq-tactic/coqCompat.mli
index 0bdb18b1d..047a16804 100644
--- a/src/coq-tactic/coqCompat.mli
+++ b/src/coq-tactic/coqCompat.mli
@@ -1,3 +1,13 @@
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
val body_of_constant :
Declarations.constant_body -> Declarations.constr_substituted option
diff --git a/src/coq-tactic/g_why3tac.ml4 b/src/coq-tactic/g_why3tac.ml4
index bc8e71db1..36ef90e5a 100644
--- a/src/coq-tactic/g_why3tac.ml4
+++ b/src/coq-tactic/g_why3tac.ml4
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(*i camlp4deps: "parsing/grammar.cma" i*)
diff --git a/src/coq-tactic/why3tac.ml b/src/coq-tactic/why3tac.ml
index 240435150..bf44fec58 100644
--- a/src/coq-tactic/why3tac.ml
+++ b/src/coq-tactic/why3tac.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Names
open Namegen
@@ -1079,7 +1070,7 @@ let is_goal s =
n >= 11 && String.sub s 0 11 = "Unnamed_thm" ||
n >= 9 && String.sub s (n - 9) 9 = "_admitted"
-let tr_top_decl ((sp, kn),node) =
+let tr_top_decl ((sp, kn),node) =
CoqCompat.on_leaf_node node (function lobj ->
let dep = empty_dep () in
let env = Global.env () in
diff --git a/src/core/decl.ml b/src/core/decl.ml
index 68d392ebe..97b29fce1 100644
--- a/src/core/decl.ml
+++ b/src/core/decl.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/core/decl.mli b/src/core/decl.mli
index 0e5b80b3d..acdf7b4ac 100644
--- a/src/core/decl.mli
+++ b/src/core/decl.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Stdlib
diff --git a/src/core/env.ml b/src/core/env.ml
index a5227af9a..726a621f7 100644
--- a/src/core/env.ml
+++ b/src/core/env.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/core/env.mli b/src/core/env.mli
index 4584ea498..215109435 100644
--- a/src/core/env.mli
+++ b/src/core/env.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Theory
diff --git a/src/core/ident.ml b/src/core/ident.ml
index 15d570c16..2b37feaca 100644
--- a/src/core/ident.ml
+++ b/src/core/ident.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Stdlib
open Util
diff --git a/src/core/ident.mli b/src/core/ident.mli
index 3e0e9bd58..16f02b2e3 100644
--- a/src/core/ident.mli
+++ b/src/core/ident.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Stdlib
diff --git a/src/core/pattern.ml b/src/core/pattern.ml
index 41656f4e4..66ec3130d 100644
--- a/src/core/pattern.ml
+++ b/src/core/pattern.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/core/pattern.mli b/src/core/pattern.mli
index 59e8b3773..1140dcddb 100644
--- a/src/core/pattern.mli
+++ b/src/core/pattern.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(* Compilation of pattern-matching *)
diff --git a/src/core/pretty.ml b/src/core/pretty.ml
index 5efbc2579..beb58a215 100644
--- a/src/core/pretty.ml
+++ b/src/core/pretty.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Pp
diff --git a/src/core/pretty.mli b/src/core/pretty.mli
index 4f9302209..daf4c0c1f 100644
--- a/src/core/pretty.mli
+++ b/src/core/pretty.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Ident
diff --git a/src/core/printer.ml b/src/core/printer.ml
index a3ebafefc..f98d86612 100644
--- a/src/core/printer.ml
+++ b/src/core/printer.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Pp
diff --git a/src/core/printer.mli b/src/core/printer.mli
index 5eb3ca8aa..eb34c5006 100644
--- a/src/core/printer.mli
+++ b/src/core/printer.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Ident
open Ty
diff --git a/src/core/task.ml b/src/core/task.ml
index c3e785d71..f5a9756ee 100644
--- a/src/core/task.ml
+++ b/src/core/task.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/core/task.mli b/src/core/task.mli
index 9539d9138..89caf0655 100644
--- a/src/core/task.mli
+++ b/src/core/task.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Proof Tasks, Cloning and Meta History *)
diff --git a/src/core/term.ml b/src/core/term.ml
index 4a69c7f6c..a08fddca4 100644
--- a/src/core/term.ml
+++ b/src/core/term.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/core/term.mli b/src/core/term.mli
index abf579932..37b59bc94 100644
--- a/src/core/term.mli
+++ b/src/core/term.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Stdlib
open Ident
diff --git a/src/core/theory.ml b/src/core/theory.ml
index f4e15c050..a40ceef80 100644
--- a/src/core/theory.ml
+++ b/src/core/theory.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Util
diff --git a/src/core/theory.mli b/src/core/theory.mli
index b95e03039..fcf53d40e 100644
--- a/src/core/theory.mli
+++ b/src/core/theory.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Stdlib
open Util
diff --git a/src/core/trans.ml b/src/core/trans.ml
index 0dc08fe82..3ac782bea 100644
--- a/src/core/trans.ml
+++ b/src/core/trans.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Util
diff --git a/src/core/trans.mli b/src/core/trans.mli
index f1f9d017d..738d0a642 100644
--- a/src/core/trans.mli
+++ b/src/core/trans.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Ty
open Term
diff --git a/src/core/ty.ml b/src/core/ty.ml
index 2ee7df3cf..85958952e 100644
--- a/src/core/ty.ml
+++ b/src/core/ty.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/core/ty.mli b/src/core/ty.mli
index 25b9b7cc9..d65f0e8fc 100644
--- a/src/core/ty.mli
+++ b/src/core/ty.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Stdlib
open Ident
diff --git a/src/driver/autodetection.ml b/src/driver/autodetection.ml
index 4a3616735..397dc75eb 100644
--- a/src/driver/autodetection.ml
+++ b/src/driver/autodetection.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(*****
1) For every block, for every executable call the prover using the
diff --git a/src/driver/autodetection.mli b/src/driver/autodetection.mli
index 197014c4a..76b006a1e 100644
--- a/src/driver/autodetection.mli
+++ b/src/driver/autodetection.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Lists prover id strings from detection config *)
val list_prover_ids : unit -> string list
diff --git a/src/driver/call_provers.ml b/src/driver/call_provers.ml
index fb4b411be..24f20f162 100644
--- a/src/driver/call_provers.ml
+++ b/src/driver/call_provers.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
diff --git a/src/driver/call_provers.mli b/src/driver/call_provers.mli
index 8d555e871..487318d58 100644
--- a/src/driver/call_provers.mli
+++ b/src/driver/call_provers.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Call provers and parse their outputs *)
diff --git a/src/driver/driver.ml b/src/driver/driver.ml
index 7a8dda003..06136fe63 100644
--- a/src/driver/driver.ml
+++ b/src/driver/driver.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Util
@@ -178,7 +169,7 @@ let load_driver = let driver_tag = ref (-1) in fun env file extra_files ->
let f,id = let l = List.rev q in List.rev (List.tl l),List.hd l in
let th =
try Env.read_theory ~format:"why" env f id
- with e when not (Debug.test_flag Debug.stack_trace) ->
+ with e when not (Debug.test_flag Debug.stack_trace) ->
raise (Loc.Located (loc,e))
in
qualid := q;
diff --git a/src/driver/driver.mli b/src/driver/driver.mli
index d793d9448..11889bcd1 100644
--- a/src/driver/driver.mli
+++ b/src/driver/driver.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Managing the drivers for external provers *)
diff --git a/src/driver/driver_ast.ml b/src/driver/driver_ast.ml
index 9228e6985..e89054f75 100644
--- a/src/driver/driver_ast.ml
+++ b/src/driver/driver_ast.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
type loc = Loc.position
diff --git a/src/driver/driver_lexer.mli b/src/driver/driver_lexer.mli
index 839e3e885..7abb3171a 100644
--- a/src/driver/driver_lexer.mli
+++ b/src/driver/driver_lexer.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
val parse_file:
(string -> Lexing.lexbuf) -> Lexing.lexbuf -> Driver_ast.file
diff --git a/src/driver/driver_lexer.mll b/src/driver/driver_lexer.mll
index 10933557e..5c545eb2b 100644
--- a/src/driver/driver_lexer.mll
+++ b/src/driver/driver_lexer.mll
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
{
open Format
diff --git a/src/driver/driver_parser.mly b/src/driver/driver_parser.mly
index 0db79ac1f..b5dbace47 100644
--- a/src/driver/driver_parser.mly
+++ b/src/driver/driver_parser.mly
@@ -1,22 +1,13 @@
-/**************************************************************************/
-/* */
-/* Copyright (C) 2010-2012 */
-/* François Bobot */
-/* Jean-Christophe Filliâtre */
-/* Claude Marché */
-/* Guillaume Melquiond */
-/* 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. */
-/* */
-/**************************************************************************/
+/********************************************************************/
+/* */
+/* The Why3 Verification Platform / The Why3 Development Team */
+/* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University */
+/* */
+/* This software is distributed under the terms of the GNU Lesser */
+/* General Public License version 2.1, with the special exception */
+/* on linking described in file LICENSE. */
+/* */
+/********************************************************************/
%{
open Driver_ast
diff --git a/src/driver/whyconf.ml b/src/driver/whyconf.ml
index c62e858e2..e525e6c88 100644
--- a/src/driver/whyconf.ml
+++ b/src/driver/whyconf.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Util
@@ -313,7 +304,7 @@ let set_prover_upgrade_policy prover policy (i, family) =
let section = set_string section "alternative" prover.prover_altern in
let section =
match policy with
- | CPU_keep ->
+ | CPU_keep ->
set_string section "policy" "keep"
| CPU_upgrade p ->
let section = set_string section "target_name" p.prover_name in
@@ -419,7 +410,7 @@ let load_policy provers acc (_,section) =
in
let _target = Mprover.find target provers in
Mprover.add source (CPU_upgrade target) acc
- | "duplicate" ->
+ | "duplicate" ->
let target =
{ prover_name = get_string section "target_name";
prover_version = get_string section "target_version";
@@ -595,7 +586,7 @@ let merge_config config filename =
let name = get_string section "name" in
let version = get_stringo section "version" in
let altern = get_stringo section "alternative" in
- mk_filter_prover ?version ?altern name
+ mk_filter_prover ?version ?altern name
with MissingField s ->
eprintf "[Warning] sec prover_modifiers is missing a '%s' field@." s;
mk_filter_prover "none"
@@ -682,7 +673,7 @@ let set_prover_upgrade_policy config prover target =
provers_upgrade_policy = m;
}
-let set_policies config policies =
+let set_policies config policies =
{ config with
config = set_policies config.config policies;
provers_upgrade_policy = policies }
diff --git a/src/driver/whyconf.mli b/src/driver/whyconf.mli
index 1c6203359..19e49cd97 100644
--- a/src/driver/whyconf.mli
+++ b/src/driver/whyconf.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Managing the configuration of Why3 *)
diff --git a/src/ide/gconfig.ml b/src/ide/gconfig.ml
index 55bf42711..4df47726e 100644
--- a/src/ide/gconfig.ml
+++ b/src/ide/gconfig.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Why3
@@ -203,7 +194,7 @@ let load_altern alterns (_,section) =
*)
let load_config config original_config =
- let main = get_main config in
+ let main = get_main config in
let ide = match get_section config "ide" with
| None -> default_ide
| Some s -> load_ide s
@@ -558,16 +549,29 @@ let show_legend_window () =
let show_about_window () =
let about_dialog =
GWindow.about_dialog
- ~name:"Why3"
+ ~name:"The Why3 Verification Platform "
~authors:["François Bobot";
"Jean-Christophe Filliâtre";
"Claude Marché";
- "Andrei Paskevich"
+ "Guillaume Melquiond";
+ "Andrei Paskevich";
+ "";
+ "with contributions of";
+ "";
+ "Sylvie Boldo";
+ "Simon Cruanes";
+ "Leon Gondelman";
+ "Johannes Kanig";
+ "David Mentré";
+ "Benjamin Monate";
+ "Thi-Minh-Tuyen Nguyen";
+ "Simão Melo de Sousa";
+ "Asma Tafat-Bouzid";
]
- ~copyright:"Copyright 2010-2011 Univ Paris-Sud, CNRS, INRIA"
- ~license:"GNU Lesser General Public License"
- ~website:"https://gforge.inria.fr/projects/why3"
- ~website_label:"Project web site"
+ ~copyright:"Copyright 2010-2012 INRIA, CNRS, Paris-Sud University"
+ ~license:"GNU Lesser General Public License version 2.1"
+ ~website:"http://why3.lri.fr"
+ ~website_label:"http://why3.lri.fr"
~version:Config.version
()
in
diff --git a/src/ide/gconfig.mli b/src/ide/gconfig.mli
index d57bc4897..630a2fa9a 100644
--- a/src/ide/gconfig.mli
+++ b/src/ide/gconfig.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
open Whyconf
diff --git a/src/ide/gmain.ml b/src/ide/gmain.ml
index 706f4b17f..54e884270 100644
--- a/src/ide/gmain.ml
+++ b/src/ide/gmain.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
@@ -549,14 +540,14 @@ let env_session () =
| None -> assert false
| Some e -> e
-let task_text t = Pp.string_of Pretty.print_task t
+let task_text t = Pp.string_of Pretty.print_task t
let split_transformation = "split_goal_wp"
let inline_transformation = "inline_goal"
let intro_transformation = "introduce_premises"
let update_task_view a =
- let text =
+ let text =
match a with
| S.Goal g ->
if (Gconfig.config ()).intro_premises then
@@ -579,7 +570,7 @@ let update_task_view a =
let b = Buffer.create 37 in
bprintf b "%a" Call_provers.print_prover_result r;
Buffer.contents b
- | S.Done r ->
+ | S.Done r ->
let out = r.Call_provers.pr_output in
begin
let env = env_session () in
@@ -814,7 +805,7 @@ let () = Warning.set_hook record_warning
let display_warnings () =
if Queue.is_empty warnings then () else
begin
- Queue.iter
+ Queue.iter
(fun (loc,msg) ->
match loc with
| None ->
@@ -830,7 +821,7 @@ let display_warnings () =
in
(* file_info#set_text msg; *)
info_window `WARNING msg
- end
+ end
(* check if provers are present *)
let () =
diff --git a/src/ide/replay.ml b/src/ide/replay.ml
index 3541b86b0..e594b663e 100644
--- a/src/ide/replay.ml
+++ b/src/ide/replay.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
@@ -217,9 +208,9 @@ let replace_prover _ _ = false
let uninstalled_prover _eS unknown =
try
- Whyconf.get_prover_upgrade_policy config unknown
+ Whyconf.get_prover_upgrade_policy config unknown
with Not_found ->
- Whyconf.CPU_keep
+ Whyconf.CPU_keep
module Scheduler = Session_scheduler.Base_scheduler(struct end)
@@ -318,7 +309,7 @@ let add_to_check_no_smoke config found_obs env_session sched =
| _ -> true)
report
in
- if report = [] then
+ if report = [] then
begin
if found_obs then
if n=m then
diff --git a/src/main.ml b/src/main.ml
index fb3a30a7f..0c7b40970 100644
--- a/src/main.ml
+++ b/src/main.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Why3
diff --git a/src/parser/denv.ml b/src/parser/denv.ml
index 39d20cb79..987e70f77 100644
--- a/src/parser/denv.ml
+++ b/src/parser/denv.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Pp
diff --git a/src/parser/denv.mli b/src/parser/denv.mli
index 674cc619b..c0421e94b 100644
--- a/src/parser/denv.mli
+++ b/src/parser/denv.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ty
diff --git a/src/parser/glob.ml b/src/parser/glob.ml
index bb35fbd8a..4739fd3c5 100644
--- a/src/parser/glob.ml
+++ b/src/parser/glob.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Ident
diff --git a/src/parser/glob.mli b/src/parser/glob.mli
index 659f94c98..c73681241 100644
--- a/src/parser/glob.mli
+++ b/src/parser/glob.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Ident
diff --git a/src/parser/lexer.mli b/src/parser/lexer.mli
index 8c65f3858..8c0dba9ed 100644
--- a/src/parser/lexer.mli
+++ b/src/parser/lexer.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** parsing entry points *)
diff --git a/src/parser/lexer.mll b/src/parser/lexer.mll
index 5222dbdf0..703ce1be3 100644
--- a/src/parser/lexer.mll
+++ b/src/parser/lexer.mll
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
{
open Format
diff --git a/src/parser/parser.mly b/src/parser/parser.mly
index 3fdcef29b..ff55fc6c0 100644
--- a/src/parser/parser.mly
+++ b/src/parser/parser.mly
@@ -1,22 +1,13 @@
-/**************************************************************************/
-/* */
-/* Copyright (C) 2010-2012 */
-/* François Bobot */
-/* Jean-Christophe Filliâtre */
-/* Claude Marché */
-/* Guillaume Melquiond */
-/* 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. */
-/* */
-/**************************************************************************/
+/********************************************************************/
+/* */
+/* The Why3 Verification Platform / The Why3 Development Team */
+/* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University */
+/* */
+/* This software is distributed under the terms of the GNU Lesser */
+/* General Public License version 2.1, with the special exception */
+/* on linking described in file LICENSE. */
+/* */
+/********************************************************************/
%{
module Incremental = struct
diff --git a/src/parser/ptree.ml b/src/parser/ptree.ml
index b3aff014d..69fe24ddc 100644
--- a/src/parser/ptree.ml
+++ b/src/parser/ptree.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(*s Parse trees. *)
diff --git a/src/parser/typing.ml b/src/parser/typing.ml
index ebb38cac1..43fe017c7 100644
--- a/src/parser/typing.ml
+++ b/src/parser/typing.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Format
diff --git a/src/parser/typing.mli b/src/parser/typing.mli
index 2949de109..4b9c0dab5 100644
--- a/src/parser/typing.mli
+++ b/src/parser/typing.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Typing environments *)
diff --git a/src/printer/alt_ergo.ml b/src/printer/alt_ergo.ml
index 550a41d25..5372ed21b 100644
--- a/src/printer/alt_ergo.ml
+++ b/src/printer/alt_ergo.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Alt-ergo printer *)
diff --git a/src/printer/alt_ergo.mli b/src/printer/alt_ergo.mli
index 0f8d70dcd..08d3c493e 100644
--- a/src/printer/alt_ergo.mli
+++ b/src/printer/alt_ergo.mli
@@ -1,20 +1,11 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/src/printer/coq.ml b/src/printer/coq.ml
index ddbd4e462..166ed0daf 100644
--- a/src/printer/coq.ml
+++ b/src/printer/coq.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Coq printer *)
@@ -787,7 +778,7 @@ let print_prop_decl ~prev info fmt (k,pr,f) =
| Paxiom -> ""
| Plemma -> "Lemma"
| Pgoal -> "Theorem"
- | Pskip -> assert false (* impossible *)
+ | Pskip -> assert false (* impossible *)
in
if stt <> "" then
match prev with
diff --git a/src/printer/coq.mli b/src/printer/coq.mli
index 3c4f2f21b..f49c3693f 100644
--- a/src/printer/coq.mli
+++ b/src/printer/coq.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(* OBSOLETE
val print_theory : Env.env -> Printer.prelude -> Printer.prelude_map ->
diff --git a/src/printer/cvc3.ml b/src/printer/cvc3.ml
index 61d153f80..448581fa3 100644
--- a/src/printer/cvc3.ml
+++ b/src/printer/cvc3.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** SMT v1 printer with some extensions *)
diff --git a/src/printer/cvc3.mli b/src/printer/cvc3.mli
index 0f8d70dcd..08d3c493e 100644
--- a/src/printer/cvc3.mli
+++ b/src/printer/cvc3.mli
@@ -1,20 +1,11 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/src/printer/gappa.ml b/src/printer/gappa.ml
index fbb696fec..b9866609a 100644
--- a/src/printer/gappa.ml
+++ b/src/printer/gappa.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Gappa printer *)
diff --git a/src/printer/gappa.mli b/src/printer/gappa.mli
index 0f8d70dcd..08d3c493e 100644
--- a/src/printer/gappa.mli
+++ b/src/printer/gappa.mli
@@ -1,20 +1,11 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/src/printer/print_number.ml b/src/printer/print_number.ml
index e70e02243..6311e9d81 100644
--- a/src/printer/print_number.ml
+++ b/src/printer/print_number.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Big_int
diff --git a/src/printer/print_number.mli b/src/printer/print_number.mli
index 6e5b5830c..5130967a1 100644
--- a/src/printer/print_number.mli
+++ b/src/printer/print_number.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
diff --git a/src/printer/pvs.ml b/src/printer/pvs.ml
index f4c727e5e..8992a6806 100644
--- a/src/printer/pvs.ml
+++ b/src/printer/pvs.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** PVS printer *)
diff --git a/src/printer/simplify.ml b/src/printer/simplify.ml
index 323821c14..eb6ebda35 100644
--- a/src/printer/simplify.ml
+++ b/src/printer/simplify.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Simplify printer *)
diff --git a/src/printer/simplify.mli b/src/printer/simplify.mli
index 0f8d70dcd..08d3c493e 100644
--- a/src/printer/simplify.mli
+++ b/src/printer/simplify.mli
@@ -1,20 +1,11 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/src/printer/smtv1.ml b/src/printer/smtv1.ml
index 092ddc9b5..e014393b6 100644
--- a/src/printer/smtv1.ml
+++ b/src/printer/smtv1.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** SMT v1 printer with some extensions *)
diff --git a/src/printer/smtv1.mli b/src/printer/smtv1.mli
index 0f8d70dcd..08d3c493e 100644
--- a/src/printer/smtv1.mli
+++ b/src/printer/smtv1.mli
@@ -1,20 +1,11 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/src/printer/smtv2.ml b/src/printer/smtv2.ml
index fe6e1ce21..d56bad7cb 100644
--- a/src/printer/smtv2.ml
+++ b/src/printer/smtv2.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** SMT v1 printer with some extensions *)
diff --git a/src/printer/smtv2.mli b/src/printer/smtv2.mli
index 0f8d70dcd..08d3c493e 100644
--- a/src/printer/smtv2.mli
+++ b/src/printer/smtv2.mli
@@ -1,20 +1,11 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/src/printer/why3printer.ml b/src/printer/why3printer.ml
index 43f4e8359..52a94bc88 100644
--- a/src/printer/why3printer.ml
+++ b/src/printer/why3printer.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Why3 printer *)
diff --git a/src/printer/why3printer.mli b/src/printer/why3printer.mli
index 0f8d70dcd..08d3c493e 100644
--- a/src/printer/why3printer.mli
+++ b/src/printer/why3printer.mli
@@ -1,20 +1,11 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/src/printer/yices.ml b/src/printer/yices.ml
index 8ac08535e..69fa67886 100644
--- a/src/printer/yices.ml
+++ b/src/printer/yices.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** SMT v1 printer with some extensions *)
diff --git a/src/programs/pgm_fastwp.ml b/src/programs/pgm_fastwp.ml
index 066b23b0c..9d64a3d99 100644
--- a/src/programs/pgm_fastwp.ml
+++ b/src/programs/pgm_fastwp.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(* CURRENTLY DEAD CODE; FOR LATER USE... *)
diff --git a/src/programs/pgm_main.ml b/src/programs/pgm_main.ml
index edc719e8c..67fd2ded9 100644
--- a/src/programs/pgm_main.ml
+++ b/src/programs/pgm_main.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(* main module for whyl *)
diff --git a/src/programs/pgm_module.ml b/src/programs/pgm_module.ml
index 24e007bbb..b490f81d5 100644
--- a/src/programs/pgm_module.ml
+++ b/src/programs/pgm_module.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
open Util
diff --git a/src/programs/pgm_module.mli b/src/programs/pgm_module.mli
index e1b2e8f09..4840d1200 100644
--- a/src/programs/pgm_module.mli
+++ b/src/programs/pgm_module.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
open Util
diff --git a/src/programs/pgm_pretty.ml b/src/programs/pgm_pretty.ml
index a85a9904a..5db2808c4 100644
--- a/src/programs/pgm_pretty.ml
+++ b/src/programs/pgm_pretty.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Why3
diff --git a/src/programs/pgm_pretty.mli b/src/programs/pgm_pretty.mli
index 2131558d0..0a56e62b4 100644
--- a/src/programs/pgm_pretty.mli
+++ b/src/programs/pgm_pretty.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
diff --git a/src/programs/pgm_ttree.ml b/src/programs/pgm_ttree.ml
index e48f50760..16fce76ed 100644
--- a/src/programs/pgm_ttree.ml
+++ b/src/programs/pgm_ttree.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
(*open Ident*)
diff --git a/src/programs/pgm_types.ml b/src/programs/pgm_types.ml
index 0f2251d3c..890144f32 100644
--- a/src/programs/pgm_types.ml
+++ b/src/programs/pgm_types.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
open Ident
diff --git a/src/programs/pgm_types.mli b/src/programs/pgm_types.mli
index 129e5322e..c6f186a72 100644
--- a/src/programs/pgm_types.mli
+++ b/src/programs/pgm_types.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
open Util
diff --git a/src/programs/pgm_typing.ml b/src/programs/pgm_typing.ml
index 42d3f3df4..642b9aa29 100644
--- a/src/programs/pgm_typing.ml
+++ b/src/programs/pgm_typing.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Why3
diff --git a/src/programs/pgm_typing.mli b/src/programs/pgm_typing.mli
index d8259fc93..246543f45 100644
--- a/src/programs/pgm_typing.mli
+++ b/src/programs/pgm_typing.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
diff --git a/src/programs/pgm_wp.ml b/src/programs/pgm_wp.ml
index 69f738d05..30d7ab5d9 100644
--- a/src/programs/pgm_wp.ml
+++ b/src/programs/pgm_wp.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Why3
diff --git a/src/programs/pgm_wp.mli b/src/programs/pgm_wp.mli
index 6fecb59b3..daea013f8 100644
--- a/src/programs/pgm_wp.mli
+++ b/src/programs/pgm_wp.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
open Term
diff --git a/src/session/session.ml b/src/session/session.ml
index 33ba50dec..39c55d83a 100644
--- a/src/session/session.ml
+++ b/src/session/session.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Stdlib
open Debug
diff --git a/src/session/session.mli b/src/session/session.mli
index 9e0a618b7..99c43d85b 100644
--- a/src/session/session.mli
+++ b/src/session/session.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Proof sessions *)
(** Define all the functions needed for managing a session:
diff --git a/src/session/session_scheduler.ml b/src/session/session_scheduler.ml
index abee3c217..eff07598f 100644
--- a/src/session/session_scheduler.ml
+++ b/src/session/session_scheduler.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Session
@@ -210,7 +201,7 @@ let schedule_any_timeout t callback =
t.running_proofs <- (Any_timeout callback) :: t.running_proofs;
run_timeout_handler t
-(* dead code
+(* dead code
let add_a_check t callback =
dprintf debug "[Sched] add a new check@.";
t.running_check <- callback :: t.running_check;
@@ -368,14 +359,14 @@ let find_prover eS a =
Session.change_prover a new_p;
match load_prover eS new_p with
| Some p -> Some (new_p,p,a)
- | None ->
+ | None ->
(* should never happen because at loading, config
ignores uninstalled prover targets.
Nevertheless, we can safely return None.
*)
None
end
- | Whyconf.CPU_duplicate new_p ->
+ | Whyconf.CPU_duplicate new_p ->
(* does a proof using new_p already exists ? *)
let g = a.proof_parent in
begin
@@ -386,12 +377,12 @@ let find_prover eS a =
with Not_found ->
(* we duplicate the proof_attempt *)
let new_a = copy_external_proof
- ~notify ~keygen:O.create ~prover:new_p ~env_session:eS a
+ ~notify ~keygen:O.create ~prover:new_p ~env_session:eS a
in
O.init new_a.proof_key (Proof_attempt new_a);
match load_prover eS new_p with
| Some p -> Some (new_p,p,new_a)
- | None ->
+ | None ->
(* should never happen because at loading, config
ignores uninstalled prover targets.
Nevertheless, we can safely return None.
@@ -402,7 +393,7 @@ let find_prover eS a =
let adapt_timelimit a =
match a.proof_state with
- | Done { Call_provers.pr_answer =
+ | Done { Call_provers.pr_answer =
(Call_provers.Valid | Call_provers.Unknown _ | Call_provers.Invalid);
Call_provers.pr_time = t } ->
let t = truncate (1.0 +. 2.0 *. t) in
@@ -505,7 +496,7 @@ let prover_on_goal eS eT ?callback ~timelimit ~memlimit p g =
a
with Not_found ->
let ep = add_external_proof ~keygen:O.create ~obsolete:false
- ~archived:false ~timelimit ~memlimit
+ ~archived:false ~timelimit ~memlimit
~edit:None g p Interrupted in
O.init ep.proof_key (Proof_attempt ep);
ep
@@ -821,7 +812,7 @@ let edit_proof eS sched ~default_editor a =
else
match find_prover eS a with
| None ->
- (* nothing to do
+ (* nothing to do
TODO: report an non replayable proof if some option is set
*)
()
@@ -914,9 +905,9 @@ let rec clean = function
iter_goal
(fun _ -> ())
(fun t ->
- (* NO !!!
+ (* NO !!!
if not t.transf_verified then remove_transformation t
- else
+ else
*)
transf_iter clean t)
(fun m ->
diff --git a/src/session/session_scheduler.mli b/src/session/session_scheduler.mli
index d5cc90f06..b74888f28 100644
--- a/src/session/session_scheduler.mli
+++ b/src/session/session_scheduler.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Proof sessions *)
diff --git a/src/session/session_tools.ml b/src/session/session_tools.ml
index e08f4127f..4f45fe576 100644
--- a/src/session/session_tools.ml
+++ b/src/session/session_tools.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Whyconf
open Session
diff --git a/src/session/session_tools.mli b/src/session/session_tools.mli
index 9c86350c3..4e4c23b73 100644
--- a/src/session/session_tools.mli
+++ b/src/session/session_tools.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** This module contains generic tools which can be applied on sessions *)
diff --git a/src/session/termcode.ml b/src/session/termcode.ml
index a09910bc8..c380310b4 100644
--- a/src/session/termcode.ml
+++ b/src/session/termcode.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Term
diff --git a/src/session/termcode.mli b/src/session/termcode.mli
index 5cd3c2147..ffa3bd195 100644
--- a/src/session/termcode.mli
+++ b/src/session/termcode.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
val current_shape_version : int
diff --git a/src/session/xml.mli b/src/session/xml.mli
index 486ce9620..d6b3387a1 100644
--- a/src/session/xml.mli
+++ b/src/session/xml.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
type element =
diff --git a/src/session/xml.mll b/src/session/xml.mll
index 4040105c8..8727e5173 100644
--- a/src/session/xml.mll
+++ b/src/session/xml.mll
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
{
diff --git a/src/tools/cpulimit.c b/src/tools/cpulimit.c
index 285f274cd..0522c12d6 100644
--- a/src/tools/cpulimit.c
+++ b/src/tools/cpulimit.c
@@ -1,22 +1,13 @@
-/**************************************************************************/
-/* */
-/* Copyright (C) 2010-2012 */
-/* François Bobot */
-/* Jean-Christophe Filliâtre */
-/* Claude Marché */
-/* Guillaume Melquiond */
-/* 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. */
-/* */
-/**************************************************************************/
+/********************************************************************/
+/* */
+/* The Why3 Verification Platform / The Why3 Development Team */
+/* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University */
+/* */
+/* This software is distributed under the terms of the GNU Lesser */
+/* General Public License version 2.1, with the special exception */
+/* on linking described in file LICENSE. */
+/* */
+/********************************************************************/
#include <sys/types.h>
#include <sys/time.h>
diff --git a/src/transform/abstraction.ml b/src/transform/abstraction.ml
index 353d08e0d..c6d9f75cd 100644
--- a/src/transform/abstraction.ml
+++ b/src/transform/abstraction.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Ident
diff --git a/src/transform/abstraction.mli b/src/transform/abstraction.mli
index e9f4febdf..219be4cec 100644
--- a/src/transform/abstraction.mli
+++ b/src/transform/abstraction.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/src/transform/close_epsilon.ml b/src/transform/close_epsilon.ml
index a6c51e105..7ac123e84 100644
--- a/src/transform/close_epsilon.ml
+++ b/src/transform/close_epsilon.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Johannes Kanig *)
-(* Claude Marché *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Theory
open Decl
diff --git a/src/transform/close_epsilon.mli b/src/transform/close_epsilon.mli
index 4bc94abfe..2569eee23 100644
--- a/src/transform/close_epsilon.mli
+++ b/src/transform/close_epsilon.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Johannes Kanig *)
-(* Claude Marché *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** The aim of this translation is to obtain terms where all epsilon
abstractions are closed *)
diff --git a/src/transform/discriminate.ml b/src/transform/discriminate.ml
index 2ecffd6f1..153bef0b4 100644
--- a/src/transform/discriminate.ml
+++ b/src/transform/discriminate.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/transform/discriminate.mli b/src/transform/discriminate.mli
index e9c46d25f..13e8b21b2 100644
--- a/src/transform/discriminate.mli
+++ b/src/transform/discriminate.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
val meta_inst : Theory.meta
val meta_lskept : Theory.meta
diff --git a/src/transform/eliminate_algebraic.ml b/src/transform/eliminate_algebraic.ml
index 2c844a17a..9c01c2793 100644
--- a/src/transform/eliminate_algebraic.ml
+++ b/src/transform/eliminate_algebraic.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/transform/eliminate_algebraic.mli b/src/transform/eliminate_algebraic.mli
index 057668922..ff61457f4 100644
--- a/src/transform/eliminate_algebraic.mli
+++ b/src/transform/eliminate_algebraic.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
val compile_match : Task.task Trans.trans
diff --git a/src/transform/eliminate_definition.ml b/src/transform/eliminate_definition.ml
index 5f0b995d4..49b641145 100644
--- a/src/transform/eliminate_definition.ml
+++ b/src/transform/eliminate_definition.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Ident
open Ty
diff --git a/src/transform/eliminate_definition.mli b/src/transform/eliminate_definition.mli
index acabe65b1..aa8b6f138 100644
--- a/src/transform/eliminate_definition.mli
+++ b/src/transform/eliminate_definition.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
val eliminate_builtin : Task.task Trans.trans
diff --git a/src/transform/eliminate_if.ml b/src/transform/eliminate_if.ml
index 46ede0629..526763db2 100644
--- a/src/transform/eliminate_if.ml
+++ b/src/transform/eliminate_if.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/transform/eliminate_if.mli b/src/transform/eliminate_if.mli
index c63ad4303..72ce611cb 100644
--- a/src/transform/eliminate_if.mli
+++ b/src/transform/eliminate_if.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
val eliminate_if_term : Task.task Trans.trans
val eliminate_if_fmla : Task.task Trans.trans
diff --git a/src/transform/eliminate_inductive.ml b/src/transform/eliminate_inductive.ml
index 658bfdb36..08a549619 100644
--- a/src/transform/eliminate_inductive.ml
+++ b/src/transform/eliminate_inductive.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Ident
open Term
diff --git a/src/transform/eliminate_inductive.mli b/src/transform/eliminate_inductive.mli
index d71d58c4a..cabc403b1 100644
--- a/src/transform/eliminate_inductive.mli
+++ b/src/transform/eliminate_inductive.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
val eliminate_inductive : Task.task Trans.trans
diff --git a/src/transform/eliminate_let.ml b/src/transform/eliminate_let.ml
index 964a3237d..ca63a4c06 100644
--- a/src/transform/eliminate_let.ml
+++ b/src/transform/eliminate_let.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Term
diff --git a/src/transform/eliminate_let.mli b/src/transform/eliminate_let.mli
index 4ca373381..603929c98 100644
--- a/src/transform/eliminate_let.mli
+++ b/src/transform/eliminate_let.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** eliminate let *)
diff --git a/src/transform/encoding.ml b/src/transform/encoding.ml
index 3ed8fbcd8..7218f55cb 100644
--- a/src/transform/encoding.ml
+++ b/src/transform/encoding.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ty
diff --git a/src/transform/encoding.mli b/src/transform/encoding.mli
index 4d61e3e2f..84bcaab07 100644
--- a/src/transform/encoding.mli
+++ b/src/transform/encoding.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
val ft_select_kept : (Env.env,Ty.Sty.t) Trans.flag_trans
val ft_enco_kept : (Env.env,Task.task) Trans.flag_trans
diff --git a/src/transform/encoding_decoexp.ml b/src/transform/encoding_decoexp.ml
index cf9e62288..f3c092a0c 100644
--- a/src/transform/encoding_decoexp.ml
+++ b/src/transform/encoding_decoexp.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/transform/encoding_decoexp.mli b/src/transform/encoding_decoexp.mli
index 0f8d70dcd..08d3c493e 100644
--- a/src/transform/encoding_decoexp.mli
+++ b/src/transform/encoding_decoexp.mli
@@ -1,20 +1,11 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/src/transform/encoding_decorate.ml b/src/transform/encoding_decorate.ml
index 89dbc10aa..0ec17bf7a 100644
--- a/src/transform/encoding_decorate.ml
+++ b/src/transform/encoding_decorate.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/transform/encoding_decorate.mli b/src/transform/encoding_decorate.mli
index 0f8d70dcd..08d3c493e 100644
--- a/src/transform/encoding_decorate.mli
+++ b/src/transform/encoding_decorate.mli
@@ -1,20 +1,11 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/src/transform/encoding_explicit.ml b/src/transform/encoding_explicit.ml
index 1a76fbbdc..8d290cd60 100644
--- a/src/transform/encoding_explicit.ml
+++ b/src/transform/encoding_explicit.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** transformation from polymorphic logic to untyped logic. The polymorphic
logic must not have finite support types. *)
@@ -24,8 +15,8 @@ logic must not have finite support types. *)
(* dead code
open Ident
-open Ty
-open Term
+open Ty
+open Term
open Libencoding
(** module with printing functions *)
diff --git a/src/transform/encoding_explicit.mli b/src/transform/encoding_explicit.mli
index 0f8d70dcd..08d3c493e 100644
--- a/src/transform/encoding_explicit.mli
+++ b/src/transform/encoding_explicit.mli
@@ -1,20 +1,11 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/src/transform/encoding_guard.ml b/src/transform/encoding_guard.ml
index 13befd007..db016267a 100644
--- a/src/transform/encoding_guard.ml
+++ b/src/transform/encoding_guard.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** transformation from polymorphic logic to untyped logic. The polymorphic
logic must not have finite support types. *)
diff --git a/src/transform/encoding_instantiate.ml b/src/transform/encoding_instantiate.ml
index 2b8b04cf9..173d5c144 100644
--- a/src/transform/encoding_instantiate.ml
+++ b/src/transform/encoding_instantiate.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Stdlib
open Util
diff --git a/src/transform/encoding_instantiate.mli b/src/transform/encoding_instantiate.mli
index 0f8d70dcd..08d3c493e 100644
--- a/src/transform/encoding_instantiate.mli
+++ b/src/transform/encoding_instantiate.mli
@@ -1,20 +1,11 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/src/transform/encoding_select.ml b/src/transform/encoding_select.ml
index 6a0bfc477..04ecf6ce1 100644
--- a/src/transform/encoding_select.ml
+++ b/src/transform/encoding_select.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ty
diff --git a/src/transform/encoding_select.mli b/src/transform/encoding_select.mli
index 0f8d70dcd..08d3c493e 100644
--- a/src/transform/encoding_select.mli
+++ b/src/transform/encoding_select.mli
@@ -1,20 +1,11 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/src/transform/encoding_sort.ml b/src/transform/encoding_sort.ml
index ad6c2b3eb..589b49cd7 100644
--- a/src/transform/encoding_sort.ml
+++ b/src/transform/encoding_sort.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/transform/encoding_twin.ml b/src/transform/encoding_twin.ml
index 9703e2795..2e3337887 100644
--- a/src/transform/encoding_twin.ml
+++ b/src/transform/encoding_twin.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/transform/encoding_twin.mli b/src/transform/encoding_twin.mli
index 0f8d70dcd..08d3c493e 100644
--- a/src/transform/encoding_twin.mli
+++ b/src/transform/encoding_twin.mli
@@ -1,20 +1,11 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/src/transform/eval_match.ml b/src/transform/eval_match.ml
index 303e9ba01..18e52fc23 100644
--- a/src/transform/eval_match.ml
+++ b/src/transform/eval_match.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Ident
open Ty
diff --git a/src/transform/eval_match.mli b/src/transform/eval_match.mli
index 64e4aeb6d..7ef9ee4a3 100644
--- a/src/transform/eval_match.mli
+++ b/src/transform/eval_match.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Ty
open Term
diff --git a/src/transform/filter_trigger.ml b/src/transform/filter_trigger.ml
index b914e5e56..f64421dc7 100644
--- a/src/transform/filter_trigger.ml
+++ b/src/transform/filter_trigger.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Term
diff --git a/src/transform/induction.ml b/src/transform/induction.ml
index 66c4b3663..56d81c6d5 100644
--- a/src/transform/induction.ml
+++ b/src/transform/induction.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Ident
open Ty
@@ -393,9 +384,9 @@ let () =
(*************************** WITH LEX. ORDER ***************************)
(***************************************************************************)
-(* induction_int_lex : induction tactic for ordered int tuples.
-No heuristic is provided. Use labels. Generalized variables inside
-the induction hypothesis are the variables on the right of the rightmost
+(* induction_int_lex : induction tactic for ordered int tuples.
+No heuristic is provided. Use labels. Generalized variables inside
+the induction hypothesis are the variables on the right of the rightmost
induction variable.*)
(* separate prenex universal quantification from the body of the formula*)
diff --git a/src/transform/inlining.ml b/src/transform/inlining.ml
index c6b0522d6..559518332 100644
--- a/src/transform/inlining.ml
+++ b/src/transform/inlining.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ty
diff --git a/src/transform/inlining.mli b/src/transform/inlining.mli
index 5e8ffcf91..2ff070586 100644
--- a/src/transform/inlining.mli
+++ b/src/transform/inlining.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Inline non-recursive definitions *)
diff --git a/src/transform/instantiate_predicate.ml b/src/transform/instantiate_predicate.ml
index 4bb06d747..6ae081ea7 100644
--- a/src/transform/instantiate_predicate.ml
+++ b/src/transform/instantiate_predicate.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Decl
open Term
diff --git a/src/transform/introduction.ml b/src/transform/introduction.ml
index 65a67cf34..07c2d6520 100644
--- a/src/transform/introduction.ml
+++ b/src/transform/introduction.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(*
This module was poorly designed by Claude Marché, with the
diff --git a/src/transform/introduction.mli b/src/transform/introduction.mli
index 17a066484..5c888ed40 100644
--- a/src/transform/introduction.mli
+++ b/src/transform/introduction.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Introduction of premises *)
diff --git a/src/transform/libencoding.ml b/src/transform/libencoding.ml
index 558ee92d7..b5f8aaffc 100644
--- a/src/transform/libencoding.ml
+++ b/src/transform/libencoding.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/transform/libencoding.mli b/src/transform/libencoding.mli
index 07669f2d4..504d64279 100644
--- a/src/transform/libencoding.mli
+++ b/src/transform/libencoding.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Ty
open Term
diff --git a/src/transform/lift_epsilon.ml b/src/transform/lift_epsilon.ml
index 153227f5c..e99f3c055 100644
--- a/src/transform/lift_epsilon.ml
+++ b/src/transform/lift_epsilon.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Johannes Kanig *)
-(* Claude Marché *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Close_epsilon
open Term
diff --git a/src/transform/lift_epsilon.mli b/src/transform/lift_epsilon.mli
index 49136d809..08d3c493e 100644
--- a/src/transform/lift_epsilon.mli
+++ b/src/transform/lift_epsilon.mli
@@ -1,20 +1,11 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Johannes Kanig *)
-(* Claude Marché *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
diff --git a/src/transform/protect_finite.ml b/src/transform/protect_finite.ml
index 9d5af4ece..474617026 100644
--- a/src/transform/protect_finite.ml
+++ b/src/transform/protect_finite.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Ident
open Ty
diff --git a/src/transform/protect_finite.mli b/src/transform/protect_finite.mli
index b72e8ec75..805be6806 100644
--- a/src/transform/protect_finite.mli
+++ b/src/transform/protect_finite.mli
@@ -1,21 +1,12 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
val protect_finite : Task.task Trans.trans
diff --git a/src/transform/simplify_array.ml b/src/transform/simplify_array.ml
index 3f2bd61e2..bc8dd7530 100644
--- a/src/transform/simplify_array.ml
+++ b/src/transform/simplify_array.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Term
open Theory
diff --git a/src/transform/simplify_formula.ml b/src/transform/simplify_formula.ml
index d420e5a1a..5890c1f0e 100644
--- a/src/transform/simplify_formula.ml
+++ b/src/transform/simplify_formula.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Term
open Decl
diff --git a/src/transform/simplify_formula.mli b/src/transform/simplify_formula.mli
index 16f22bce6..81d613471 100644
--- a/src/transform/simplify_formula.mli
+++ b/src/transform/simplify_formula.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
val fmla_simpl : Term.term -> Term.term
diff --git a/src/transform/simplify_recursive_definition.ml b/src/transform/simplify_recursive_definition.ml
index f1ec3de75..5943d4bc3 100644
--- a/src/transform/simplify_recursive_definition.ml
+++ b/src/transform/simplify_recursive_definition.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/transform/simplify_recursive_definition.mli b/src/transform/simplify_recursive_definition.mli
index a893fe9d1..be527fc3b 100644
--- a/src/transform/simplify_recursive_definition.mli
+++ b/src/transform/simplify_recursive_definition.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(* Simplify the recursive type and logic definition *)
diff --git a/src/transform/smoke_detector.ml b/src/transform/smoke_detector.ml
index 4a7e42051..5e9299b15 100644
--- a/src/transform/smoke_detector.ml
+++ b/src/transform/smoke_detector.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(* Smoke detector try to find if the axiomatisation is self-contradicting.
@@ -34,7 +25,7 @@ let top = create t_not
let rec neg f = match f.t_node with
| Tbinop (Timplies,f1,f2) -> t_and f1 (neg f2)
-(* Would show too much smoke ?
+(* Would show too much smoke ?
| Tbinop (Timplies,f1,f2) -> t_implies f1 (neg f2)
*)
| Tquant (Tforall,fq) ->
diff --git a/src/transform/smoke_detector.mli b/src/transform/smoke_detector.mli
index 377f5c688..40aa0a03b 100644
--- a/src/transform/smoke_detector.mli
+++ b/src/transform/smoke_detector.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
val top : Task.task Trans.trans
val deep : Task.task Trans.trans
diff --git a/src/transform/split_goal.ml b/src/transform/split_goal.ml
index 27e3a7b1c..0c6f7f9a9 100644
--- a/src/transform/split_goal.ml
+++ b/src/transform/split_goal.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Ident
open Term
diff --git a/src/transform/split_goal.mli b/src/transform/split_goal.mli
index f453c99f2..d9abf7c8b 100644
--- a/src/transform/split_goal.mli
+++ b/src/transform/split_goal.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
val stop_split : Ident.label
diff --git a/src/util/cmdline.ml b/src/util/cmdline.ml
index 94eb6f22d..49104b9f8 100644
--- a/src/util/cmdline.ml
+++ b/src/util/cmdline.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
exception BadEscape of string * char
exception UnfinishedEscape of string
diff --git a/src/util/cmdline.mli b/src/util/cmdline.mli
index 050f0e856..ef9761ea6 100644
--- a/src/util/cmdline.mli
+++ b/src/util/cmdline.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
exception BadEscape of string * char
exception UnfinishedEscape of string
diff --git a/src/util/debug.ml b/src/util/debug.ml
index de33d2772..7e630b131 100644
--- a/src/util/debug.ml
+++ b/src/util/debug.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
let formatter = ref Format.err_formatter
diff --git a/src/util/debug.mli b/src/util/debug.mli
index e70a55fb4..8d9001315 100644
--- a/src/util/debug.mli
+++ b/src/util/debug.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
type flag
diff --git a/src/util/exn_printer.ml b/src/util/exn_printer.ml
index 3bae8d29a..affda8aef 100644
--- a/src/util/exn_printer.ml
+++ b/src/util/exn_printer.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
type exn_printer = Format.formatter -> exn -> unit
diff --git a/src/util/exn_printer.mli b/src/util/exn_printer.mli
index 7afc4217d..dc8d181d3 100644
--- a/src/util/exn_printer.mli
+++ b/src/util/exn_printer.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
type exn_printer = Format.formatter -> exn -> unit
(* an [exn_printer] is a formatter of exception which prints on the
diff --git a/src/util/hashcons.ml b/src/util/hashcons.ml
index 8d81f9c68..80049ba49 100644
--- a/src/util/hashcons.ml
+++ b/src/util/hashcons.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(*s Hash tables for hash-consing. (Some code is borrowed from the ocaml
standard library, which is copyright 1996 INRIA.) *)
diff --git a/src/util/hashcons.mli b/src/util/hashcons.mli
index 875a1e9b7..8ca543911 100644
--- a/src/util/hashcons.mli
+++ b/src/util/hashcons.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Hash tables for hash consing *)
diff --git a/src/util/hashweak.ml b/src/util/hashweak.ml
index 82dfd8570..32827c318 100644
--- a/src/util/hashweak.ml
+++ b/src/util/hashweak.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
module ProdConsume :
sig
diff --git a/src/util/hashweak.mli b/src/util/hashweak.mli
index b7510011b..ec80ab0ae 100644
--- a/src/util/hashweak.mli
+++ b/src/util/hashweak.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Hashtable with weak key used for memoization *)
diff --git a/src/util/loc.ml b/src/util/loc.ml
index a12947e22..e6accedb6 100644
--- a/src/util/loc.ml
+++ b/src/util/loc.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(*
type lexing_loc = Lexing.position * Lexing.position
diff --git a/src/util/loc.mli b/src/util/loc.mli
index 8a73ef490..135027c25 100644
--- a/src/util/loc.mli
+++ b/src/util/loc.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
diff --git a/src/util/plugin.ml b/src/util/plugin.ml
index 075e68745..0d5128820 100644
--- a/src/util/plugin.ml
+++ b/src/util/plugin.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
type plugin = string
diff --git a/src/util/plugin.mli b/src/util/plugin.mli
index 1061b25a3..bb06a012a 100644
--- a/src/util/plugin.mli
+++ b/src/util/plugin.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
type plugin = string
diff --git a/src/util/pp.ml b/src/util/pp.ml
index 833d6605e..b22ac4504 100644
--- a/src/util/pp.ml
+++ b/src/util/pp.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(*i $Id: pp.ml,v 1.22 2009-10-19 11:55:33 bobot Exp $ i*)
diff --git a/src/util/pp.mli b/src/util/pp.mli
index 193d41d07..0561ef3ad 100644
--- a/src/util/pp.mli
+++ b/src/util/pp.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(*i $Id: pp.mli,v 1.22 2009-10-19 11:55:33 bobot Exp $ i*)
diff --git a/src/util/print_tree.ml b/src/util/print_tree.ml
index 577dda593..84031fbbe 100644
--- a/src/util/print_tree.ml
+++ b/src/util/print_tree.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(*s Tree structures. *)
diff --git a/src/util/print_tree.mli b/src/util/print_tree.mli
index f8b17e409..51955ad92 100644
--- a/src/util/print_tree.mli
+++ b/src/util/print_tree.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(*s This module provides a generic ASCII pretty-printing function for trees,
in a way similar to what the Unix command pstree does:
diff --git a/src/util/rc.mli b/src/util/rc.mli
index 9a3142dd7..5abf5a828 100644
--- a/src/util/rc.mli
+++ b/src/util/rc.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Rc file management *)
diff --git a/src/util/rc.mll b/src/util/rc.mll
index 2ff1038e1..a98f4f351 100644
--- a/src/util/rc.mll
+++ b/src/util/rc.mll
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
{
open Lexing
diff --git a/src/util/sysutil.ml b/src/util/sysutil.ml
index 057019c56..dc77ffc17 100644
--- a/src/util/sysutil.ml
+++ b/src/util/sysutil.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
let backup_file f =
if Sys.file_exists f then begin
diff --git a/src/util/sysutil.mli b/src/util/sysutil.mli
index f9011cdca..25b5496f0 100644
--- a/src/util/sysutil.mli
+++ b/src/util/sysutil.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(* create a backup copy of a file if it exists *)
val backup_file : string -> unit
diff --git a/src/util/util.ml b/src/util/util.ml
index ba6e1ea81..20cdae22c 100644
--- a/src/util/util.ml
+++ b/src/util/util.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Stdlib
diff --git a/src/util/util.mli b/src/util/util.mli
index 2b65e6b58..de77f0ac2 100644
--- a/src/util/util.mli
+++ b/src/util/util.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Stdlib
diff --git a/src/util/warning.ml b/src/util/warning.ml
index 501e97576..cafa82b45 100644
--- a/src/util/warning.ml
+++ b/src/util/warning.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Util
diff --git a/src/util/warning.mli b/src/util/warning.mli
index 185c06161..f10660276 100644
--- a/src/util/warning.mli
+++ b/src/util/warning.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
val emit:
?loc:Loc.position -> ('b, Format.formatter, unit, unit) format4 -> 'b
diff --git a/src/why3bench/bench.ml b/src/why3bench/bench.ml
index e3fe11c40..c64fe1702 100644
--- a/src/why3bench/bench.ml
+++ b/src/why3bench/bench.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Thread
open Why3
diff --git a/src/why3bench/bench.mli b/src/why3bench/bench.mli
index b1a49c054..6eafe8f08 100644
--- a/src/why3bench/bench.mli
+++ b/src/why3bench/bench.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
open Env
diff --git a/src/why3bench/benchdb.ml b/src/why3bench/benchdb.ml
index 736bd8713..3bce29776 100644
--- a/src/why3bench/benchdb.ml
+++ b/src/why3bench/benchdb.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** run benchs from the database *)
diff --git a/src/why3bench/benchdb.mli b/src/why3bench/benchdb.mli
index cc17cdf2c..aaca0abb2 100644
--- a/src/why3bench/benchdb.mli
+++ b/src/why3bench/benchdb.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** run benchs from the database *)
diff --git a/src/why3bench/benchrc.ml b/src/why3bench/benchrc.ml
index 82a95fa8a..0d5455f57 100644
--- a/src/why3bench/benchrc.ml
+++ b/src/why3bench/benchrc.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Bench
diff --git a/src/why3bench/benchrc.mli b/src/why3bench/benchrc.mli
index 8002ccd98..f4c3a36b1 100644
--- a/src/why3bench/benchrc.mli
+++ b/src/why3bench/benchrc.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(**
diff --git a/src/why3bench/db.ml b/src/why3bench/db.ml
index 53a6bf7bb..4e4747557 100644
--- a/src/why3bench/db.ml
+++ b/src/why3bench/db.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
open Sqlite3
diff --git a/src/why3bench/db.mli b/src/why3bench/db.mli
index 705d29924..27dab4117 100644
--- a/src/why3bench/db.mli
+++ b/src/why3bench/db.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
diff --git a/src/why3bench/why3bench.ml b/src/why3bench/why3bench.ml
index 10e55832a..1234c56ef 100644
--- a/src/why3bench/why3bench.ml
+++ b/src/why3bench/why3bench.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Why3
diff --git a/src/why3bench/worker.ml b/src/why3bench/worker.ml
index a7fbd2a1b..584ecc8ac 100644
--- a/src/why3bench/worker.ml
+++ b/src/why3bench/worker.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(** Create and manage one main worker which wait for the remaining
works *)
diff --git a/src/why3config/why3config.ml b/src/why3config/why3config.ml
index 1e8a52cc3..a6f498dad 100644
--- a/src/why3config/why3config.ml
+++ b/src/why3config/why3config.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Why3
diff --git a/src/why3doc/doc_def.ml b/src/why3doc/doc_def.ml
index e58b7d63e..ac7d4d21e 100644
--- a/src/why3doc/doc_def.ml
+++ b/src/why3doc/doc_def.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
open Ident
diff --git a/src/why3doc/doc_def.mli b/src/why3doc/doc_def.mli
index c60e3679b..f70d1df34 100644
--- a/src/why3doc/doc_def.mli
+++ b/src/why3doc/doc_def.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Why3
diff --git a/src/why3doc/doc_html.ml b/src/why3doc/doc_html.ml
index f37298c4f..32d85d579 100644
--- a/src/why3doc/doc_html.ml
+++ b/src/why3doc/doc_html.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
diff --git a/src/why3doc/doc_html.mli b/src/why3doc/doc_html.mli
index 5653bc2d2..fe0a6c81e 100644
--- a/src/why3doc/doc_html.mli
+++ b/src/why3doc/doc_html.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
diff --git a/src/why3doc/doc_lexer.mll b/src/why3doc/doc_lexer.mll
index 047f865ad..abf51730a 100644
--- a/src/why3doc/doc_lexer.mll
+++ b/src/why3doc/doc_lexer.mll
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(* Why3 to HTML *)
@@ -212,7 +203,7 @@ and doc fmt block headings = parse
| '}' { let brace r =
if not block then pp_print_string fmt "<p>";
fprintf fmt "}";
- doc fmt true r lexbuf
+ doc fmt true r lexbuf
in
match headings with
| [] -> brace headings
diff --git a/src/why3doc/doc_main.ml b/src/why3doc/doc_main.ml
index f8d1a43c9..f596e36f0 100644
--- a/src/why3doc/doc_main.ml
+++ b/src/why3doc/doc_main.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Why3
diff --git a/src/why3session/why3session.ml b/src/why3session/why3session.ml
index e8b79f2a6..01c3a43cf 100644
--- a/src/why3session/why3session.ml
+++ b/src/why3session/why3session.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Why3
@@ -39,7 +30,7 @@ let print_usage () =
let maxl = Array.fold_left
(fun acc e -> max acc (String.length e.cmd_name)) 0 cmds in
eprintf "%s <command> [options] <session directories>@\n@\navailable commands:@.@[<hov>%a@]@\n@."
- exec_name
+ exec_name
(Pp.print_iter1 Array.iter Pp.newline
(fun fmt e -> fprintf fmt "%s @[<hov>%s@]"
(Util.padd_string ' ' e.cmd_name maxl) e.cmd_desc)) cmds;
@@ -51,7 +42,7 @@ let () =
if Array.length Sys.argv < 2 then print_usage ();
let cmd_name = Sys.argv.(1) in
begin
- match cmd_name with
+ match cmd_name with
| "-h" | "--help" -> print_usage ()
| "-v" | "--version" -> print_version (); exit 0
| _ -> ()
diff --git a/src/why3session/why3session_copy.ml b/src/why3session/why3session_copy.ml
index af87c7c8b..8154e67fa 100644
--- a/src/why3session/why3session_copy.ml
+++ b/src/why3session/why3session_copy.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
open Why3session_lib
diff --git a/src/why3session/why3session_html.ml b/src/why3session/why3session_html.ml
index 23e46054e..799844051 100644
--- a/src/why3session/why3session_html.ml
+++ b/src/why3session/why3session_html.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Why3
diff --git a/src/why3session/why3session_info.ml b/src/why3session/why3session_info.ml
index 1d081d072..aff57e6b2 100644
--- a/src/why3session/why3session_info.ml
+++ b/src/why3session/why3session_info.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(**************************************************************************)
(* Specific source code for computing statistics is a contribution by *)
@@ -179,7 +170,7 @@ type 'a goal_stat =
| No of ('a transf * ('a goal * 'a goal_stat) list) list
| Yes of (prover * float) list * ('a transf * ('a goal * 'a goal_stat) list) list
-let rec stats2_of_goal ~nb_proofs g : notask goal_stat =
+let rec stats2_of_goal ~nb_proofs g : notask goal_stat =
let proof_list =
PHprover.fold
(fun prover proof_attempt acc ->
@@ -221,7 +212,7 @@ and stats2_of_transf ~nb_proofs tr : (notask goal * notask goal_stat) list =
let print_res fmt (p,t) = fprintf fmt "%a (%.2f)" print_prover p t
-let rec print_goal_stats depth (g,l) =
+let rec print_goal_stats depth (g,l) =
for _i=1 to depth do printf " " done;
printf "+-- goal %s" g.goal_name.Ident.id_string;
match l with
diff --git a/src/why3session/why3session_latex.ml b/src/why3session/why3session_latex.ml
index 83f3be89a..5534a4bb3 100644
--- a/src/why3session/why3session_latex.ml
+++ b/src/why3session/why3session_latex.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
open Why3session_lib
@@ -261,7 +252,7 @@ let rec goal_latex2_stat fmt prov depth depth_max subgoal g =
if S.PHstr.length tr > 0 then
begin
S.PHstr.iter (fun _st tr ->
- style_2_row fmt ~transf:true (depth+1) prov subgoal
+ style_2_row fmt ~transf:true (depth+1) prov subgoal
(protect tr.S.transf_name);
fprintf fmt "& \\multicolumn{%d}{|c|}{}\\\\ @."
(List.length prov);
diff --git a/src/why3session/why3session_lib.ml b/src/why3session/why3session_lib.ml
index 0674d9deb..499ec9385 100644
--- a/src/why3session/why3session_lib.ml
+++ b/src/why3session/why3session_lib.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
module S = Session
@@ -73,7 +64,7 @@ let common_options = [
]
(* dead code
-let env_spec = common_options
+let env_spec = common_options
*)
let read_env_spec () =
diff --git a/src/why3session/why3session_lib.mli b/src/why3session/why3session_lib.mli
index 37e200828..7e70f7edd 100644
--- a/src/why3session/why3session_lib.mli
+++ b/src/why3session/why3session_lib.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
open Whyconf
@@ -45,7 +36,7 @@ val print_version : unit -> unit
(* val simple_spec : spec_list *)
(*
-val read_simple_spec : unit -> bool
+val read_simple_spec : unit -> bool
(** return if we must exit *)
*)
diff --git a/src/why3session/why3session_rm.ml b/src/why3session/why3session_rm.ml
index 48129d0c5..69444e205 100644
--- a/src/why3session/why3session_rm.ml
+++ b/src/why3session/why3session_rm.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Why3
open Why3session_lib
diff --git a/src/whyml/mlw_decl.ml b/src/whyml/mlw_decl.ml
index 6bd88f9f0..7e545a65f 100644
--- a/src/whyml/mlw_decl.ml
+++ b/src/whyml/mlw_decl.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/whyml/mlw_decl.mli b/src/whyml/mlw_decl.mli
index 2e2d6c923..e8ec24ecc 100644
--- a/src/whyml/mlw_decl.mli
+++ b/src/whyml/mlw_decl.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Ident
open Ty
diff --git a/src/whyml/mlw_driver.ml b/src/whyml/mlw_driver.ml
index fd985b778..34ce3bc48 100644
--- a/src/whyml/mlw_driver.ml
+++ b/src/whyml/mlw_driver.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/whyml/mlw_driver.mli b/src/whyml/mlw_driver.mli
index d4925a9a7..74d287be8 100644
--- a/src/whyml/mlw_driver.mli
+++ b/src/whyml/mlw_driver.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
type driver = private {
drv_lib : Mlw_typing.mlw_library;
diff --git a/src/whyml/mlw_dtree.ml b/src/whyml/mlw_dtree.ml
index f2b13c713..c1d8dd9c1 100644
--- a/src/whyml/mlw_dtree.ml
+++ b/src/whyml/mlw_dtree.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Mlw_ty
open Mlw_expr
diff --git a/src/whyml/mlw_dty.ml b/src/whyml/mlw_dty.ml
index 4e6e51681..9ea9c352b 100644
--- a/src/whyml/mlw_dty.ml
+++ b/src/whyml/mlw_dty.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(* destructive types for program type inference *)
diff --git a/src/whyml/mlw_dty.mli b/src/whyml/mlw_dty.mli
index 0bd04ed63..efedc139e 100644
--- a/src/whyml/mlw_dty.mli
+++ b/src/whyml/mlw_dty.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(* destructive types for program type inference *)
diff --git a/src/whyml/mlw_expr.ml b/src/whyml/mlw_expr.ml
index 6ecb398c0..a26bd9d3e 100644
--- a/src/whyml/mlw_expr.ml
+++ b/src/whyml/mlw_expr.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/whyml/mlw_expr.mli b/src/whyml/mlw_expr.mli
index 424a57fad..005e2298c 100644
--- a/src/whyml/mlw_expr.mli
+++ b/src/whyml/mlw_expr.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Stdlib
open Util
diff --git a/src/whyml/mlw_main.ml b/src/whyml/mlw_main.ml
index b48a71e5e..7a19c4c38 100644
--- a/src/whyml/mlw_main.ml
+++ b/src/whyml/mlw_main.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Mlw_module
diff --git a/src/whyml/mlw_main.mli b/src/whyml/mlw_main.mli
index 51a3e6105..2bc1d06dd 100644
--- a/src/whyml/mlw_main.mli
+++ b/src/whyml/mlw_main.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
val read_channel : Mlw_module.modul Util.Mstr.t Env.read_format
diff --git a/src/whyml/mlw_module.ml b/src/whyml/mlw_module.ml
index ba099258e..012e0fec1 100644
--- a/src/whyml/mlw_module.ml
+++ b/src/whyml/mlw_module.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/whyml/mlw_module.mli b/src/whyml/mlw_module.mli
index 35bc32fcb..683c5838b 100644
--- a/src/whyml/mlw_module.mli
+++ b/src/whyml/mlw_module.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/whyml/mlw_ocaml.ml b/src/whyml/mlw_ocaml.ml
index 4585d73fb..9e968424d 100644
--- a/src/whyml/mlw_ocaml.ml
+++ b/src/whyml/mlw_ocaml.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Pp
diff --git a/src/whyml/mlw_ocaml.mli b/src/whyml/mlw_ocaml.mli
index fa92a7bb4..6f3960d31 100644
--- a/src/whyml/mlw_ocaml.mli
+++ b/src/whyml/mlw_ocaml.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
(* OCaml program extraction *)
diff --git a/src/whyml/mlw_pretty.ml b/src/whyml/mlw_pretty.ml
index 9a0a606d5..bd1c43061 100644
--- a/src/whyml/mlw_pretty.ml
+++ b/src/whyml/mlw_pretty.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
open Pp
diff --git a/src/whyml/mlw_pretty.mli b/src/whyml/mlw_pretty.mli
index 1d8c50386..f76b87072 100644
--- a/src/whyml/mlw_pretty.mli
+++ b/src/whyml/mlw_pretty.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Format
diff --git a/src/whyml/mlw_ty.ml b/src/whyml/mlw_ty.ml
index 0464ddfc6..0a9e92207 100644
--- a/src/whyml/mlw_ty.ml
+++ b/src/whyml/mlw_ty.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Stdlib
open Util
diff --git a/src/whyml/mlw_ty.mli b/src/whyml/mlw_ty.mli
index dc10c3fb7..d6a57cbf3 100644
--- a/src/whyml/mlw_ty.mli
+++ b/src/whyml/mlw_ty.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Stdlib
open Ident
diff --git a/src/whyml/mlw_typing.ml b/src/whyml/mlw_typing.ml
index b4bbe2841..39c225531 100644
--- a/src/whyml/mlw_typing.ml
+++ b/src/whyml/mlw_typing.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/whyml/mlw_typing.mli b/src/whyml/mlw_typing.mli
index 1d1b1d52f..fcf58418d 100644
--- a/src/whyml/mlw_typing.mli
+++ b/src/whyml/mlw_typing.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Theory
diff --git a/src/whyml/mlw_wp.ml b/src/whyml/mlw_wp.ml
index 8625fe65d..eafdfab74 100644
--- a/src/whyml/mlw_wp.ml
+++ b/src/whyml/mlw_wp.ml
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Util
open Ident
diff --git a/src/whyml/mlw_wp.mli b/src/whyml/mlw_wp.mli
index 5f0ecfd06..f7881e509 100644
--- a/src/whyml/mlw_wp.mli
+++ b/src/whyml/mlw_wp.mli
@@ -1,22 +1,13 @@
-(**************************************************************************)
-(* *)
-(* Copyright (C) 2010-2012 *)
-(* François Bobot *)
-(* Jean-Christophe Filliâtre *)
-(* Claude Marché *)
-(* Guillaume Melquiond *)
-(* 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. *)
-(* *)
-(**************************************************************************)
+(********************************************************************)
+(* *)
+(* The Why3 Verification Platform / The Why3 Development Team *)
+(* Copyright 2010-2012 -- INRIA - CNRS - Paris-Sud University *)
+(* *)
+(* This software is distributed under the terms of the GNU Lesser *)
+(* General Public License version 2.1, with the special exception *)
+(* on linking described in file LICENSE. *)
+(* *)
+(********************************************************************)
open Theory
open Mlw_ty
diff --git a/theories/floating_point.why b/theories/floating_point.why
index fafdcefcc..85391a502 100644
--- a/theories/floating_point.why
+++ b/theories/floating_point.why
@@ -652,9 +652,9 @@ end
(*
theory SingleMultiRounding
- constant min_normalized_single : real =
- constant eps_normalized_single : real =
- constant eta_normalized_single : real =
+ constant min_normalized_single : real =
+ constant eps_normalized_single : real =
+ constant eta_normalized_single : real =
clone export GenFloatSpecMultiRounding with
type t = single,
diff --git a/theories/map.why b/theories/map.why
index 39c7b9821..a92e14391 100644
--- a/theories/map.why
+++ b/theories/map.why
@@ -139,7 +139,7 @@ theory MapSum
end
-(** {2 Bitvectors (arbitrary length)}
+(** {2 Bitvectors (arbitrary length)}
Seen as maps from int to bool
diff --git a/theories/real.why b/theories/real.why
index eca1b5f4d..f6739d65b 100644
--- a/theories/real.why
+++ b/theories/real.why
@@ -241,7 +241,7 @@ theory PowerInt
goal CommutativeMonoid.Unit_def_r, goal CommutativeMonoid.Comm.Comm
lemma Pow_ge_one:
- forall x:real, n:int. 0 <= n /\ 1.0 <=. x -> 1.0 <=. power x n
+ forall x:real, n:int. 0 <= n /\ 1.0 <=. x -> 1.0 <=. power x n
end
diff --git a/theories/set.why b/theories/set.why
index d206feb31..fb3f37897 100644
--- a/theories/set.why
+++ b/theories/set.why
@@ -90,7 +90,7 @@ end
theory Set
clone export SetGen
-
+
(** the set of all x of type 'a *)
constant all: set 'a
diff --git a/theories/settheory.why b/theories/settheory.why
index ea60b11f7..6cedb2dd9 100644
--- a/theories/settheory.why
+++ b/theories/settheory.why
@@ -1,6 +1,6 @@
-(** {1 A library for Set theory}
+(** {1 A library for Set theory}
this library provides a few Why3 theories that formalize the set
theory as it is defined in the B-book.
@@ -97,7 +97,7 @@ theory Composition
end
-(** {2 Domain, Range, Inverse}
+(** {2 Domain, Range, Inverse}
Domain, Range and inverse of a relation
@@ -130,7 +130,7 @@ theory InverseDomRan
lemma dom_add:
forall f:rel 'a 'b, x:'a, y:'b.
- dom (add (x,y) f) = add x (dom f)
+ dom (add (x,y) f) = add x (dom f)
end
@@ -169,7 +169,7 @@ Partial functions as relations
*)
-theory Function
+theory Function
use export Relation
@@ -221,7 +221,7 @@ theory Function
lemma singleton_is_function :
forall x:'a, y:'b [singleton (x,y)].
mem (singleton (x,y)) ((singleton x) --> (singleton y))
-
+
function apply (rel 'a 'b) 'a : 'b
axiom apply_def0:
@@ -288,7 +288,7 @@ function (<+) (rel 'a 'b) (rel 'a 'b) : (rel 'a 'b)
axiom overriding_def:
forall x:'a, y:'b, q r : rel 'a 'b.
- mem (x,y) (q <+ r) <->
+ mem (x,y) (q <+ r) <->
(if mem x (dom r) then mem (x,y) r else mem (x,y) q)
use import Function
--
GitLab