Mysaa/pieuvre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add spaces

Browse Source
This commit is contained in:
Adrien Vannson 2022-05-16 23:27:10 +02:00
parent e706c4bb9d
commit 97e0ead5fe
No known key found for this signature in database
GPG Key ID: FE2E66FD978C1A55
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pieuvre.ml
View File

@ -17,8 +17,8 @@ let rec string_of_ty (t: ty) : string =
match t with
| TSimple(tn) -> tn
| TImpl(t1,t2) -> "(" ^ (string_of_ty t1) ^ " -> " ^ (string_of_ty t2) ^ ")"
| TAnd(t1,t2) -> "(" ^ (string_of_ty t1) ^ "/\\" ^ (string_of_ty t2) ^ ")"
| TOr(t1,t2) -> "(" ^ (string_of_ty t1) ^ "\\/" ^ (string_of_ty t2) ^ ")"
| TAnd(t1,t2) -> "(" ^ (string_of_ty t1) ^ " /\\ " ^ (string_of_ty t2) ^ ")"
| TOr(t1,t2) -> "(" ^ (string_of_ty t1) ^ "\\/ " ^ (string_of_ty t2) ^ ")"
| TFalse -> "False"
| TTrue -> "True"
;;
@ -47,7 +47,7 @@ let split, tsplit =
else raise (IllegalVarNameException(x))
in (splitter varRegex, splitter tvarRegex);;
(* Renvoie un nom non utilisé dans la formule l qui commence par x *)
let findFreeName (l: lam) (x: var) =
let xStr = fst (split x) in
@ -76,7 +76,7 @@ let findHypName (names: var list) (x: var) =
let maxi = ref 0 in
let rec finder l = match l with
| [] -> ()
| v::r ->
| v::r ->
begin
let (vS,vI) = split v in
(if xStr=vS then maxi := max !maxi vI);