michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(lean-input): add some notation

Browse source
This commit is contained in:
Floris van Doorn 2015-04-17 13:15:16 -04:00 committed by Leonardo de Moura
parent ee4cba4e0b
commit d4a929febb
1 changed files with 13 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/emacs/lean-input.el
View file

@ -202,15 +202,17 @@ order for the change to take effect."
("eq" . ,(lean-input-to-string-list "=∼∽≈≋∻∾∿≀≃⋍≂≅ ≌≊≡≣≐≑≒≓≔≕≖≗≘≙≚≛≜≝≞≟≍≎≏≬⋕")) ("eq" . ,(lean-input-to-string-list "=∼∽≈≋∻∾∿≀≃⋍≂≅ ≌≊≡≣≐≑≒≓≔≕≖≗≘≙≚≛≜≝≞≟≍≎≏≬⋕"))
("eqn" . ,(lean-input-to-string-list "≠≁ ≉ ≄ ≇≆ ≢ ≭ ")) ("eqn" . ,(lean-input-to-string-list "≠≁ ≉ ≄ ≇≆ ≢ ≭ "))
("equiv" . ,(lean-input-to-string-list "≃⋍"))
("iso" . ,(lean-input-to-string-list "≅≌"))
("=n" . ("≠")) ("=n" . ("≠"))
("~" . ("∼")) ("~n" . ("≁")) ("homotopy" . ("∼")) ("~" . ("∼")) ("~n" . ("≁")) ("homotopy" . ("∼"))
("~~" . ("≈")) ("~~n" . ("≉")) ("~~" . ("≈")) ("~~n" . ("≉"))
("~~~" . ("≋")) ("~~~" . ("≋"))
(":~" . ("∻")) (":~" . ("∻"))
("~-" . ("≃")) ("~-n" . ("≄")) ("equiv" . ("≃")) ("~-" . ("≃")) ("~-n" . ("≄"))
("-~" . ("≂")) ("-~" . ("≂"))
("~=" . ("≅")) ("~=n" . ("≇")) ("iso" . ("≅")) ("~=" . ("≅")) ("~=n" . ("≇"))
("~~-" . ("≊")) ("~~-" . ("≊"))
("==" . ("≡")) ("==n" . ("≢")) ("==" . ("≡")) ("==n" . ("≢"))
("===" . ("≣")) ("===" . ("≣"))
@ -238,10 +240,10 @@ order for the change to take effect."
;; Inequality and similar symbols. ;; Inequality and similar symbols.
("leq" . ,(lean-input-to-string-list "<≪⋘≤≦≲ ≶≺≼≾⊂⊆ ⋐⊏⊑ ⊰⊲⊴⋖⋚⋜⋞")) ("leq" . ,(lean-input-to-string-list "≤≦≲<≪⋘ ≶≺≼≾⊂⊆ ⋐⊏⊑ ⊰⊲⊴⋖⋚⋜⋞"))
("leqn" . ,(lean-input-to-string-list "≮ ≰≨≴⋦≸⊀ ⋨⊄⊈⊊ ⋢⋤ ⋪⋬ ⋠")) ("leqn" . ,(lean-input-to-string-list "≰≨≮≴⋦ ≸⊀ ⋨⊄⊈⊊ ⋢⋤ ⋪⋬ ⋠"))
("geq" . ,(lean-input-to-string-list ">≫⋙≥≧≳ ≷≻≽≿⊃⊇ ⋑⊐⊒ ⊱⊳⊵⋗⋛⋝⋟")) ("geq" . ,(lean-input-to-string-list "≥≧≳>≫⋙ ≷≻≽≿⊃⊇ ⋑⊐⊒ ⊱⊳⊵⋗⋛⋝⋟"))
("geqn" . ,(lean-input-to-string-list "≯ ≱≩≵⋧≹⊁ ⋩⊅⊉⊋ ⋣⋥ ⋫⋭ ⋡")) ("geqn" . ,(lean-input-to-string-list "≱≩≯≵⋧ ≹ ⊁ ⋩⊅⊉⊋ ⋣⋥ ⋫⋭ ⋡"))
("<=" . ("≤")) (">=" . ("≥")) ("<=" . ("≤")) (">=" . ("≥"))
("<=n" . ("≰")) (">=n" . ("≱")) ("<=n" . ("≰")) (">=n" . ("≱"))
@ -322,6 +324,8 @@ order for the change to take effect."
;; Various operators/symbols. ;; Various operators/symbols.
("tr" . ,(lean-input-to-string-list "⬝▹")) ("tr" . ,(lean-input-to-string-list "⬝▹"))
("trans" . ,(lean-input-to-string-list "▹⬝"))
("transport" . ("▹"))
("con" . ("⬝")) ("con" . ("⬝"))
("cdot" . ("⬝")) ("cdot" . ("⬝"))
("sy" . ("⁻¹")) ("sy" . ("⁻¹"))
@ -451,9 +455,8 @@ order for the change to take effect."
;; Big/small, black/white. ;; Big/small, black/white.
("t" . ,(lean-input-to-string-list "▸▹►▻◂◃◄◅▴▵▾▿◢◿◣◺◤◸◥◹")) ("t" . ,(lean-input-to-string-list "▸▹►▻◂◃◄◅▴▵▾▿◢◿◣◺◤◸◥◹"))
("Tr" . ,(lean-input-to-string-list "◀◁▶▷▲△▼▽◬◭◮")) ("Tr" . ,(lean-input-to-string-list "◀◁▶▷▲△▼▽◬◭◮"))
("transport" . ("▹"))
("tb" . ,(lean-input-to-string-list "◂▸▴▾◄►◢◣◤◥")) ("tb" . ,(lean-input-to-string-list "◂▸▴▾◄►◢◣◤◥"))
("tw" . ,(lean-input-to-string-list "◃▹▵▿◅▻◿◺◸◹")) ("tw" . ,(lean-input-to-string-list "◃▹▵▿◅▻◿◺◸◹"))
@ -661,7 +664,7 @@ order for the change to take effect."
;; \omicron \Omicron ;; \omicron \Omicron
;; \pi \Pi ;; \pi \Pi
("Gr" . ("ρ")) ("GR" . ("Ρ")) ("Gr" . ("ρ")) ("GR" . ("Ρ"))
("Gs" . ("σ")) ("GS" . ("Σ")) ("Gs" . ("σ")) ("GS" . ("Σ")) ("S" . ("Σ"))
("Gt" . ("τ")) ("GT" . ("Τ")) ("Gt" . ("τ")) ("GT" . ("Τ"))
("Gu" . ("υ")) ("GU" . ("Υ")) ("Gu" . ("υ")) ("GU" . ("Υ"))
("Gf" . ("φ")) ("GF" . ("Φ")) ("Gf" . ("φ")) ("GF" . ("Φ"))