From b4b3aece978b59436404e1440d934fcb49a75d0c Mon Sep 17 00:00:00 2001
From: Benjamin Canou <benjamin@canou.fr>
Date: Tue, 8 Nov 2016 17:37:04 +0100
Subject: [PATCH] Dropped unnecessary `script_typed_ir.mli` (duplicate of
 `.ml`).

---
 src/proto/bootstrap/script_typed_ir.mli | 321 ------------------------
 1 file changed, 321 deletions(-)
 delete mode 100644 src/proto/bootstrap/script_typed_ir.mli

diff --git a/src/proto/bootstrap/script_typed_ir.mli b/src/proto/bootstrap/script_typed_ir.mli
deleted file mode 100644
index 4be436835..000000000
--- a/src/proto/bootstrap/script_typed_ir.mli
+++ /dev/null
@@ -1,321 +0,0 @@
-(**************************************************************************)
-(*                                                                        *)
-(*    Copyright (c) 2014 - 2016.                                          *)
-(*    Dynamic Ledger Solutions, Inc. <contact@tezos.com>                  *)
-(*                                                                        *)
-(*    All rights reserved. No warranty, explicit or implicit, provided.   *)
-(*                                                                        *)
-(**************************************************************************)
-
-open Tezos_context
-open Script_int
-
-type ('arg, 'ret, 'storage) script =
-  { code : (((Tez.t, 'arg) pair, 'storage) pair, ('ret, 'storage) pair) lambda ;
-    arg_type : 'arg ty ;
-    ret_type : 'ret ty ;
-    storage : 'storage ;
-    storage_type : 'storage ty }
-
-(* ---- Auxiliary types -----------------------------------------------------*)
-
-and ('a, 'b) pair = 'a * 'b
-
-and ('a, 'b) union = L of 'a | R of 'b
-
-and end_of_stack = unit
-
-and ('arg, 'ret) lambda =
-    Lam of ('arg * end_of_stack, 'ret * end_of_stack) instr * Script.expr
-
-and ('arg, 'ret) typed_contract =
-  'arg ty * 'ret ty * Contract.t
-
-and 'ty comparable_ty =
-  | Int_key : ('s, 'l) int_kind -> ('s, 'l) int_val comparable_ty
-  | String_key : string comparable_ty
-  | Float_key : float comparable_ty
-  | Tez_key : Tez.t comparable_ty
-  | Bool_key : bool comparable_ty
-  | Key_key : public_key_hash comparable_ty
-  | Timestamp_key : Time.t comparable_ty
-
-and 'ty ty =
-  | Void_t : unit ty
-  | Int_t : ('s, 'l) int_kind -> ('s, 'l) int_val ty
-  | Signature_t : signature ty
-  | String_t : string ty
-  | Float_t : float ty
-  | Tez_t : Tez.t ty
-  | Key_t : public_key_hash ty
-  | Timestamp_t : Time.t ty
-  | Bool_t : bool ty
-  | Pair_t : 'a ty * 'b ty -> ('a, 'b) pair ty
-  | Union_t : 'a ty * 'b ty -> ('a, 'b) union ty
-  | Lambda_t : 'arg ty * 'ret ty -> ('arg, 'ret) lambda ty
-  | Option_t : 'v ty -> 'v option ty
-  | Ref_t : 'v ty -> 'v ref ty
-  | List_t : 'v ty -> 'v list ty
-  | Set_t : 'v comparable_ty -> 'v set ty
-  | Map_t : 'k comparable_ty * 'v ty -> ('k, 'v) map ty
-  | Contract_t : 'arg ty * 'ret ty -> ('arg, 'ret) typed_contract ty
-
-and 'a set =
-  'a list ref * 'a comparable_ty (* FIXME: ok, this is bad *)
-
-and ('a, 'b) map =
-  ('a * 'b) list ref * 'a comparable_ty (* FIXME: we'll have to do better *)
-
-(* ---- Instructions --------------------------------------------------------*)
-
-(* The low-level, typed instructions, as a GADT whose parameters
-   encode the typing rules. The eft parameter is the typed shape of
-   the stack before the instruction, the right one the shape
-   after. Any program whose construction is accepted by OCaml's
-   type-checker is guaranteed to be type-safe.  Overloadings of the
-   concrete syntax are already resolved in this representation, either
-   by using different constructors or type witness parameters. *)
-and ('bef, 'aft) instr =
-  (* stack ops *)
-  | Drop :
-      (_ * 'rest, 'rest) instr
-  | Dup :
-      ('top * 'rest, 'top * ('top * 'rest)) instr
-  | Swap :
-      ('tip * ('top * 'rest), 'top * ('tip * 'rest)) instr
-  | Const : 'ty ->
-    ('rest, ('ty * 'rest)) instr
-  (* pairs *)
-  | Cons_pair :
-      (('car * ('cdr * 'rest)), (('car, 'cdr) pair * 'rest)) instr
-  | Car :
-      (('car, _) pair * 'rest, 'car * 'rest) instr
-  | Cdr :
-      ((_, 'cdr) pair * 'rest, 'cdr * 'rest) instr
-  (* options *)
-  | Cons_some :
-      ('v * 'rest, 'v option * 'rest) instr
-  | Cons_none : 'a ty ->
-    ('rest, 'a option * 'rest) instr
-  | If_none : ('bef, 'aft) instr * ('a * 'bef, 'aft) instr ->
-    ('a option * 'bef, 'aft) instr
-  (* unions *)
-  | Left :
-      ('l * 'rest, (('l, 'r) union * 'rest)) instr
-  | Right :
-      ('r * 'rest, (('l, 'r) union * 'rest)) instr
-  | If_left : ('l * 'bef, 'aft) instr * ('r * 'bef, 'aft) instr ->
-    (('l, 'r) union * 'bef, 'aft) instr
-  (* lists *)
-  | Cons_list :
-      ('a * ('a list * 'rest), ('a list * 'rest)) instr
-  | Nil :
-      ('rest, ('a list * 'rest)) instr
-  | If_cons : ('a * ('a list * 'bef), 'aft) instr * ('bef, 'aft) instr ->
-    ('a list * 'bef, 'aft) instr
-  | List_iter :
-      (('param, unit) lambda * ('param list * 'rest), 'rest) instr
-  | List_map :
-      (('param, 'ret) lambda * ('param list * 'rest), 'ret list * 'rest) instr
-  | List_reduce :
-      (('param * 'res, 'res) lambda *
-       ('param list * ('res * 'rest)), 'res * 'rest) instr
-  (* sets *)
-  | Empty_set : 'a comparable_ty ->
-    ('rest, 'a set * 'rest) instr
-  | Set_iter :
-      (('param, unit) lambda * ('param set * 'rest), 'rest) instr
-  | Set_map : 'ret comparable_ty ->
-    (('param, 'ret) lambda * ('param set * 'rest), 'ret set * 'rest) instr
-  | Set_reduce :
-      (('param * 'res, 'res) lambda *
-       ('param set * ('res * 'rest)), 'res * 'rest) instr
-  | Set_mem :
-      ('elt * ('elt set * 'rest), bool * 'rest) instr
-  | Set_update :
-      ('elt * (bool * ('elt set * 'rest)), 'rest) instr
-  (* maps *)
-  | Empty_map : 'a comparable_ty * 'v ty ->
-    ('rest, ('a, 'v) map * 'rest) instr
-  | Map_iter :
-      (('a * 'v, unit) lambda * (('a, 'v) map * 'rest), 'rest) instr
-  | Map_map :
-      (('a * 'v, 'r) lambda * (('a, 'v) map * 'rest), ('a, 'r) map * 'rest) instr
-  | Map_reduce :
-      ((('a * 'v) * 'res, 'res) lambda *
-       (('a, 'v) map * ('res * 'rest)), 'res * 'rest) instr
-  | Map_mem :
-      ('a * (('a, 'v) map * 'rest), bool * 'rest) instr
-  | Map_get :
-      ('a * (('a, 'v) map * 'rest), 'v option * 'rest) instr
-  | Map_update :
-      ('a * ('v option * (('a, 'v) map * 'rest)), 'rest) instr
-  (* reference cells *)
-  | Ref :
-      ('v * 'rest, 'v ref * 'rest) instr
-  | Deref :
-      ('v ref * 'rest, 'v * 'rest) instr
-  | Set :
-      ('v ref * ('v * 'rest), 'rest) instr
-  (* string operations *)
-  | Concat :
-      (string * (string * 'rest), string * 'rest) instr
-  (* timestamp operations *)
-  | Add_period_to_timestamp :
-      (float * (Time.t * 'rest), Time.t * 'rest) instr
-  | Add_seconds_to_timestamp : (unsigned, 'l) int_kind * Script.location ->
-    ((unsigned, 'l) int_val * (Time.t * 'rest), Time.t * 'rest) instr
-  | Add_timestamp_to_period :
-      (Time.t * (float * 'rest), Time.t * 'rest) instr
-  | Add_timestamp_to_seconds : (unsigned, 'l) int_kind * Script.location ->
-    (Time.t * ((unsigned, 'l) int_val * 'rest), Time.t * 'rest) instr
-  (* currency operations *)
-  | Add_tez :
-      (Tez.t * (Tez.t * 'rest), Tez.t * 'rest) instr
-  | Sub_tez :
-      (Tez.t * (Tez.t * 'rest), Tez.t * 'rest) instr
-  | Mul_tez : (unsigned, 'l) int_kind ->
-    (Tez.t * ((unsigned, 'l) int_val * 'rest), Tez.t * 'rest) instr
-  | Mul_tez' : (unsigned, 'l) int_kind ->
-    ((unsigned, 'l) int_val * (Tez.t * 'rest), Tez.t * 'rest) instr
-  (* float operations *)
-  | Neg_float :
-      (float * 'rest, float * 'rest) instr
-  | Abs_float :
-      (float * 'rest, float * 'rest) instr
-  | Add_float :
-      (float * (float * 'rest), float * 'rest) instr
-  | Sub_float :
-      (float * (float * 'rest), float * 'rest) instr
-  | Mul_float :
-      (float * (float * 'rest), float * 'rest) instr
-  | Div_float :
-      (float * (float * 'rest), float * 'rest) instr
-  | Mod_float :
-      (float * (float * 'rest), float * 'rest) instr
-  | Floor :
-      (float * 'rest, float * 'rest) instr
-  | Ceil :
-      (float * 'rest, float * 'rest) instr
-  | Inf :
-      ('rest, float * 'rest) instr
-  | NaN :
-      ('rest, float * 'rest) instr
-  | IsNaN :
-      (float * 'rest, bool * 'rest) instr
-  | NaNaN : Script.location ->
-    (float * 'rest, 'rest) instr
-  (* boolean operations *)
-  | Or :
-      (bool * (bool * 'rest), bool * 'rest) instr
-  | And :
-      (bool * (bool * 'rest), bool * 'rest) instr
-  | Xor :
-      (bool * (bool * 'rest), bool * 'rest) instr
-  | Not :
-      (bool * 'rest, bool * 'rest) instr
-  (* integer operations *)
-  | Checked_neg_int : (signed, 'l) int_kind * Script.location ->
-    ((signed, 'l) int_val * 'rest, (signed, 'l) int_val * 'rest) instr
-  | Checked_abs_int : (signed, 'l) int_kind * Script.location ->
-    ((signed, 'l) int_val * 'rest, (signed, 'l) int_val * 'rest) instr
-  | Checked_add_int : ('s, 'l) int_kind * Script.location ->
-    (('s, 'l) int_val * (('s, 'l) int_val * 'rest), ('s, 'l) int_val * 'rest) instr
-  | Checked_sub_int : ('s, 'l) int_kind * Script.location ->
-    (('s, 'l) int_val * (('s, 'l) int_val * 'rest), ('s, 'l) int_val * 'rest) instr
-  | Checked_mul_int : ('s, 'l) int_kind * Script.location ->
-    (('s, 'l) int_val * (('s, 'l) int_val * 'rest), ('s, 'l) int_val * 'rest) instr
-  | Neg_int : (signed, 'l) int_kind ->
-    ((signed, 'l) int_val * 'rest, (signed, 'l) int_val * 'rest) instr
-  | Abs_int : (signed, 'l) int_kind ->
-    ((signed, 'l) int_val * 'rest, (signed, 'l) int_val * 'rest) instr
-  | Add_int : ('s, 'l) int_kind ->
-    (('s, 'l) int_val * (('s, 'l) int_val * 'rest), ('s, 'l) int_val * 'rest) instr
-  | Sub_int : ('s, 'l) int_kind ->
-    (('s, 'l) int_val * (('s, 'l) int_val * 'rest), ('s, 'l) int_val * 'rest) instr
-  | Mul_int : ('s, 'l) int_kind ->
-    (('s, 'l) int_val * (('s, 'l) int_val * 'rest), ('s, 'l) int_val * 'rest) instr
-  | Div_int : ('s, 'l) int_kind * Script.location ->
-    (('s, 'l) int_val * (('s, 'l) int_val * 'rest), ('s, 'l) int_val * 'rest) instr
-  | Mod_int : ('s, 'l) int_kind * Script.location ->
-    (('s, 'l) int_val * (('s, 'l) int_val * 'rest), ('s, 'l) int_val * 'rest) instr
-  | Lsl_int : (unsigned, 'l) int_kind ->
-    ((unsigned, 'l) int_val * ((unsigned, eight) int_val * 'rest), (unsigned, 'l) int_val * 'rest) instr
-  | Lsr_int : (unsigned, 'l) int_kind ->
-    ((unsigned, 'l) int_val * ((unsigned, eight) int_val * 'rest), (unsigned, 'l) int_val * 'rest) instr
-  | Or_int : (unsigned, 'l) int_kind ->
-    ((unsigned, 'l) int_val * ((unsigned, 'l) int_val * 'rest), (unsigned, 'l) int_val * 'rest) instr
-  | And_int : (unsigned, 'l) int_kind ->
-    ((unsigned, 'l) int_val * ((unsigned, 'l) int_val * 'rest), (unsigned, 'l) int_val * 'rest) instr
-  | Xor_int : (unsigned, 'l) int_kind ->
-    ((unsigned, 'l) int_val * ((unsigned, 'l) int_val * 'rest), (unsigned, 'l) int_val * 'rest) instr
-  | Not_int : (unsigned, 'l) int_kind ->
-    ((unsigned, 'l) int_val * 'rest, (unsigned, 'l) int_val * 'rest) instr
-  (* control *)
-  | Seq : ('bef, 'trans) instr * ('trans, 'aft) instr ->
-    ('bef, 'aft) instr
-  | If : ('bef, 'aft) instr * ('bef, 'aft) instr ->
-    (bool * 'bef, 'aft) instr
-  | Loop : ('rest, bool * 'rest) instr ->
-    (bool * 'rest, 'rest) instr
-  | Dip : ('bef, 'aft) instr ->
-    ('top * 'bef, 'top * 'aft) instr
-  | Exec :
-      ('arg * (('arg, 'ret) lambda * 'rest), 'ret * 'rest) instr
-  | Lambda : ('arg, 'ret) lambda ->
-    ('rest, ('arg, 'ret) lambda * 'rest) instr
-  | Fail : Script.location ->
-    ('rest, 'rest) instr
-  | Nop :
-      ('rest, 'rest) instr
-  (* comparison *)
-  | Compare : 'a comparable_ty ->
-    ('a * ('a * 'rest), (signed, sixtyfour) int_val * 'rest) instr
-  (* comparators *)
-  | Eq :
-      ((signed, sixtyfour) int_val * 'rest, bool * 'rest) instr
-  | Neq :
-      ((signed, sixtyfour) int_val * 'rest, bool * 'rest) instr
-  | Lt :
-      ((signed, sixtyfour) int_val * 'rest, bool * 'rest) instr
-  | Gt :
-      ((signed, sixtyfour) int_val * 'rest, bool * 'rest) instr
-  | Le :
-      ((signed, sixtyfour) int_val * 'rest, bool * 'rest) instr
-  | Ge :
-      ((signed, sixtyfour) int_val * 'rest, bool * 'rest) instr
-  (* casts *)
-  | Int_of_int : ('sf, 'lf) int_kind * ('st, 'lt) int_kind ->
-    (('sf, 'lf) int_val * 'rest, ('st, 'lt) int_val * 'rest) instr
-  | Checked_int_of_int : ('sf, 'lf) int_kind * ('st, 'lt) int_kind * Script.location ->
-    (('sf, 'lf) int_val * 'rest, ('st, 'lt) int_val * 'rest) instr
-  | Int_of_float : ('st, 'lt) int_kind ->
-    (float * 'rest, ('st, 'lt) int_val * 'rest) instr
-  | Float_of_int : ('sf, 'lf) int_kind ->
-    (('sf, 'lf) int_val * 'rest, float * 'rest) instr
-  (* protocol *)
-  | Manager :
-      (('arg, 'ret) typed_contract * 'rest, public_key_hash * 'rest) instr
-  | Transfer_tokens : 'sto ty * Script.location ->
-    ('arg * (Tez.t * (('arg, 'ret) typed_contract * ('sto * end_of_stack))), 'ret * ('sto * end_of_stack)) instr
-  | Create_account :
-      (public_key_hash * (public_key_hash option * (bool * (Tez.t * 'rest))),
-       (unit, unit) typed_contract * 'rest) instr
-  | Create_contract : 'g ty * 'p ty * 'r ty ->
-    (public_key_hash * (public_key_hash option * (bool * (Tez.t *
-                                                          (((Tez.t * 'p) * 'g, 'r * 'g) lambda * ('g * 'rest))))),
-     ('p, 'r) typed_contract * 'rest) instr
-  | Now :
-      ('rest, Time.t * 'rest) instr
-  | Balance :
-      ('rest, Tez.t * 'rest) instr
-  | Check_signature :
-      (public_key_hash * ((signature * string) * 'rest), bool * 'rest) instr
-  | H : 'a ty ->
-    ('a * 'rest, string * 'rest) instr
-  | Steps_to_quota :
-      ('rest, (unsigned, thirtytwo) int_val * 'rest) instr
-  | Source : 'p ty * 'r ty ->
-    ('rest, ('p, 'r) typed_contract * 'rest) instr
-  | Amount :
-      ('rest, Tez.t * 'rest) instr