2024-01-17 13:59:05 +01:00
|
|
|
(** Spin *)
|
2019-02-18 12:41:54 +01:00
|
|
|
|
2024-01-17 13:59:05 +01:00
|
|
|
(* Electron spin *)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(** Type *)
|
2019-02-18 12:41:54 +01:00
|
|
|
type t = Alfa | Beta
|
2020-12-28 01:08:55 +01:00
|
|
|
|
2024-01-17 13:59:05 +01:00
|
|
|
(** Note :
|
|
|
|
|
~Alfa~ if written with an 'f' instead of 'ph' because it has the same
|
|
|
|
|
number of letters as ~Beta~, so the alignment of the code is nicer.
|
|
|
|
|
*)
|
|
|
|
|
|
2019-02-18 12:41:54 +01:00
|
|
|
|
2024-01-17 13:59:05 +01:00
|
|
|
(** Functions *)
|
2020-12-28 01:08:55 +01:00
|
|
|
|
2019-02-22 19:19:11 +01:00
|
|
|
val other : t -> t
|
2024-01-17 13:59:05 +01:00
|
|
|
(** Returns the opposite spin. *)
|
2020-12-28 01:08:55 +01:00
|
|
|
|
2019-02-18 12:41:54 +01:00
|
|
|
|
2024-01-17 13:59:05 +01:00
|
|
|
(** Printers *)
|
2019-02-18 12:41:54 +01:00
|
|
|
|
2020-12-28 01:08:55 +01:00
|
|
|
val pp : Format.formatter -> t -> unit
|
