diff --git a/AUTHORS b/AUTHORS new file mode 100644 index 0000000000000000000000000000000000000000..690706f10ad2ba2fa147b42c6701e47454a5cfb9 --- /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 fd5990a07f970cb9a30e33bda1f290b1e006ce3f..c6d03e9112410155d07911a175c6eb30f2b7961d 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 c38921db9cf65454bc5cb29c1fe8e8af7d75d5b1..f93a38397e9e4c03097da9e29a29e24ab6e187d4 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 a3f3fd00ae05d574e4b9f42d5d1e915f86303424..a7327fef7800457359da6ae4661284bbf3253fb0 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 7aef41e3470da1e1f98d64530e298c8a1d89ba79..1048d0d606e3c0785a5cd877025ab6e85629fc80 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 884fcf69cae9ed250b875f49bb7181c3e4deee92..38d349e054d11bbc33e4111b94d1632317745090 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 ef5f817d65153871043e25d1af4807d9f6ba9ece..fd9bf85c712fd979aeea0d4488ce260b1ed70f7c 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 d1c3c41d5b7a437bfce37a756ad179576b9abd54..45f9769fe65174754ddc6a2aadc3d5adeddf259c 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 b9348fd5efee0efe97df18bc1c0ed3886605eb13..f3e7907d3815402737cc4304f5bd52659a91e573 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 954025aecca4e9bd11f215c61f8bd123f41a27bc..04f8f4d1381da7e20b2cdcf10eeb6745d8959e04 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 0ae6be3acab2f337448f8fcb080f5acbe2960bc2..35d34360192ba2233a2dbb116908aeb06c1353bb 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 9a884fa3ef159b67ae77576d4fa581792f06aca0..e1718c9c4d79fcd88bf6f8fcc9d9adca265d68d8 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 2941fd43488e56a76011ae342f7beb2ee995aedb..bcaa024561418665e7e9519fd6b58e426e623219 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 26922c7b403a63664e0133bf5070b1afb3935ad7..5dcc68f2a022a3bfebf11bec04cd803849978869 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 ba5a3980d113bf5b1fa9f5db0ce9bcfdd72de074..3d434abcfc30dac42a5ac04f6637410936ebb0ae 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 3353092882e464af13ef2cde09330c5506749c1f..9676e2f48bd55b464cb9ad785d815d733237b541 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 948c29c833882e9d85f2ea52786c5e56f0033c8e..8dc016ed57e39c7e02589f5172dae2e999d1e263 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 597dde9d682c2c9cc798209fea35ac7313fa97a9..ffc1ac03ecf8ce2c3fcd2845fadfaa8718a2b8cf 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 053a2f89e155869c668a9204860794b31269ff12..c923404bab729dc9ad4c987f21fbb7ddd981ef6e 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 2e41184787c4564ec3e915e950cd418025fa1554..40e6d9a01e8a59453bc18f9fdb95414c8fcf1085 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 6e27a435554c9c6b4d8cff5a2c4380eb2025d8d6..570fc5f9449baf58ed57d97d6c1eb3c06c5d44d9 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 9abf0d0b0c967102b2f9ceea971c712d59c0e61c..5f201deacac6c89a33393dcf9f8886e79c705fec 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 ebbf5ef631c1336eb72dfbc07e3864b79a468c6a..389c99b384ad79db9afcb0545826aca01d2abd0b 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 0205c1208611c78fc63eb1b1e0db56778dd1d2c6..0ed9f8dd6eb7957a6f0c996b5b280ed132a1e14e 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 d7077f04b65c1e4a29ca3f6b20581e6d291c053b..0c1ff55889bfa99226cd23b70935ddc301812482 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 96901d99800bc4e4b313f5a79f8bb02f2bc53422..d71636fccd549b3115f81900a9ae938c3b77fb99 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 3b59cfcf2e8355cc1fb0172396e17024eb5bcd69..3f68daaee7fa9aac5b8f3f06a2aa4467d2c7c4f6 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 2b6bb84c3fb46e7feff418953134283b6727885e..0000000000000000000000000000000000000000 --- 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 98d4170893f01328cd788b8dadcdee48e78ff379..0adc153465972356c0316ea8c2e83d2434b54756 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 8af6648a0f80df388bdb47d21f6d868fb78dfb14..d60d76bcc60eccd43cd3a1c25b7b14ca347239b8 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 8af6648a0f80df388bdb47d21f6d868fb78dfb14..0000000000000000000000000000000000000000 --- 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 8f1778b2b28f2be6a157a1b469da28ada14d09f3..0000000000000000000000000000000000000000 --- 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 57ceb79c21ec428c3cb8d103e339e057eef564ef..0000000000000000000000000000000000000000 --- 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 92ba4ad50ba41b1d0d18cc6844a3d64abb7e235c..65a3c035bc6f31939335f0c47426a7753521530d 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 5898bc7de3f2e0b1450c1205233fb902eaedf316..285dee655b490b0ca9c8ea273be7b471f355408e 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 0f8d70dcd8db503d711656a35ee138e034940061..08d3c493ee356e65d6e593c30a39ec798ae2698f 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 169d068fe0ac80f4db0801e11f879826d82ad626..be4c7387f3e64bef2eb5bb6b598c012b6498f1f1 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 a87b43685f9c3048b7176a693dae655453f4ed27..6a235a330c0c40d5f6fad64e7fac9eeb91ab719c 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 3cd4bb0429d7e33e615bcd8176353d465bdbed6b..f743b815244e4b3b0fce725467cf21f8d26977a0 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 0f8d70dcd8db503d711656a35ee138e034940061..08d3c493ee356e65d6e593c30a39ec798ae2698f 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 7887edf0f888de52a019b055e28740b37bc3f3cb..4f34488368ef8ae1a49077bfbff02b7f88d58152 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 e30d3ffd4bc4f4a25369dff5d85c8cca40692a40..f45e0e5fc2048136a2f4ba4a3ed492e0cd424a2d 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 917516d99a79c22bce72a24dcdd982c35b72fabc..280536afa863a00243b6aad9cbc9d1017378861b 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 4806b6580b2db7c57784d465301560cf146d320d..62131beb2bef0bee3d415bc35e9a2b01c53d6470 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 0e4ad33bc09453ddc5085f76f2287221e4d1463f..e10a07326397fbc0a3709fcd4d0ea05e983152a6 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 0bdb18b1d2fa2ead7a28e64fb9155f29f546bf8e..047a16804e1b7de2cfe85c8e36690f68407fa0ea 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 bc8e71db1a260a9e87801a7fd80e65de76401a50..36ef90e5a8acb4673613ca97a1ef3e013a2ae188 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 240435150aa9b3f98367ca73750ab8a0bf6fd549..bf44fec58cc0e62b34384822f0e83360982a3ad7 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 68d392ebe666cf711182d514392c851244093f58..97b29fce1595db1273371c6bbdb0d1da5cb04d6b 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 0e5b80b3d6f4f7f7514e244dd978c4ab590a10ab..acdf7b4acdb8d4b216435b886ae7724fe2c8ad85 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 a5227af9a3fbdcb23162ecf8f24ff13c3321369c..726a621f774e70d21afe34eca0cf9e82549f72ad 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 4584ea498b42b3cb06a5be275d8e73e0e25413ce..215109435776d0e1370b2d0f0413f54e54fc0b4c 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 15d570c16d878c6a40862bc0aaa2b38ee14f73fb..2b37feacaf5b205dc23c5a6735dd1d9e92c5ad22 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 3e0e9bd586233e7d3e84e8a6c3033c3d4b741173..16f02b2e364565f4f20dd86320cb9f04b24c9d7b 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 41656f4e4c211fb5b512a47c312e558846d6d7d5..66ec3130d70d85e37a8fe7fbaf3a846be44aa26f 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 59e8b37730ed17841e57c36c0cb9a636731449e0..1140dcddb1c9819e1554c35d50ba79d1151ce13c 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 5efbc257911f6179ff44bd610ad0bd501f205290..beb58a215cccb1b732e672854cf7b314c018ccb9 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 4f9302209cf53a0dde1fa32e516b3f3488aa8e7d..daf4c0c1f873d26a95be2b072d92611e22d2dc56 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 a3ebafefcc6d810e33831aea452523398dd58b5b..f98d86612b05118995083b96a687eb4759a948e2 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 5eb3ca8aa5e490541fa25f08df9fd1cb418abc6d..eb34c5006a5323af3dd6522bcbb2bc894a9676b2 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 c3e785d71004be9f8dc3602a0efdea26acbc1bd9..f5a9756ee1081fc7ea061de8fb0205b86ca4f8cf 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 9539d9138f6bad3d6968dd50c71ed7d7be98ca91..89caf0655c935dc65ad82d310f16dd9898dad8f4 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 4a69c7f6c3ea27ca52d40acd0efc3141876233f6..a08fddca4ffa4675c9473d9e9af1dda00e40607d 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 abf5799321e3039c33cfa41bc7b14074b186dd9d..37b59bc9448da41156a35280f96c12594431f395 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 f4e15c0505c1907bdfc02f167c4002b17d591a74..a40ceef8090ee7ea24de58a1320c1ef8cf82b622 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 b95e030390f1a80b3113aefe3fddad98a4f57a35..fcf53d40ebf6b7b9cf34351322e9790d90e62fa2 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 0dc08fe82949a0864b58d934e46ef6e43543ad21..3ac782beaca803bd231bbec0bda49559fa8be956 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 f1f9d017deb372d639c0c7cac9227f183883a64f..738d0a64239a81ccae9453039326d2ecfb20b6f2 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 2ee7df3cf9b5f48fcb5ea7a166fb4001852aedbc..85958952e5016635b91fbe1752709a814fa82506 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 25b9b7cc9ad97d8e53e06d6ac13ada9c440ecd8b..d65f0e8fc80a121686a5c391bc069c9de3dd1f71 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 4a3616735ab38dac91f1bb3f414f6fec713ebffb..397dc75ebfe26e8f52f32255c844a61f412b08a6 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 197014c4a9e900181ae656fc8ce4d74d7decd602..76b006a1ec76a352755b5e462d102f56910f67b3 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 fb4b411beb267f4f9b257c22b32d5f68d2841eb6..24f20f1625ddb3ea0a608ffce976bd69bb612299 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 8d555e8714ab55456020244a52f093e09750d00c..487318d58f637cf11a4a9173df56fd7c80d28f62 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 7a8dda003cfa75ed9b0565597ca6e564c2a5af99..06136fe63ba3c07a49d21bb2954cd46d14ac5e8b 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 d793d944806a1d776b124f530420942af53b141a..11889bcd1f399437ae7af2417f186b15f2467fca 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 9228e6985d1c3bb7834ada40c16e665887002e03..e89054f758dee879aa8ba9faa491a06d2d70e6fe 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 839e3e885908feb94f28e3d69de1587edc43b4c7..7abb3171a7954977812a2ee1fd66a9f6bc81b8c4 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 10933557e0e04fe5aa3f6b45a97b9befe7340f55..5c545eb2b584cb751f5a97c64cb1f4e0b831b368 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 0db79ac1f7a6a653c8a13ab750fed0735de958fa..b5dbace47b109a15bffedda44e29a74133c1ae61 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 c62e858e26b15cfaa33063a7f937c2398e9f6f35..e525e6c88447fca2dd85c820204a0c4ae2f97c32 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 1c6203359c635275f4a86b092b4f519ad4db82cc..19e49cd979cadc90779e64ffa0eed9e947ce7820 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 55bf4271149c410d85647bd5e8d727cf1a423b62..4df47726e2633e1c1ee9855ad67f30c48901fbcd 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 d57bc4897defa8a7c692c97601d6eea5e5ea4293..630a2fa9a1385980219a8b106d8b0f8c47ec53d4 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 706f4b17fdeaf964748a346d471c0520882f748f..54e8842701c0ebfd76cd46221ea9defeb1e5858a 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 3541b86b02ac839ad4013fcd6797812e8de0c45e..e594b663e139a95f137907579bc547b4af724829 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 fb3a30a7f0721425909ff7b046ae382d04e70d6f..0c7b409706ff5e6a2209cafa00a291f027b4884d 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 39d20cb79e2c26902246f606531f14c2975d4b6a..987e70f776f3871710111c96cf4ecd5dc96ee1cf 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 674cc619be39d8f8de1314f2c337cb3e3e8a4332..c0421e94b1716c62f51fa8d2f18e71046d089e0e 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 bb35fbd8a03307e9456e4563ee1011904650053b..4739fd3c5b0307961f4107dea95c37493313c8a3 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 659f94c9811f79eb2b8a335e5100a58b32132b9a..c73681241087269eeaeea28ffa9bb0954d7b51be 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 8c65f3858bf9bf2618181bccb10bd2c138550495..8c0dba9edaf015470c8e6be42ac3d0c623bffbc9 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 5222dbdf0a98a830468115b3ace0095a78a4b543..703ce1be398674a7277567306345ae0a42060437 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 3fdcef29b3c97e2534b8d1175189e339c0bd78d6..ff55fc6c0cb7170b71754e7643ec604232587fa2 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 b3aff014dc1f14cc7d8fbb43954ea6651ca61b61..69fe24ddc6105c2ad65fa58bd87650dd49454933 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 ebb38cac12eb870e39d453b9bc6e298eab43f33d..43fe017c77efd514406daa358781810934eb279d 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 2949de109ee58f533a2df59ff6543a2720d35963..4b9c0dab59f987140a66b5be2bb1ab58eae95585 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 550a41d2596a075a17abb3ee7889244726eb95ef..5372ed21bdc5a4b80635abe8239bc4132df38567 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 0f8d70dcd8db503d711656a35ee138e034940061..08d3c493ee356e65d6e593c30a39ec798ae2698f 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 ddbd4e462d93549818602c9bd8bb60bbb80a884b..166ed0daf4624ec30453ee4acd36651966342f12 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 3c4f2f21be0e25778a2216f5519399ef6e699155..f49c3693fc2788617e04d720c0928742798901ec 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 61d153f80d21eb7dbdaa07acd16e45b345879145..448581fa3b495487a79fb2177747208621eaddd4 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 0f8d70dcd8db503d711656a35ee138e034940061..08d3c493ee356e65d6e593c30a39ec798ae2698f 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 fbb696fece173ed631d6b2260d31c82c80bbeb2b..b9866609a30f3b69724e36b104e690a36cbbd88f 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 0f8d70dcd8db503d711656a35ee138e034940061..08d3c493ee356e65d6e593c30a39ec798ae2698f 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 e70e0224327dd4efb9dfc5479989aec1213ea67b..6311e9d811f291cb511a10d0f4add2bcf1e90e00 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 6e5b5830c0a5bda6b7724d9f45845ed8468049fa..5130967a1aa558a19cd8c7345e216f2b7a0eecf7 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 f4c727e5e8a690822ec367c947b697ef52b54fe9..8992a6806a107bac0b5a730eb7c268f5211ef955 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 323821c14cb59a5649c2609542ce188db2f2de7c..eb6ebda35e871e4fb7cceb91c12b685fefaad569 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 0f8d70dcd8db503d711656a35ee138e034940061..08d3c493ee356e65d6e593c30a39ec798ae2698f 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 092ddc9b5cfbfe6f7d091391f80e7a8983e89750..e014393b6f66c4ae26729329711da5297f6dc94b 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 0f8d70dcd8db503d711656a35ee138e034940061..08d3c493ee356e65d6e593c30a39ec798ae2698f 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 fe6e1ce217c300d0aceacc8319947767efd14a52..d56bad7cb7b21e62707519712d7fe1978a11625e 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 0f8d70dcd8db503d711656a35ee138e034940061..08d3c493ee356e65d6e593c30a39ec798ae2698f 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 43f4e8359e2ecee50422300cf1f799e2edb35e2e..52a94bc8855f659f8ff2979f03755cf82b3f87c1 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 0f8d70dcd8db503d711656a35ee138e034940061..08d3c493ee356e65d6e593c30a39ec798ae2698f 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 8ac08535e41a8832d49a1f173800f27b3d8a56d5..69fa678866c43631b77de02141a18bab1fbc1fee 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 066b23b0cb4786d2c85d3ea30636eb13e5bd695c..9d64a3d99929e401c5aa9caaed902a40ffe07d79 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 edc719e8cf3db65990c123325d9f784e585c8a17..67fd2ded9f5785f22765387379b43572242c2824 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 24e007bbb119a0b32358920265158ac46177b030..b490f81d54c92a2ff0e36fd94e0100b5f5cf61d9 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 e1b2e8f0900f758f860d9f10b20b3faf9f28a47f..4840d1200ddb0fe6bd0d2193ea14f7c708a10021 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 a85a9904abf0dec4852eada1f67602bb1c876c2c..5db2808c49f5feb90932eaf728cbfef164424877 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 2131558d031b4e1445b099f55bb8dcca7b352b1e..0a56e62b4459e637cb2df6548c40ef71cbd0b14e 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 e48f507609cc46dda161431c425143bd3dc1811a..16fce76eda73190c3eee5fd966e62b68e380af29 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 0f2251d3cd749a06e3fd8bd43d9f7cd9ead3f6a4..890144f3269c08b8cb280c845001277a816cb1a6 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 129e5322e3600379e8ee3548f7ce8a8ba6f4267e..c6f186a7230aaf89a51274f803e2241bd7ee9c76 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 42d3f3df440a82c15e7a95c74743a890f1a08c85..642b9aa2916d63e061b376e7d99a4a0635b1702e 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 d8259fc93839da1c030c8a6487c3801aecf202d7..246543f455425f0df4a5935f7622af6516bfa1db 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 69f738d05579051442461aa57b44421f2cb9a3d1..30d7ab5d9e157afd8db70ccdbdcac7b6bd8fdb9f 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 6fecb59b3feda44830fe857ef28e9167ee587550..daea013f8e49b0e45302b772eb45182a83715846 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 33ba50decdd831fc8169a709ebdf89e8e7fed7f1..39c55d83a4554d8a6dea6d58c1190078616a2270 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 9e0a618b724c0ff28aa487573041f4f2f506c3a5..99c43d85b1bda7ae2d38f02923ecd6f46ba5f517 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 abee3c217741fa0cf96f100ca7511ad8704cd65b..eff07598f78519fc1d268a8eee8b2dc0d0dfcfb3 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 d5cc90f0646d46785acc6d05910a2286bbb61af3..b74888f2820b2d982a1d83cbf6ea5ae637f0ae17 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 e08f4127fc77ce24908cd7acc8ec0943d0d38910..4f45fe57681ce76e910e29c378384f1c95a3d485 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 9c86350c3c1b93f55a5b5c0a248311a8aa152ea6..4e4c23b7303d413a0fb0c447cd15007266cc3034 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 a09910bc8118215b374549833f25fe40af3c5be3..c380310b40fbdd7e67d5643c82ece6fb47b959c6 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 5cd3c21470222919a6b5e80aa376cd4fb141138e..ffa3bd1954d20ae847e66bbca6c312ea56d648f6 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 486ce96200bfcd2f9dd6d3bfe68910e2fd054178..d6b3387a13529547895742a2f457a4af5aace0bc 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 4040105c84f4564c90e5e3777f6b26592922d445..8727e51734e6ca3008f9a9ae566a11aa8598d210 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 285f274cda61696024ad4dbb2c969aca1c0a6ec6..0522c12d62da3aac591c35fe142f7bd40fb05771 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 353d08e0d1f902893f67a29ebd4a5baef5e97f77..c6d9f75cda927fa0fafc069f6f4e33e7931b2665 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 e9f4febdf9c3197c07fc8c5a2ddc8d5f5293d6b1..219be4cecce4d66d1ac03f520c5fa3511a9361a7 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 a6c51e105db468ec24dc93a3e61fc434a267d240..7ac123e84f31f2c0c2baf0deb2126fc96bc5151a 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 4bc94abfe023f5941c135fe7c55bd8e5d0e37635..2569eee230d9d492e481f5434e1df872b993e051 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 2ecffd6f126e3286932d90b825c673810182fc89..153bef0b406d33991157f3d00e240b8b53ce8d21 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 e9c46d25fe9bc83e78ad05364c5ae2336482b6af..13e8b21b26106861ceced8e689410339be89eb6b 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 2c844a17a4dac40e2e6a82649f2553815e1878a9..9c01c2793bcee3d6390709ff7deaabe6d74bb7b1 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 057668922e21d483f50def73e7eef4313571c957..ff61457f45e8821af39a6a7feaeb301136b7a4ad 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 5f0b995d4c5b915dabb3fc477dfd9f82b7941119..49b6411459e829011d4e4e67101f6caa5d7c8a43 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 acabe65b1c4ac7394ea298c9f4daa830c66cbff9..aa8b6f1383cfc5814dfb371c2ab80ea6ae8eaa5b 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 46ede062999e30b0850a4432f9abcf27f211284c..526763db2f55c306859e279e11f99309cde3f492 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 c63ad4303c6bda34556331a70e2607fba75b82b9..72ce611cb1a6476ac105ac0989e61d2a7190b56d 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 658bfdb36048e4c58f8a0b680607ff1f9db05bd5..08a549619b37d919c34ade9e3814b00cb3e41b8f 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 d71d58c4a660ec654b3e328ed5b9dce2b197289e..cabc403b1362b34bbae7b4b8da85cc3ebd438367 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 964a3237d10dcf7d529a0ce494554764a067ed8f..ca63a4c06e1c0d7b5b50d5d69eaf8aa883d0654a 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 4ca373381e05cedd239acf4a0aa46e8755a0e101..603929c98ff9c34d59986455f0a6615293bda55a 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 3ed8fbcd861f22a70ba5d58e1cfa2e145b000c1a..7218f55cbfbf167ce08bc9c84e2b97bc8a9313b4 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 4d61e3e2fd72dfe4d3bd7f2b5244e5df11326e9d..84bcaab07de67e41201e63146f41763b2ef1a6c8 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 cf9e62288c32465fb4be3fc4ebb93592b4f95da9..f3c092a0c9be0d1ebe43d902cb2e528295f68b70 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 0f8d70dcd8db503d711656a35ee138e034940061..08d3c493ee356e65d6e593c30a39ec798ae2698f 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 89dbc10aa8784feb6529c454d5c7a506cbfbea31..0ec17bf7a2b1cb04bc6205d8fc7bc121177d409c 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 0f8d70dcd8db503d711656a35ee138e034940061..08d3c493ee356e65d6e593c30a39ec798ae2698f 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 1a76fbbdc53a67c92b0f729bcb021d230038cdee..8d290cd604449ca861ae81ff27d4cd0e9a1dee8e 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 0f8d70dcd8db503d711656a35ee138e034940061..08d3c493ee356e65d6e593c30a39ec798ae2698f 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 13befd007be56e6df70a6a985a4f069b870d5494..db016267aba94c483a13d381bce38cd7e386c765 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 2b8b04cf93d777b781c23cf5209f8936ab06590e..173d5c1440cdfb013d35b21e52ad23731cd22c23 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 0f8d70dcd8db503d711656a35ee138e034940061..08d3c493ee356e65d6e593c30a39ec798ae2698f 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 6a0bfc477be3a1a6e4597aaa9a90ea43bb924b6d..04ecf6ce103237aa75d216d18c92391312e9adab 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 0f8d70dcd8db503d711656a35ee138e034940061..08d3c493ee356e65d6e593c30a39ec798ae2698f 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 ad6c2b3eb8e758198f0df4ff467bf78656ea6281..589b49cd7f9089d4209baf89fbadc5742f992c8f 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 9703e27951d0ce8aa7478ac6db6125f1e645648e..2e3337887c4885b108d567cb2a9fe8ada9ad94ae 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 0f8d70dcd8db503d711656a35ee138e034940061..08d3c493ee356e65d6e593c30a39ec798ae2698f 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 303e9ba01162695b9e7cd4c74584cce4dc6bf68c..18e52fc239e7c22c6f6af2eb9319308a2bc4273d 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 64e4aeb6d453706fd37d6495d57f3d656cd1de40..7ef9ee4a336ef3e85260540083b84417a3cd92ee 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 b914e5e56d12c39ac711b15f9d4635a76b63d1f0..f64421dc71d705bada26b8150fba51680933cb8d 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 66c4b366313a3596a88fadf229c18b7cb0eee7bc..56d81c6d55763428d0119c25ba0cdbd80331c1bb 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 c6b0522d65002053a9bb7bab8468914fec389335..55951833231e305aca1f8d258365523dcf129dfa 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 5e8ffcf9186f1972b9c1b4956e4183f48b279e0e..2ff070586d737451e3f229cb83f5effd244f46ba 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 4bb06d747d8a9f92b1eaa6cf46fa656c1cb6b0d2..6ae081ea70a61667e51f0ace383f4acf37f6ad81 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 65a67cf3466ce33c09e888c9250e4bca9be1eb1f..07c2d65207eb07bc6adeb7607e39d9357cac4359 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 17a066484258def2f9f74353f79970f39e3d5bae..5c888ed40e7ae1295835778655ac0c1287e7e43f 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 558ee92d76506e8293bab2d3e47bc2f5cfc55834..b5f8aaffcec767cf3936071dd82005e56068004a 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 07669f2d4fba3c68128fc4d6540d71a19b01e6cd..504d64279fa415244a91d60ffb8685d438f4b37a 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 153227f5c0c8bce1a5ab5752c6a6f369f678bde6..e99f3c055665094c5be5a8e95d04ace2f4c4a332 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 49136d80978aef0509edb69418cbba9ac40fdb03..08d3c493ee356e65d6e593c30a39ec798ae2698f 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 9d5af4ece69fe27adf71e39e66bd9ffd56d450ab..474617026c3868fe8eb2427dabce767d067c0d0e 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 b72e8ec75975d104577a3487d71ef2a8d9fca730..805be6806bd6736bd9b3f55e1356bb8a86cfcd99 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 3f2bd61e2772246ddd59490b55a624b873d286b1..bc8dd7530ac5b93e59a284d91de7c9a4b6b83c48 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 d420e5a1a5dfe4a7246ca9cd095b9f1fabb90d55..5890c1f0e84a55c1475a4ed84e86d2db9ea0b404 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 16f22bce6c04a623196bead7ce16d1320d356876..81d613471359806bca1a601f80a7457de5ada43c 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 f1ec3de7557c48bd8b31edbcacccab14872598e7..5943d4bc3cb30f78a12a95f83210f1b230b33011 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 a893fe9d1f586378af580df8094f76504d888894..be527fc3bebb8cf5d0a060d2d0031416a8c7d607 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 4a7e42051aa529f090a48c9cfff5376bf72be8e0..5e9299b15f25f418f31c017cdbf77a88dc3bc376 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 377f5c688003a71428d95de67bf7d1a51b60baae..40aa0a03bd1d7c918e071a5cfed1fdc537d974d6 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 27e3a7b1c2f4cdaefe93386b0e412066eaab81c0..0c6f7f9a94cb24ca87a9152824f45696bc72f9f5 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 f453c99f2b5c11cc27f3026325f39cb8bfae6244..d9abf7c8bc97523061db32c57a899880620df78e 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 94eb6f22da215d92929b9dac35c9c82a04191626..49104b9f82ef03204bf79647c047a6c12384e0ed 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 050f0e856743ca20bac0efb1e22709613c892ba1..ef9761ea6a4a3a038bde8601337528d12669535a 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 de33d2772722622733fae312cce7aaed40ccd8c9..7e630b13162e684c362a8b15a5b6cbde38a2d1fe 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 e70a55fb413c0fda50c62c64a4bf5798b502245a..8d9001315dd147ba4ae0cdb29941e9684d3d3ddb 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 3bae8d29a82107422cb5853b33c37d02a5157ff0..affda8aef8bd0f32faa0c953feb4ebe412fd9be4 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 7afc4217d0f4dff63f4f3dee3690549c98c02201..dc8d181d3ca483dc5ffab34ca3f3db6ac408c764 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 8d81f9c6892208f98f127d16276d5214d1b932bc..80049ba49bab3ec8d70f1286cab1696043119396 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 875a1e9b793e72d8d9f9ff3a024d7c20ad777e13..8ca543911fb2dea6737fb4d3c6ab59f801da8636 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 82dfd85709ea8827a8e983634b1f308f0a06acab..32827c318e9c7347e3c13dbe7386f74dcd44e80e 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 b7510011be1b4084caab3767320272ac17969ddc..ec80ab0ae25abc56d8bf7118ade9990e925b65e3 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 a12947e221f7fb2718f88533439effc49983ed90..e6accedb6d032f0832529827b72bd1ec4a7ccea2 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 8a73ef490b25e929a01aa68c9e4d35654a49a562..135027c25c084c42462d09310a50086352b7ce4a 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 075e68745acc7985dcddcfbb3c31669435bf5572..0d512882077866e2c78533346d51fafbd6c173c7 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 1061b25a32bb40dee0b45c0b96b0d9be56b73e48..bb06a012a40dc677b6ddba6c33b1362bebeda1e7 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 833d6605e79f25a098bf277a26c536741afe4c55..b22ac45049b6cc99382aacdfcf21aa52fd4f9262 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 193d41d07ecd688864706e8b58b4041b8c38a151..0561ef3addcae8779f985fc7ca5a79959d12792d 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 577dda5938355ae55cdc029d812384d5bde34bef..84031fbbe9daaa1a72700b32dca3fff2b9aff9a6 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 f8b17e409d837c422c5df788bd7dce8aeb8b970d..51955ad92547336bfd43747d3b3633aa13b6067a 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 9a3142dd7e912c6e0c1b62ea10f815c9bcab8c59..5abf5a8288a3b2b815d55f3d0048917a8b6e9811 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 2ff1038e111b8af44710aef888be2485ade88528..a98f4f351b9c812c579850ea4cb18ad0071ebeab 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 057019c56dfa45c6686d9f8b4d7b01d2a1582c3f..dc77ffc1737c142060f9a430e281b6c664bc30f4 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 f9011cdca9d7cc4d506053a33c63cca7990a71af..25b5496f01c30b7d5c59c63b3d4961cdf3d8615a 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 ba6e1ea81440e25abdada0da325f040b33194207..20cdae22c9e5b37d0c5a5b9f3717b436e09b35d4 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 2b65e6b58ee4bb9f0fc87b32781c0aa42b2feec7..de77f0ac2d57b948948a9610089af5a089f1cb93 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 501e975760374be6b8fe372dd9a4ee4c0b45c25a..cafa82b450f7fa78c1e0219edfd102833fe2a317 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 185c061615c4a7786f0f51f23fed8676b8540fac..f10660276b00c8b83c63dfaf8a7eb51ba8e3f513 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 e3fe11c403f063b8c4e63777bd5c55db54635078..c64fe1702981e5325c58391ea5e329f2229032d4 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 b1a49c054941a8155884a9c91c160157004c0e2d..6eafe8f087cb22cb6ac368f07312426f7b8261f8 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 736bd87135637511a4688249a0a3d546afc5bf07..3bce29776711cdf058651b39bf4110329c2aa268 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 cc17cdf2c850c43d677290049de2a9a1baae7764..aaca0abb2c7285c017f2e04d9f95b22ddfc90334 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 82a95fa8a3901adeff55bcc88a1bc8cd253d8805..0d5455f57ded2f2eb7a1b605711b58ae66252fc0 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 8002ccd982b0dd2fc6d0af1c925ce8ab09a3f6ec..f4c3a36b160f4ff998ef53bd746a3003d9039575 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 53a6bf7bbf97b111fa2bd84f7beafa56e929b2f8..4e4747557d4ae6045d01acb187dc837ddb4d0524 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 705d299243cdd702b8fb01c213b66ee7bbcbbe3a..27dab4117273625e54d98d46271ef9711bb62c22 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 10e55832a6f0c9caf8b2f988bd8ef2f737a8b8d6..1234c56efd28f62604bfc6d3aca8b4e33a155766 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 a7fbd2a1b8ab41eb4ba55424bb9deb6a6952bbab..584ecc8ac92e1b0b695b49392ea67449a4da8530 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 1e8a52cc310e1c2f676a8a07af04e6b165633839..a6f498dadbc2867aae9e4351662d565bd6878d1a 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 e58b7d63e1f5316d375abdd72cc2744532763eb0..ac7d4d21e2ff5b58159792e392b75041f56fae3d 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 c60e3679bcad4b5e62f849f305859b4aea508688..f70d1df34d8d2da18c09578d465742dcd2f5429b 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 f37298c4f3e1bbf43be4b9529f9549092a02e56f..32d85d5792c39dec6d8e62d751210b04a7681b32 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 5653bc2d20892562b0cbc78b9b515b5959395a17..fe0a6c81e073d2d968940648e6b1ad95ca2bcf10 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 047f865ad65f3cc5e8a6c5df106edcf5e546cc9c..abf51730a8f03cc73d646b0a8d0970652ba3609e 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 f8d1a43c9a696e7d149e73d93e6c1f1f24c723ca..f596e36f0604014d5d517602446993411de9bb07 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 e8b79f2a64260d3ba08efdf9f4f6ae45ea064a8f..01c3a43cff599764e28ba85c542126683133deb3 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 af87c7c8b60061545020e4ddf821ad4c2756f2e4..8154e67faa7ea105aa1e6bd0bff339c07790f907 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 23e46054e11139c502492d92e0195298f2f690b3..79984405172ab8c10fe600d4ea8fd346f00bb6ce 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 1d081d07255b06f5b624da69081a49d8ce01ed00..aff57e6b2748aec76220ab272b121917e932c5c8 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 83f3be89ad23461a070a128e4d76558d910fb34e..5534a4bb3d27e5c15705c2066f17c1334569ced9 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 0674d9deb0569ae6c43a4b337a8f1057a95fec2e..499ec9385e636f136facbf70154f4e2adef2d8fe 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 37e2008282a585d1e88f6dd8835ff55cd5506972..7e70f7edd5492979c4df2ac559c0afe7b4d00fc5 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 48129d0c5b6aac8b0e3bf552749294f2726a6ef8..69444e205b73bc261057f4f4c34109fa8a38c099 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 6bd88f9f07b8d9e85a36211776b3ec274d7fb801..7e545a65f6e27f600a8be7cd745b3dff91c43459 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 2e2d6c923b7dee81c4db335065c3bcbd24eadeef..e8ec24ecc6ea0d435d58cc7e244cf8199fdd6ed3 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 fd985b7785cdb9fa3099174cf2dc4b685c583c14..34ce3bc487c2cc922d072924794b62a456a73dd7 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 d4925a9a7000f71368f2eef560c80543325564ed..74d287be89a162b81073246ec566e6c42c090603 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 f2b13c713eef3694fb18bd1df6f6e5cc75477636..c1d8dd9c10c2b624e54ab5e713af250ea1ef8a43 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 4e6e516819beb7199f6db2f271ecfb65c3549633..9ea9c352b56c58e6d6ba4423a13baad71f104f33 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 0bd04ed63803ae814de9b198ebae882164a8f460..efedc139e10aaca3b94227a34fd1b25d18337a5c 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 6ecb398c073800159199a65971610e8894480714..a26bd9d3eb0d0d40f2332a4452c5ede949ebc224 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 424a57faddae3034f512f8bd6d2575282ee9a3cd..005e2298cad1a102ae11a18fef05fe538e2a47df 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 b48a71e5ea28c34937ff8709c874a428aebf900d..7a19c4c38ebec219e6e18415b3090bffe63682d6 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 51a3e6105e181c1a6239a8de3b671663378ebd16..2bc1d06dd7275a591524b55cad5795ab7d7cc8f5 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 ba099258eb25ab83ab11623c6254d38130d0ab77..012e0fec115ed6401c326cfce4ae2d0d1bd7dff4 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 35bc32fcb557f3d5fea96d11090c3611ff850067..683c5838b2c383a939f295724ee13efd3b2f207d 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 4585d73fb6ba6d65d70dd829d6b5c75967acec50..9e968424dcd8272f389e51c7efeb135dea58d6dd 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 fa92a7bb43f07d93a9cbcfd8a45d404aa47602ee..6f3960d3159dcac0dd3b6ed1cd9bb331eb8557b0 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 9a0a606d561371edacd59857e00b2e49bee27d8d..bd1c43061d680333653b7952d447794117197665 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 1d8c503866fd2e69bbd0ccdc9fa934301263bfd9..f76b87072ddcf824013b0447ee869b21405b035f 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 0464ddfc66b8aff161c17864508c7e60e2b084d9..0a9e92207b1d0eda0276e66e32699030a8948182 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 dc10c3fb728cadeb08cc0ec22bc223fefdfb1fa4..d6a57cbf3e7e4154172183b87a471ae191d82944 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 b4bbe2841a3573f9af7abb40e9e85496db8c3818..39c22553157221ccbaee1b67080bcef2c8965e87 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 1d1b1d52fa5514fdf7c9d76efe2e3818ca9a957b..fcf58418deeb33b09db536aa76cd79ace3477c19 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 8625fe65d409b2de78486ff0f9245ec1a7dddb15..eafdfab74694c55fc9d8277722e31f5aad3374d1 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 5f0ecfd0647ceb2b60f96c84465dcd4b0c9f16dc..f7881e509c07622d69f89717cad354545d5df00a 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 fafdcefcc80d74e9ab49986d1d9de7f230e345ed..85391a5027f3bff78a537b51521ff49597fce3ed 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 39c7b9821d373cd29af8f26809ea4f2412458c2a..a92e14391861ed802ae06684077cfa5683e102b2 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 eca1b5f4d175fc4dbd231f4a145bd1bdb6cf1ca9..f6739d65ba3090940befaa88c1fdda635c89d67d 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 d206feb31751159be59416100a03ab83f2009cc1..fb3f378974d9dac82e71034ac401e04654b097f9 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 ea60b11f73aa3a6cab9d2ee429975f508d1437e7..6cedb2dd9c3d6e9589eeeb41bd61d030cdee1f4c 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